web-dev-qa-db-ja.com

ggplot2：do.call（）の引数としてgrid.arrange（）を使用してプロットレイアウトを定義します

次のような不均衡なプロットのグリッドを取得したい

require(ggplot2)
require(gridExtra)

df <- data.frame(value1 = rnorm(200),
                 value2 = rnorm(200),
                 value3 = rnorm(200),
                 value4 = rnorm(200))

p1 <- ggplot(df) + geom_density(aes(x=value1))
p2 <- ggplot(df) + geom_density(aes(x=value2))
p3 <- ggplot(df) + geom_density(aes(x=value3))
p4 <- ggplot(df) + geom_density(aes(x=value4))

grid.arrange(p1, arrangeGrob(p2,p3,p4, ncol=3), heights=c(2.5/4, 1.5/4), ncol=1)

enter image description here

しかし、関数を使用して

myplot <- function(i){
  p <- ggplot(df) + geom_density(aes_string(x=i))
  return(p)
}

およびlapply呼び出し

p <- lapply(c("value1","value2","value3","value4"), myplot)
do.call(grid.arrange, c(p))

この場合 grid.arrangeプロットを2行2列の行列に分布させます。しかし、私はアンバランスなレイアウトを取得したい

grid.arrange(p1, arrangeGrob(p2,p3,p4, ncol=3), heights=c(2.5/4, 1.5/4), ncol=1)
rggplot2gridextra
13
CptNemo

できるようになりました

grid.arrange(p1,p2,p3,p4, layout_matrix = rbind(c(1,1,1),c(2,3,4)))
23
baptiste