带文字和箭头的ggplot - 无法保存为pdf

Question

我试图使用geom_text来注释图形（密度图），在图形和geom_segment上放置一个标签，以便它将箭头指向一个元素。

当密度图基于合理数量的数据点（＆lt; = 1e4）时，一切都按预期工作（我可以使用ggsave导出为pdf ）但是当我有更多数据点（＆gt; = 1e5）时，绘图不会保存为pdf - 文件为空 - 尽管可以将绘图成功保存为一个png。

我也尝试了pdf设备，因为我可以在R中显示情节 - 但这也不起作用。

library(ggplot2)
library(gridExtra)

N=1e5
data=data.frame(x=rnorm(N),y=rexp(N))

p1<-ggplot(data,aes(x=x))+geom_density()+geom_text(aes(label="hello",x=0,y=0.2))+
geom_segment(aes(x=0.1, xend=1.25, y=0.2, yend=0.2),arrow = arrow(length = unit(0.2, "cm")))

p2<-ggplot(data,aes(x=y))+geom_density()+geom_text(aes(label="hello",x=0,y=0.2))+
geom_segment(aes(x=0.1, xend=1.25, y=0.2, yend=0.2),arrow = arrow(length = unit(0.2, "cm")))

pdf('test_device.pdf')
grid.arrange(p1,p2,ncol=2)
dev.off()

ggsave('test.pdf',arrangeGrob(p1,p2,ncol=2),height=7,width=10)

ggsave('test.png',arrangeGrob(p1,p2,ncol=2),height=7,width=10)

有关为何会发生这种情况的任何线索？