为图例添加标题

Question

我的ggplots没有自己的图例，因为我的ggplots是迭代更新的。无论如何，我想要一个整体图例，所以我使用以下代码：

grid.arrange(
 arrangeGrob(grobs=plot,ncol=2,left=textGrob(colnames(data)[i],rot=90),
  bottom=legendGrob(labels=colnames(data [other_cors[,1]],pch=other_cors[,1],
  ncol=length(others),gp=gpar(col=other_cors[,1],cex=0.9)),
  right=legendGrob(labels=other_cors[,2],pch=15,nrow=length(others),
  gp=gpar(col=other_cors[,1],cex=0.9)),top=textGrob(paste("Associations with ",
  colnames(data)[i],sep=""),gp=gpar(fontface="bold"))
 )
)

这样的情节是：multiple ggplot

我的问题是我不知道如何在右侧创建的图例中添加标题。有没有办法在红色正方形和0.83线上方添加字符串？还是有办法在同一侧有两个Grob，例如textGrob和legendGrob？

我希望它看起来像这样：Ideal plot

以下是必要时用于创建ggplots的代码：

others = 1:NCOL(my_bones)
others = others[-i]
plot=list()
for (k in 1:2){
if (k==1){
data = my_bones
title = "Raw"
} else {
data = standard_bones
title = "Standardized"
}
for (j in others){
 if (j==min(others)){
  plot[[k]] = ggplot(data=data,mapping=aes(x=data[,others],y=data[,i]))+
    geom_point(x=data[,j],y=data[,i],col=j,shape=j,cex=3)+
    theme_test()+ labs(title=title)+
    theme(axis.title.x=element_blank(),
          axis.ticks.x=element_blank(),
          axis.title.y=element_blank(),
          axis.ticks.y=element_blank())+
    xlim(range(data[,others]))+
    ylim(range(data[,i]))
 } else {
  plot[[k]] = plot[[k]]+ 
    geom_point(x=data[,j],y=data[,i],col=j,shape=j,cex=3)
 }
 model = colnames(data)
 model = paste("`",model[i],"`","~","`",model[j],"`",sep="")
 model = lm(as.formula(model),data=data)
 beta = summary(model) 
 beta = beta$coefficients 
 beta = beta[,1] 
 plot[[k]] = plot[[k]]+
   geom_abline(intercept=beta[1],slope=beta[2],col=j,cex=1)
 }
}
other_cors = cbind(others,round(cors[others,i],2))
other_cors = other_cors[order(other_cors[,2],decreasing=T),]

Answer 1

通过在每个单独的地块上添加图例标题，我得到了与工作类似的东西。因此，如果您添加

 + labs(col = "legend title",
        shape = "legend title"
        )

它应该工作。只要您在每个情节中映射的每种美感都有相同的标签，grid.arrange()应该添加一个图例标题