添加主标题多个情节ggarange

编程问答 2022-05-30

问题描述

我有一个数据框 dt，其中包含有关潜水行为和三个不同区域 BA,MI,FA 的数据。 我想使用 ba,mi,fa 将主标题添加到我的多个图 (ggarrange)，但我没有找到有用的东西。 我想在我的 3 个图的顶部添加主标题“潜水深度（米）”

library(data.table)
library(ggplot2)

dt = data.table(area= c("BA","FA","MI"),dmean = c(30,50,200,76,467,87,98,10,240,176,89,400,340,40,54,205),sex = c("F","M"))

ba<-ggplot(dt[dt$area=="BA",],mapping = aes(y = dmean,x = sex,color = sex,fill=sex))+
  geom_violin(alpha=.5,scale = "width",trim = FALSE,position=position_dodge(1))+
  ggtitle("Dive mean at BA and sex")+
  scale_y_log10(breaks = c(10,30,100,300,500)) +   
  scale_fill_discrete(name="Social class",labels=c("Female","Male"))+
  xlab("Habitat")+
  ylab("Dive depth (m)")+
  theme_bw();ba

mi<-ggplot(dt[dt$area=="MI",position=position_dodge(1))+
  ggtitle("Dive mean at MI and sex")+
  scale_y_log10(breaks = c(10,"Male"))+
  xlab("Habitat")+
  ylab("Dive depth (m)")+
  theme_bw();mi

fa<-ggplot(dt[dt$area=="FA",position=position_dodge(1))+
  ggtitle("Dive mean at FA and sex")+
  scale_y_log10(breaks = c(10,"Male"))+
  xlab("Habitat")+
  ylab("Dive depth (m)")+
  theme_bw();fa

t<-ggarrange(ba,fa,ncol=3,nrow=1,common.legend = TRUE,legend="bottom");t

#I tried insert:
 ggtitle = "Dive depths (m)"
 top = "Dive depths (m)")
 top=textGrob("Dive depths (m)"

有人知道怎么做吗？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

ggplot2ggpubrplotrr