блочный принтер geom_segment при печати PDF

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 для воспроизведения, но мне нужно распечатать этот чертов график ...

Заранее спасибо за вашу помощь:)