geom_segment block printer when printing a pdfHow to flush output of print function?Recommended way to embed PDF in HTML?Proper MIME media type for PDF filesHow do I hide an element when printing a web page?Convert HTML + CSS to PDF with PHP?What's the simplest way to print a Java array?How to print instances of a class using print()?Merge / convert multiple PDF files into one PDFInserting a pdf file in latexHow to print to stderr in Python?
In what state are satellites left in when they are left in a graveyard orbit?
Ambiguity in notation resolved by +
Bit one of the Intel 8080's Flags register
How to create an animated flowchart with LaTeX?
Meaning of Swimming their horses
Why any infinite sequence of real functions can be generated from a finite set through composition?
Why does the speed of sound decrease at high altitudes although the air density decreases?
What are the advantages and disadvantages of tail wheels that cause modern airplanes to not use them?
Pronunciation of "солнце"
What is a "major country" as named in Bernie Sanders' Healthcare debate answers?
What does this line from The hobbit mean?
Make 2019 with single digits
How to write characters doing illogical things in a believable way?
How clean are pets?
Statistical tests for benchmark comparison
Why don't airports use arresting gears to recover energy from landing passenger planes?
Why is belonging not transitive?
Why does Kubuntu 19.04 show an update that apparently doesn't exist?
How to publish superseding results without creating enemies
Output a Super Mario Image
How can I prevent my AC condensate pipe from making my soil soggy?
Why is the year in this ISO timestamp not 2019?
Has Dumbledore ever scolded Harry?
geschafft or geschaffen? which one is past participle of schaffen?
geom_segment block printer when printing a pdf
How to flush output of print function?Recommended way to embed PDF in HTML?Proper MIME media type for PDF filesHow do I hide an element when printing a web page?Convert HTML + CSS to PDF with PHP?What's the simplest way to print a Java array?How to print instances of a class using print()?Merge / convert multiple PDF files into one PDFInserting a pdf file in latexHow to print to stderr in Python?
.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;
I generate two graphs using ggplot2.
The first one is based on a 5000 entries data frame.
The second one is based on a 170 entries data frame.
On both graphs I have a mix of geom_path and geom_segment.
I generate a pdf with each graph.
When I send the first pdf to printers, printers stay stuck.
When I send the second pdf to printers, printers make a good job.
When I remove the geom_segment of the first graph, printers make a good job.
first one (not working properly):
ggplot(data_up, aes(x=PMF_TE2)) +
geom_path(aes(y=Eco_CLD_ChBminA_Calc),colour="black",size=0.1)+
geom_segment(aes(x = PMF_TE2[900], y = Eco_CLD_ChBminA_Calc[900], xend = PMF_TE2[1000], yend = Eco_CLD_ChBminA_Calc[1000]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = PMF_TE2[4200], y = Eco_CLD_ChBminA_Calc[4200], xend = PMF_TE2[4300], yend = Eco_CLD_ChBminA_Calc[4300]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
coord_cartesian(xlim=c(100,300),ylim = c(0,600))+
scale_x_continuous(expand = c(0, 0))+
ylab("NO2 upstream [ppm]") +
xlab("temperature [deg C]")+
theme2
and second one (working properly):
ggplot(df, aes(x=Deg)) +
geom_path(aes(y=NOxu.Bu30.MDup-NOu.Bu30.MDup),colour="red2",size=0.3)+
geom_path(aes(y=NOxu.Bu30.MDdown-NOu.Bu30.MDdown),colour="red2",size=0.3)+
geom_path(aes(y=NOxd.Bu30.MDup-NOd.Bu30.MDup),colour="springgreen4",size=0.3)+
geom_path(aes(y=NOxd.Bu30.MDdown-NOd.Bu30.MDdown),colour="springgreen4",size=0.3)+
geom_path(aes(y=NOxu.Bu00.MDup-NOu.Bu00.MDup),colour="navyblue",size=0.3, linetype="dashed")+
geom_path(aes(y=NOxu.Bu00.MDdown-NOu.Bu00.MDdown),colour="navyblue",size=0.3, linetype="dashed")+
geom_path(aes(y=NOxd.Bu00.MDup-NOd.Bu00.MDup),colour="violetred",size=0.3, linetype="dashed")+
geom_path(aes(y=NOxd.Bu00.MDdown-NOd.Bu00.MDdown),colour="violetred",size=0.3, linetype="dashed")+
geom_segment(aes(x = Deg[50], y = NOxu.Bu30.MDup[50]-NOu.Bu30.MDup[50], xend = Deg[55], yend = NOxu.Bu30.MDup[55]-NOu.Bu30.MDup[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxu.Bu30.MDdown[50]-NOu.Bu30.MDdown[50], xend = Deg[55], yend = NOxu.Bu30.MDdown[55]-NOu.Bu30.MDdown[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="first",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxd.Bu30.MDdown[50]-NOd.Bu30.MDdown[50], xend = Deg[55], yend = NOxd.Bu30.MDdown[55]-NOd.Bu30.MDdown[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="first",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxd.Bu30.MDup[50]-NOd.Bu30.MDup[50], xend = Deg[55], yend = NOxd.Bu30.MDup[55]-NOd.Bu30.MDup[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxu.Bu00.MDup[50]-NOu.Bu00.MDup[50], xend = Deg[55], yend = NOxu.Bu00.MDup[55]-NOu.Bu00.MDup[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxu.Bu00.MDdown[50]-NOu.Bu00.MDdown[50], xend = Deg[55], yend = NOxu.Bu00.MDdown[55]-NOu.Bu00.MDdown[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="first",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxd.Bu00.MDup[50]-NOd.Bu00.MDup[50], xend = Deg[55], yend = NOxd.Bu00.MDup[55]-NOd.Bu00.MDup[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxd.Bu00.MDdown[50]-NOd.Bu00.MDdown[50], xend = Deg[55], yend = NOxd.Bu00.MDdown[55]-NOd.Bu00.MDdown[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="first",type="closed"))+
coord_cartesian(xlim=c(100,300),ylim = c(0,500))+
scale_x_continuous(expand = c(0, 0))+
ylab("NO2 [ppm]") +
xlab("temperature down stream DOC [deg C]")+
theme2
I can unfortunately not provide the data of each df for reproduction, but I need to print that damn graph...
In advance thank you for your help :)
r pdf ggplot2 printing
asked Mar 28 at 12:29
JulienJulien
215 bronze badges
add a comment
|
I generate two graphs using ggplot2.
The first one is based on a 5000 entries data frame.
The second one is based on a 170 entries data frame.
On both graphs I have a mix of geom_path and geom_segment.
I generate a pdf with each graph.
When I send the first pdf to printers, printers stay stuck.
When I send the second pdf to printers, printers make a good job.
When I remove the geom_segment of the first graph, printers make a good job.
first one (not working properly):
ggplot(data_up, aes(x=PMF_TE2)) +
geom_path(aes(y=Eco_CLD_ChBminA_Calc),colour="black",size=0.1)+
geom_segment(aes(x = PMF_TE2[900], y = Eco_CLD_ChBminA_Calc[900], xend = PMF_TE2[1000], yend = Eco_CLD_ChBminA_Calc[1000]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = PMF_TE2[4200], y = Eco_CLD_ChBminA_Calc[4200], xend = PMF_TE2[4300], yend = Eco_CLD_ChBminA_Calc[4300]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
coord_cartesian(xlim=c(100,300),ylim = c(0,600))+
scale_x_continuous(expand = c(0, 0))+
ylab("NO2 upstream [ppm]") +
xlab("temperature [deg C]")+
theme2
and second one (working properly):
ggplot(df, aes(x=Deg)) +
geom_path(aes(y=NOxu.Bu30.MDup-NOu.Bu30.MDup),colour="red2",size=0.3)+
geom_path(aes(y=NOxu.Bu30.MDdown-NOu.Bu30.MDdown),colour="red2",size=0.3)+
geom_path(aes(y=NOxd.Bu30.MDup-NOd.Bu30.MDup),colour="springgreen4",size=0.3)+
geom_path(aes(y=NOxd.Bu30.MDdown-NOd.Bu30.MDdown),colour="springgreen4",size=0.3)+
geom_path(aes(y=NOxu.Bu00.MDup-NOu.Bu00.MDup),colour="navyblue",size=0.3, linetype="dashed")+
geom_path(aes(y=NOxu.Bu00.MDdown-NOu.Bu00.MDdown),colour="navyblue",size=0.3, linetype="dashed")+
geom_path(aes(y=NOxd.Bu00.MDup-NOd.Bu00.MDup),colour="violetred",size=0.3, linetype="dashed")+
geom_path(aes(y=NOxd.Bu00.MDdown-NOd.Bu00.MDdown),colour="violetred",size=0.3, linetype="dashed")+
geom_segment(aes(x = Deg[50], y = NOxu.Bu30.MDup[50]-NOu.Bu30.MDup[50], xend = Deg[55], yend = NOxu.Bu30.MDup[55]-NOu.Bu30.MDup[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxu.Bu30.MDdown[50]-NOu.Bu30.MDdown[50], xend = Deg[55], yend = NOxu.Bu30.MDdown[55]-NOu.Bu30.MDdown[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="first",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxd.Bu30.MDdown[50]-NOd.Bu30.MDdown[50], xend = Deg[55], yend = NOxd.Bu30.MDdown[55]-NOd.Bu30.MDdown[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="first",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxd.Bu30.MDup[50]-NOd.Bu30.MDup[50], xend = Deg[55], yend = NOxd.Bu30.MDup[55]-NOd.Bu30.MDup[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxu.Bu00.MDup[50]-NOu.Bu00.MDup[50], xend = Deg[55], yend = NOxu.Bu00.MDup[55]-NOu.Bu00.MDup[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxu.Bu00.MDdown[50]-NOu.Bu00.MDdown[50], xend = Deg[55], yend = NOxu.Bu00.MDdown[55]-NOu.Bu00.MDdown[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="first",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxd.Bu00.MDup[50]-NOd.Bu00.MDup[50], xend = Deg[55], yend = NOxd.Bu00.MDup[55]-NOd.Bu00.MDup[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxd.Bu00.MDdown[50]-NOd.Bu00.MDdown[50], xend = Deg[55], yend = NOxd.Bu00.MDdown[55]-NOd.Bu00.MDdown[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="first",type="closed"))+
coord_cartesian(xlim=c(100,300),ylim = c(0,500))+
scale_x_continuous(expand = c(0, 0))+
ylab("NO2 [ppm]") +
xlab("temperature down stream DOC [deg C]")+
theme2
I can unfortunately not provide the data of each df for reproduction, but I need to print that damn graph...
In advance thank you for your help :)
r pdf ggplot2 printing
asked Mar 28 at 12:29
JulienJulien
215 bronze badges
add a comment
|
I generate two graphs using ggplot2.
The first one is based on a 5000 entries data frame.
The second one is based on a 170 entries data frame.
On both graphs I have a mix of geom_path and geom_segment.
I generate a pdf with each graph.
When I send the first pdf to printers, printers stay stuck.
When I send the second pdf to printers, printers make a good job.
When I remove the geom_segment of the first graph, printers make a good job.
first one (not working properly):
ggplot(data_up, aes(x=PMF_TE2)) +
geom_path(aes(y=Eco_CLD_ChBminA_Calc),colour="black",size=0.1)+
geom_segment(aes(x = PMF_TE2[900], y = Eco_CLD_ChBminA_Calc[900], xend = PMF_TE2[1000], yend = Eco_CLD_ChBminA_Calc[1000]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = PMF_TE2[4200], y = Eco_CLD_ChBminA_Calc[4200], xend = PMF_TE2[4300], yend = Eco_CLD_ChBminA_Calc[4300]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
coord_cartesian(xlim=c(100,300),ylim = c(0,600))+
scale_x_continuous(expand = c(0, 0))+
ylab("NO2 upstream [ppm]") +
xlab("temperature [deg C]")+
theme2
and second one (working properly):
ggplot(df, aes(x=Deg)) +
geom_path(aes(y=NOxu.Bu30.MDup-NOu.Bu30.MDup),colour="red2",size=0.3)+
geom_path(aes(y=NOxu.Bu30.MDdown-NOu.Bu30.MDdown),colour="red2",size=0.3)+
geom_path(aes(y=NOxd.Bu30.MDup-NOd.Bu30.MDup),colour="springgreen4",size=0.3)+
geom_path(aes(y=NOxd.Bu30.MDdown-NOd.Bu30.MDdown),colour="springgreen4",size=0.3)+
geom_path(aes(y=NOxu.Bu00.MDup-NOu.Bu00.MDup),colour="navyblue",size=0.3, linetype="dashed")+
geom_path(aes(y=NOxu.Bu00.MDdown-NOu.Bu00.MDdown),colour="navyblue",size=0.3, linetype="dashed")+
geom_path(aes(y=NOxd.Bu00.MDup-NOd.Bu00.MDup),colour="violetred",size=0.3, linetype="dashed")+
geom_path(aes(y=NOxd.Bu00.MDdown-NOd.Bu00.MDdown),colour="violetred",size=0.3, linetype="dashed")+
geom_segment(aes(x = Deg[50], y = NOxu.Bu30.MDup[50]-NOu.Bu30.MDup[50], xend = Deg[55], yend = NOxu.Bu30.MDup[55]-NOu.Bu30.MDup[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxu.Bu30.MDdown[50]-NOu.Bu30.MDdown[50], xend = Deg[55], yend = NOxu.Bu30.MDdown[55]-NOu.Bu30.MDdown[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="first",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxd.Bu30.MDdown[50]-NOd.Bu30.MDdown[50], xend = Deg[55], yend = NOxd.Bu30.MDdown[55]-NOd.Bu30.MDdown[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="first",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxd.Bu30.MDup[50]-NOd.Bu30.MDup[50], xend = Deg[55], yend = NOxd.Bu30.MDup[55]-NOd.Bu30.MDup[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxu.Bu00.MDup[50]-NOu.Bu00.MDup[50], xend = Deg[55], yend = NOxu.Bu00.MDup[55]-NOu.Bu00.MDup[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxu.Bu00.MDdown[50]-NOu.Bu00.MDdown[50], xend = Deg[55], yend = NOxu.Bu00.MDdown[55]-NOu.Bu00.MDdown[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="first",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxd.Bu00.MDup[50]-NOd.Bu00.MDup[50], xend = Deg[55], yend = NOxd.Bu00.MDup[55]-NOd.Bu00.MDup[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxd.Bu00.MDdown[50]-NOd.Bu00.MDdown[50], xend = Deg[55], yend = NOxd.Bu00.MDdown[55]-NOd.Bu00.MDdown[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="first",type="closed"))+
coord_cartesian(xlim=c(100,300),ylim = c(0,500))+
scale_x_continuous(expand = c(0, 0))+
ylab("NO2 [ppm]") +
xlab("temperature down stream DOC [deg C]")+
theme2
I can unfortunately not provide the data of each df for reproduction, but I need to print that damn graph...
In advance thank you for your help :)
r pdf ggplot2 printing
asked Mar 28 at 12:29
JulienJulien
215 bronze badges
I generate two graphs using ggplot2.
The first one is based on a 5000 entries data frame.
The second one is based on a 170 entries data frame.
On both graphs I have a mix of geom_path and geom_segment.
I generate a pdf with each graph.
When I send the first pdf to printers, printers stay stuck.
When I send the second pdf to printers, printers make a good job.
When I remove the geom_segment of the first graph, printers make a good job.
first one (not working properly):
ggplot(data_up, aes(x=PMF_TE2)) +
geom_path(aes(y=Eco_CLD_ChBminA_Calc),colour="black",size=0.1)+
geom_segment(aes(x = PMF_TE2[900], y = Eco_CLD_ChBminA_Calc[900], xend = PMF_TE2[1000], yend = Eco_CLD_ChBminA_Calc[1000]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = PMF_TE2[4200], y = Eco_CLD_ChBminA_Calc[4200], xend = PMF_TE2[4300], yend = Eco_CLD_ChBminA_Calc[4300]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
coord_cartesian(xlim=c(100,300),ylim = c(0,600))+
scale_x_continuous(expand = c(0, 0))+
ylab("NO2 upstream [ppm]") +
xlab("temperature [deg C]")+
theme2
and second one (working properly):
ggplot(df, aes(x=Deg)) +
geom_path(aes(y=NOxu.Bu30.MDup-NOu.Bu30.MDup),colour="red2",size=0.3)+
geom_path(aes(y=NOxu.Bu30.MDdown-NOu.Bu30.MDdown),colour="red2",size=0.3)+
geom_path(aes(y=NOxd.Bu30.MDup-NOd.Bu30.MDup),colour="springgreen4",size=0.3)+
geom_path(aes(y=NOxd.Bu30.MDdown-NOd.Bu30.MDdown),colour="springgreen4",size=0.3)+
geom_path(aes(y=NOxu.Bu00.MDup-NOu.Bu00.MDup),colour="navyblue",size=0.3, linetype="dashed")+
geom_path(aes(y=NOxu.Bu00.MDdown-NOu.Bu00.MDdown),colour="navyblue",size=0.3, linetype="dashed")+
geom_path(aes(y=NOxd.Bu00.MDup-NOd.Bu00.MDup),colour="violetred",size=0.3, linetype="dashed")+
geom_path(aes(y=NOxd.Bu00.MDdown-NOd.Bu00.MDdown),colour="violetred",size=0.3, linetype="dashed")+
geom_segment(aes(x = Deg[50], y = NOxu.Bu30.MDup[50]-NOu.Bu30.MDup[50], xend = Deg[55], yend = NOxu.Bu30.MDup[55]-NOu.Bu30.MDup[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxu.Bu30.MDdown[50]-NOu.Bu30.MDdown[50], xend = Deg[55], yend = NOxu.Bu30.MDdown[55]-NOu.Bu30.MDdown[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="first",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxd.Bu30.MDdown[50]-NOd.Bu30.MDdown[50], xend = Deg[55], yend = NOxd.Bu30.MDdown[55]-NOd.Bu30.MDdown[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="first",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxd.Bu30.MDup[50]-NOd.Bu30.MDup[50], xend = Deg[55], yend = NOxd.Bu30.MDup[55]-NOd.Bu30.MDup[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxu.Bu00.MDup[50]-NOu.Bu00.MDup[50], xend = Deg[55], yend = NOxu.Bu00.MDup[55]-NOu.Bu00.MDup[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxu.Bu00.MDdown[50]-NOu.Bu00.MDdown[50], xend = Deg[55], yend = NOxu.Bu00.MDdown[55]-NOu.Bu00.MDdown[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="first",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxd.Bu00.MDup[50]-NOd.Bu00.MDup[50], xend = Deg[55], yend = NOxd.Bu00.MDup[55]-NOd.Bu00.MDup[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="last",type="closed"))+
geom_segment(aes(x = Deg[50], y = NOxd.Bu00.MDdown[50]-NOd.Bu00.MDdown[50], xend = Deg[55], yend = NOxd.Bu00.MDdown[55]-NOd.Bu00.MDdown[55]), colour = "gray33",size=0.3, linetype="solid",arrow = arrow(length = unit(0.12, "cm"),ends="first",type="closed"))+
coord_cartesian(xlim=c(100,300),ylim = c(0,500))+
scale_x_continuous(expand = c(0, 0))+
ylab("NO2 [ppm]") +
xlab("temperature down stream DOC [deg C]")+
theme2
I can unfortunately not provide the data of each df for reproduction, but I need to print that damn graph...
In advance thank you for your help :)
r pdf ggplot2 printing
r pdf ggplot2 printing
asked Mar 28 at 12:29
JulienJulien
215 bronze badges
asked Mar 28 at 12:29
JulienJulien
215 bronze badges
asked Mar 28 at 12:29
JulienJulien
215 bronze badges
asked Mar 28 at 12:29
JulienJulien
215 bronze badges
asked Mar 28 at 12:29
JulienJulien
215 bronze badges
215 bronze badges
add a comment
|
add a comment
|
0
active
oldest
votes
Your Answer
StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");
StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);
else
createEditor();
);
function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/4.0/"u003ecc by-sa 4.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);
);
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55397687%2fgeom-segment-block-printer-when-printing-a-pdf%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
0
active
oldest
votes
0
active
oldest
votes
active
oldest
votes
active
oldest
votes
Is this question similar to what you get asked at work? Learn more about asking and sharing private information with your coworkers using Stack Overflow for Teams.
Is this question similar to what you get asked at work? Learn more about asking and sharing private information with your coworkers using Stack Overflow for Teams.
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55397687%2fgeom-segment-block-printer-when-printing-a-pdf%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
