如何在facet ggplot的空白区域中定位注释文本

Question

如何在奇数编号的刻面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的注释文本。有没有人对此有任何想法。或者可能的工作是什么。 谢谢。

Answer 1

创建绘图后，只需使用

即可

print(facetplot)
grid.text("your text", x = 0.75, y = 0.25)

有关定位的详细信息，请参阅?grid.text。默认坐标系是整个屏幕设备，左下角为（0,0），右上角为（1,1）。

Answer 2

要修改grid.text的图形参数设置，例如字体颜色，字体，字体和大小...

grid.text("your text", x = 0.6, y = 0.15, gp = gpar(col="red", fontsize = 20, family = "Times", fontface = "italic"))