Генерация цепочек из двух графов вместе

Question

Я пытаюсь хранить распределение и сюжет QQ рядом. Если я запускаю линии одновременно, выбирая их, я вижу график, каким бы я хотел его видеть. Если я попытаюсь запустить его цепочкой и сохранить в переменной, произойдет сбой.

Ошибка:

Error in par(mfrow = c(1, 2)) + hist(real_estate_db$debt, main = "Left Skewed Distribution",  : 
  non-numeric argument to binary operator

Код:

graph_debt <- par(mfrow=c(1,2)) +
  hist(real_estate_db$debt, main="Left Skewed Distribution", xlab="Debt", col="#FA5858") +
  qqnorm(real_estate_db$debt, col="blue") +
  qqline(real_estate_db$debt, col="red")

Как я могу сохранить этов переменную?

Спасибо!

Answer 1

https://cran.r -project.org / web / packages / cowplot / vignettes / creation.html

library(dplyr)
library(cowplot)
p1 <- ggplot(mtcars, aes(disp, mpg)) + 
  geom_point()
p2 <- ggplot(mtcars, aes(qsec, mpg)) +
  geom_point()

plot_grid(p1, p2, labels = c('A', 'B'), label_size = 12)