Блог

Я пытаюсь объединить 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() команде для этого. Есть идеи, как это можно исправить? Спасибо.

один из способов — использовать 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)
  

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

Бранден