如何在奇数分面 ggplot 中的空白处注释一些文本。
让我们有一个多面的 ggplot 数据如下,有 2 行和 2 列。所以有空格代替 2 行,2 列。
df<- data.frame(Ara = rep("XTX", each = 3),
Len = c(744, 750, 755),
Mon = c("Sep", "Oct","Nov"),
Value=c(11.224,10.15,4.23))
df
facetplot<-ggplot(df, aes(x=Value, y=Len, shape=Ara))+
geom_point(size=5.0)+
theme(legend.position = c(.7, .4), legend.direction="vertical")+
facet_wrap(~Mon,scales="free_x", nrow=2)
facetplot
现在我试图在空间中注释一些文本,但不能(如图像中的红色所写)。我正在为带注释的文本寻找类似于 legend.position 的东西。有没有人对此有任何想法。或者可能的解决方法是什么。
谢谢你。
最佳答案
创建情节后,只需使用
print(facetplot)
grid.text("your text", x = 0.75, y = 0.25)
见
?grid.text
有关定位的详细信息。默认坐标系是整个屏幕设备,左下角为 (0,0),右上角为 (1,1)。
关于r - 如何在facet ggplot的空白区域定位注释文本,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/29594348/