plotly не показывает названия нескольких участков в R

Question

Я пытаюсь разложить 2 участка вместе, используя ggplot2 и plotly. Вот что я пробовал:

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) 

Приветствия,

Branden