Question

我使用ggplot2生成了两个图。第一个基于5000个条目数据帧。第二个是基于170个条目的数据帧。在两个图上，我都混合了geom_path和geom_segment。我为每个图生成一个pdf。当我将第一个pdf发送给打印机时，打印机会卡住。当我将第二个pdf发送给打印机时，打印机做得很好。当我删除第一张图的geom_segment时，打印机做得很好。

第一个（无法正常工作）：

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

第二个（正常工作）：

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

不幸的是，我无法提供每个df的数据进行再现，但是我需要打印该死的图...

预先感谢您的帮助：）

打印pdf时geom_segment块打印机

0 个答案: