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

Question

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

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

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

Вот пример из Quick-R, Link: 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

Ответ с участием grid.layout работы, я использовал его, и я до проголосовал его. Тем не менее, я обычно считаю, что это решение слишком утомительно и подвержено ошибкам, и я подозреваю, что большинство энтузиастов ggplot2, которые это делают, регулярно завершают эту функцию. В предыдущих поисках я нашел несколько таких функций обертки, но мое текущее решение рабочей лошадки находится в grid addon package called 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 вы начнете возмущаться, чтобы назвать и набрать их все.

Answer 3

Утилита, я думаю, заслуживает большего внимания, так как это layOut, прежде чем пакет wq (обратите внимание на столицу «O»). С тех пор он был удален из пакета 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 пакета, от commit history on the unofficial Github CRAN mirror.)