我使用annotation_custom()在我的情节下添加文字。但是,我无法弄清楚如何减小字体大小。显然,我尝试了geom_text(size= 8)
哪个不起作用& annotation_custom(size=8)
没有采用“大小”参数。如何更改annotation_custom()的字体大小?
df <- data.frame(x=seq(1:100), y=sort(rexp(100, 2)))
p= ggplot(df, aes(x=x, y=y)) +
geom_point()+
theme(plot.margin = unit(c(1,1,3,1), "cm"))+
ggtitle('Random Plot')
Text1 = textGrob('Additional suggestions:')
p1 = p + annotation_custom(grob = Text1, xmin = 0.2, xmax = 0.2, ymin = -0.3, ymax = -0.3)
gt <- ggplotGrob(p1)
gt$layout$clip[gt$layout$name=="panel"] <- "off"
grid.newpage()
grid.draw(gt)
任何信息都会非常有用,非常感谢!