web-dev-qa-db-ja.com

par（）関数またはlayout（）関数を使用したggplot2（単一のプロットではない）の結合プロット？

私はggplotを組み合わせるためにpar（）またはlayout（）関数を使用することを考えてきました。これらの機能を使用することはできますか？

散布図用のggplotとヒストグラム用のggplotをプロットしたいとします。そして、私は2つのプロットを組み合わせたいです（単一のプロットではありません）。該当しますか？

Ggplot関数を使用せずに、Rで簡単なプロットを試してみました。そして実際に動作します。

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を使用してプロットを結合しようとすると、出力が得られません。

rlayoutggplot2par
24
Al-Ahmadgaid Asaad
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))
32
Maiasaura

私がこれにもっと注意する価値があると思うユーティリティは、以前はlayOutパッケージのwqです（大文字の「O」に注意してください）。それはwqパッケージから削除されたので、以下のコードを配置し、一般的なggplotスタイルに一致するようにlay_outに名前を変更しました。プロットが行と列に配置されたさまざまなサイズであるという点で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))

enter image description here

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ミラーのコミット履歴 から取得。）

13
Gregor Thomas

grid.layoutに関する答えは機能し、私はそれを使用し、私はそれを賛成票で投票しました。しかし、私は通常、この解決策を非常に面倒でエラーが発生しやすいと感じており、これを行うほとんどのggplot2愛好家が定期的にこれを関数にラップしていると思います。以前の検索でそのようなラッピング関数をいくつか見つけましたが、私の現在の主な解決策は gridアドオンパッケージ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)

実際の「プロットを1つのグラフィックに結合する」コードが（gridExtraをロードした後）1行であったことに注目してください。プロットをリストに入れるのは余分な行だったと主張するかもしれませんが、実際には別の方法として使用することもできました

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

Ggplotの数が少ない場合は、これが望ましい場合があります。ただし、n_plots > 4の場合は、すべてに名前を付けて入力する必要があることに憤慨し始めます。

7
Paul McMurdie