grid.arrange関数に入れたいグラフがいくつかあります。ただし、グリッド内に必要なグラフの数を事前に把握しているとは限らないため、すべてのgrid.arrange関数を変更するためにコードを一貫して実行する必要はありません。
gg1 <- ggplot(mtcars, aes(cyl)) + geom_bar()
gg2 <- ggplot(mpg, aes(class, hwy)) + geom_bar(stat = "identity")
gg3 <- ggplot(mpg, aes(hwy)) + geom_area(stat = "bin")
grid.test <- grid.arrange(gg1,gg2,gg3)
すでに貼り付けてみました。
grid.arrange(paste("gg", 1:3, sep= ""))
また、それらをリストに入れて解析しようとしましたが、grid.arrangeで未定義の量を取得することはできません。特にgrid.arrangeは、要素を取得した場合にのみそれを受け入れるため、複数選択することはできません。
ggtest <- list(gg1,gg2,gg3)
grid.test <- grid.arrange(ggtest[[1:3]])
添え字エラーを返します
ggtest <- list(gg1,gg2,gg3)
grid.test <- grid.arrange(ggtest[1:3])
「gList」エラーで許可された「grobs」のみを返します。
ここで助けがあれば歓迎します。おそらく私はそれを間違った方法で見ているのでしょうか、それとも使用すべき別の関数がありますか?
library(gridExtra)
library(ggplot2)
gg1 <- ggplot(mtcars, aes(cyl)) + geom_bar()
gg2 <- ggplot(mpg, aes(class, hwy)) + geom_bar(stat = "identity")
gg3 <- ggplot(mpg, aes(hwy)) + geom_area(stat = "bin")
ggtest <- mget(paste0("gg", 1:3))
do.call(grid.arrange, ggtest)
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加