Geekly Articles each Day

ggplot2：複数のグラフを1つに簡単に結合する方法、パート2

この記事では、R ggpubr 、 cowplot、およびgridExtraパッケージで利用可能なヘルパー関数を使用して、1つ以上の図にいくつかのggplotグラフを組み合わせる方法を順を追って説明します 。 また、結果のグラフをファイルにエクスポートする方法についても説明します。

行または列を並べ替える


ggpubrパッケージを使用する


ネストされたggarrange()関数を使用して、行または列のグラフの配置を変更します。

たとえば、次のコードは次のことを行います。


 ggarrange(sp, #      ggarrange(bxp, dp, ncol = 2, labels = c("B", "C")), #         nrow = 2, labels = "A" #    )



カウプロットパッケージの使用


次の関数の組み合わせ[ カウプロットパッケージから]を使用して、指定されたサイズの特定の場所にグラフィックを配置できます： ggdraw() + draw_plot() + draw_plot_label()

ggdraw（）。 空のキャンバスを初期化します。


 ggdraw()

デフォルトでは、座標が0から1に変わり、ポイント（0、0）はキャンバスの左下隅にあることに注意してください（下の図を参照）。


draw_plot（）。 キャンバス上のどこかにグラフがあります：


 draw_plot(plot, x = 0, y = 0, width = 1, height = 1)


draw_plot_label（）。 グラフの右上隅にラベルを追加します


関連付けられた座標を持つラベルベクトルを使用できます。

 draw_plot_label(label, x = 0, y = 1, size = 16, ...)


たとえば、この方法では、サイズの異なる複数のグラフを特定の場所に結合できます。

 library("cowplot") ggdraw() + draw_plot(bxp, x = 0, y = .5, width = .5, height = .5) + draw_plot(dp, x = .5, y = .5, width = .5, height = .5) + draw_plot(bp, x = 0, y = 0, width = 1, height = 0.5) + draw_plot_label(label = c("A", "B", "C"), size = 15, x = c(0, 0.5, 0), y = c(1, 1, 0.5))



gridExtraパッケージを使用する


[ gridExtra ]のarrangeGrop()関数は、行または列のグラフの配置を変更するのに役立ちます。

たとえば、次のコードは次のことを行います。


 library("gridExtra") grid.arrange(sp, #         arrangeGrob(bxp, dp, ncol = 2),#         nrow = 2) #



grid.arrange()関数では、 layout_matrix引数を使用して複雑なグラフlayout_matrixを作成することもできlayout_matrix 。

以下のコードでは、 layout_matrixは2x2マトリックス（2行2列）です。 最初の行はすべて単位で、最初のグラフは2列を占めます。 2行目にはグラフ2と3が含まれ、それぞれが独自の列を占めています。

 grid.arrange(bp, #      bxp, sp, #     ncol = 2, nrow = 2, layout_matrix = rbind(c(1,1), c(2,3)))



また、ヘルパー関数draw_plot_label() [ カウプロット ]を使用して、 grid.arrange()関数の出力に注釈を追加することもできます。

grid.arrange()またはarrangeGrob()関数grid.arrange() arrangeGrob()型）のgrid.arrange()注釈を簡単に追加するにgrid.arrange()最初にas_ggplot()関数[ ggpubr ]を使用してそれらをggplot型に変換する必要があります。 その後、 draw_plot_label()関数を[to cowplot ]に適用できます。

 library("gridExtra") library("cowplot") #    arrangeGrob #   gtable (gt) gt <- arrangeGrob(bp, #      bxp, sp, #     ncol = 2, nrow = 2, layout_matrix = rbind(c(1,1), c(2,3))) #      p <- as_ggplot(gt) + #   ggplot draw_plot_label(label = c("A", "B", "C"), size = 15, x = c(0, 0, 0.5), y = c(1, 0.5, 0.5)) #   p



上記のコードでは、 arrangeGrob()代わりに、 grid.arrange()を使用しarrangeGrob() 。 これら2つの関数の主な違いは、 grid.arrange()が順序付きグラフを自動的に表示することです。 グラフを描画する前に注釈をグラフに追加したかったため、この場合は、 arrangeGrob()関数を使用することをおarrangeGrob()します。

グリッドパッケージの使用


gridパッケージでは、 grid.layout()関数を使用して、グラフの複雑な相互配置を指定できます。 また、領域またはスコープを指定するviewport()ヘルパー関数も提供します。 print()関数は、特定の領域にチャートを配置するために使用されます。

手順は次のように説明できます。

  1. グラフの作成：p1、p2、p3、...
  2. grid.newpage()関数を使用して新しいページに移動します
  3. 2X2レイアウトの作成-列数= 2; 行数= 2
  4. スコープの設定：グラフィックデバイス上の長方形の領域
  5. スコープ内のグラフを印刷する

 library(grid) #     grid.newpage() #  : nrow = 3, ncol = 2 pushViewport(viewport(layout = grid.layout(nrow = 3, ncol = 2))) #        define_region <- function(row, col){ viewport(layout.pos.row = row, layout.pos.col = col) } #   print(sp, vp = define_region(row = 1, col = 1:2)) #     print(bxp, vp = define_region(row = 2, col = 1)) print(dp, vp = define_region(row = 2, col = 2)) print(bp + rremove("x.text"), vp = define_region(row = 3, col = 1:2))



結合されたggplotグラフィックスに共通の凡例を使用する


いくつかの順序付けられたグラフに共通の凡例を指定するには、 ggarrange()関数[ ggpubr内 ]を次の引数とともに使用できます。


 ggarrange(bxp, dp, labels = c("A", "B"), common.legend = TRUE, legend = "bottom")



無条件の分布密度プロットを含む散布図


 #  ,    ("Species") sp <- ggscatter(iris, x = "Sepal.Length", y = "Sepal.Width", color = "Species", palette = "jco", size = 3, alpha = 0.6)+ border() #      x ( )   y ( ) xplot <- ggdensity(iris, "Sepal.Length", fill = "Species", palette = "jco") yplot <- ggdensity(iris, "Sepal.Width", fill = "Species", palette = "jco")+ rotate() #   yplot <- yplot + clean_theme() xplot <- xplot + clean_theme() #   ggarrange(xplot, NULL, sp, yplot, ncol = 2, nrow = 2, align = "hv", widths = c(2, 1), heights = c(1, 2), common.legend = TRUE)



次のパートでは：

Source: https://habr.com/ru/post/J337598/

More articles:


All Articles