在情节上没有显示R中多个图的标题

Question

我正在尝试使用ggplot2和plotly将2个绘图排列在一起。这就是我的尝试：

library(ggplot2)
library(plotly)

mt_mpg <- ggplot(data = mtcars)+
  geom_boxplot(aes(x = as.factor(cyl), y = mpg))+
  ggtitle("mpg vs cyl")

mt_disp <- ggplot(data = mtcars)+
  geom_boxplot(aes(x = as.factor(cyl), y = disp))+
  ggtitle("disp vs cyl")

subplot(mt_mpg, mt_disp)  

一切都很好但组合图的标题只包含＆＃34; disp vs cyl＆＃34;。我想将两个标题都包含在相应图表的顶部。但我没有在subplot()命令中看到任何选项。任何想法如何解决这个问题？感谢。

Answer 1

一种方法是使用facet_wrap代替ggtitle。例如：

df <- mtcars
df$lab1 <- 'mpg vs cyl'
df$lab2 <- 'disp vs cyl'

mt_mpg <- ggplot(df)+
  geom_boxplot(aes(x = as.factor(cyl), y = mpg))+
  facet_wrap(~lab1)

mt_disp <- ggplot(df)+
  geom_boxplot(aes(x = as.factor(cyl), y = disp))+
  facet_wrap(~lab2)

subplot(mt_mpg, mt_disp)

干杯，

博兰登