Комбинированный график ggplot2 (не на одном графике) с использованием функции par() или layout()?

Question

Я думал об использовании функций par() или layout() для объединения ggplots. Можно ли будет использовать эти функции?

Скажем, я хочу построить ggplot для scatterplot и ggplot для гистограммы. И я хочу объединить два сюжета (НЕ В ОДНОМ УЧАСТКЕ). Это применимо?

Я попробовал это с простым построением графиков в R, без использования функций ggplot. И это работает на самом деле.

Вот пример из Quick-R, ссылка: http://www.statmethods.net/advgraphs/layout.html

# 4 figures arranged in 2 rows and 2 columns
attach(mtcars)
par(mfrow=c(2,2))
plot(wt,mpg, main="Scatterplot of wt vs. mpg")
plot(wt,disp, main="Scatterplot of wt vs disp")
hist(wt, main="Histogram of wt")
boxplot(wt, main="Boxplot of wt")

# One figure in row 1 and two figures in row 2
attach(mtcars)
layout(matrix(c(1,1,2,3), 2, 2, byrow = TRUE))
hist(wt)
hist(mpg)
hist(disp)

Но когда я пытаюсь использовать ggplot и комбинировать график, я не получаю вывод.

Answer 1

library(ggplot2)
library(grid)


vplayout <- function(x, y) viewport(layout.pos.row = x, layout.pos.col = y)


plot1 <- qplot(mtcars,x=wt,y=mpg,geom="point",main="Scatterplot of wt vs. mpg")
plot2 <- qplot(mtcars,x=wt,y=disp,geom="point",main="Scatterplot of wt vs disp")
plot3 <- qplot(wt,data=mtcars)
plot4 <- qplot(wt,mpg,data=mtcars,geom="boxplot")
plot5 <- qplot(wt,data=mtcars)
plot6 <- qplot(mpg,data=mtcars)
plot7 <- qplot(disp,data=mtcars)

# 4 figures arranged in 2 rows and 2 columns
grid.newpage()
pushViewport(viewport(layout = grid.layout(2, 2)))
print(plot1, vp = vplayout(1, 1))
print(plot2, vp = vplayout(1, 2))
print(plot3, vp = vplayout(2, 1))
print(plot4, vp = vplayout(2, 2))


# One figure in row 1 and two figures in row 2
grid.newpage()
pushViewport(viewport(layout = grid.layout(2, 2)))
print(plot5, vp = vplayout(1, 1:2))
print(plot6, vp = vplayout(2, 1))
print(plot7, vp = vplayout(2, 2))

Answer 2

Утилита, я думаю, заслуживает большего внимания, потому что это layOut ранее этого wq пакет (обратите внимание на заглавную "О"). С тех пор он был удален из wq пакет, поэтому я поместил код ниже и переименовал его lay_out чтобы соответствовать типичному стилю ggplot. Это как base::layout тем, что графики могут быть разных размеров, выложенными в строках и столбцах. Каждый аргумент lay_out 3-элементный список, состоящий из графика, индексов строк, в которых он будет построен, и индексов столбцов, в которых он будет построен.

Например, используя графики @Paul McMurdie,

lay_out(list(plot1, 1, 1),
        list(plot2, 1, 2),
        list(plot3, 2, 1),
        list(plot4, 2, 2),
        list(plot5, 3, 1:2),
        list(plot6, 4, 1:2),
        list(plot7, 1:2, 3))

lay_out = function(...) {    
    x <- list(...)
    n <- max(sapply(x, function(x) max(x[[2]])))
    p <- max(sapply(x, function(x) max(x[[3]])))
    grid::pushViewport(grid::viewport(layout = grid::grid.layout(n, p)))    

    for (i in seq_len(length(x))) {
        print(x[[i]][[1]], vp = grid::viewport(layout.pos.row = x[[i]][[2]], 
            layout.pos.col = x[[i]][[3]]))
    }
} 

(Код получен из предыдущей версии wq пакет, из истории коммитов на неофициальном зеркале Github CRAN.)

Answer 3

Ответ с участием grid.layout работает, я использовал это, и я проголосовал за это. Однако я обычно нахожу это решение слишком утомительным и подверженным ошибкам, и я подозреваю, что большинство энтузиастов ggplot2, которые делают это регулярно, обернули это в функцию. Я нашел несколько таких функций обертывания в предыдущих поисках, но мое текущее решение для рабочей лошадки находится в пакете аддонов сетки, называемомgridExtra, У него есть полезные аргументы, но настройки строк / столбцов по умолчанию часто бывают такими, как вы хотели:

library("ggplot2")
# Generate list of arbitrary ggplots
plot1 <- qplot(data = mtcars, x=wt, y=mpg, geom="point",main="Scatterplot of wt vs. mpg")
plot2 <- qplot(data = mtcars, x=wt, y=disp, geom="point",main="Scatterplot of wt vs disp")
plot3 <- qplot(wt,data=mtcars)
plot4 <- qplot(wt,mpg,data=mtcars,geom="boxplot")
plot5 <- qplot(wt,data=mtcars)
plot6 <- qplot(mpg,data=mtcars)
plot7 <- qplot(disp,data=mtcars)
# You might have produced myPlotList using instead lapply, mc.lapply, plyr::dlply, etc 
myPlotList = list(plot1, plot2, plot3, plot4, plot5, plot6, plot7)
library("gridExtra")
do.call(grid.arrange,  myPlotList)

Обратите внимание, что фактический код "объединить мои графики в одну графику" был одной строкой (после загрузки gridExtra). Вы можете утверждать, что помещение графиков в список было дополнительной строкой, но на самом деле я мог бы использовать альтернативно

grid.arrange(plot1, plot2, plot3, plot4, plot5, plot6, plot7)

Для небольшого количества ggplots это может быть предпочтительнее. Однако для n_plots > 4 вы начнете обижаться на необходимость назвать и напечатать их всех.