在情节上没有显示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)  

一切都很好，但组合图的标题只包含“disp vs cyl”。 我想将两个标题都包含在相应图表的顶部。 但我没有在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)

干杯，

布兰登