无法正确地将标签添加到 ggplot 图列表中答案

【问题标题】：Unable to correctly add labels to a list of ggplot graphs无法正确地将标签添加到 ggplot 图列表中
【发布时间】：2019-10-14 13:15:39
【问题描述】：

我正在尝试用 ggplot 组装一个多面板箱线图。为了有一个一般的结构，我正在生成一个图列表并绘制它们。我还想为每个箱线图添加报告重要性组的字母。一切正常，除了所有箱线图都显示了在循环的最后一次迭代中计算的字母。

我在下面发布了一个示例，在该示例中我只是尝试添加报告循环迭代次数的字母，并且正如您所看到的，而不是报告第一个循环的“Plot 1”和第二个循环的“Plot 2”，它总是绘制第二个。

我使用的代码如下：

library(ggplot2)
library(gridExtra)
mydata<-data.frame(values=c(1,4,5,6,4,2,4,7,3,4,5,6,4,4,2,1,3,6,4,1,2,5,4,3,4,2,1,3,4,2),group=c(rep("A",15),rep("B",15)))
mydata2<-data.frame(values=c(2,6,5,6,7,2,5,7,3,4,5,6,4,4,2,1,3,6,4,1,2,5,4,3,1,2,3,3,4,7),group=c(rep("A",15),rep("B",15)))
myp<-list()
for(aaa in 1:2)
{
if(aaa==1) mydata<-mydata else mydata<-mydata2
myp[[aaa]]<-ggplot(mydata, aes(x=group, y=values)) +
  geom_boxplot(outlier.shape=NA) + #avoid plotting outliers twice
  geom_jitter(position=position_jitter(width=.1, height=0)) +
  geom_text(aes(x=1, y=max(values)-0.05*max(values),label=paste("Plot",aaa))) +
  geom_text(aes(x=2, y=max(values)-0.05*max(values),label=paste("Plot",aaa)))
}
do.call(grid.arrange,myp)

我做错了什么？看起来 do.call 与 grid.arrange 的使用会导致 geom_text 出现问题（但不会出现在绘图上，这在两个循环中是不同的）。我不想手动编写所有绘图函数，因为我至少有三个多面板图，每个图都有 4 个箱线图。

【问题讨论】：

标签： r ggplot2 gridextra geom-text do.call

【解决方案1】：

我不完全确定geom_text 出了什么问题，但如果您改用annotate（应该完全用于此目的），则一切正常。

for(aaa in 1:2){
  print(aaa)
  if(aaa==1) df<-mydata else df<-mydata2
  myp[[aaa]]<-ggplot(df, aes(x=group, y=values)) +
    geom_boxplot(outlier.shape=NA) + #avoid plotting outliers twice
    geom_jitter(position=position_jitter(width=.1, height=0)) +
    annotate("text", x=1, y=max(df$values)-0.05*max(df$values),label=paste("Plot",aaa)) +
    annotate("text", x=2, y=max(df$values)-0.05*max(df$values),label=paste("Plot",aaa))
}

【讨论】：