Rで解析：プロットや画像の複数表示に便利です「multipanelfigure」パッケージ

「ggplo2パッケージ」で複数のプロットを自由に配置したい時に便利なパッケージの紹介です。

パッケージバージョンは2.1.2。実行コマンドはwindows 11のR version 4.2.1で確認しています。

パッケージのインストール

下記コマンドを実行してください。

#パッケージのインストール
install.packages("multipanelfigure")

Amazonアソシエイトの紹介

パフォーマンスを発揮するには体が資本です。ケトルベルとダンベルは多くの筋トレのメニュが可能です。また、ガーミンのvívosmart 5は色々な健康情報を取得できます。かなり良いです。

実行コマンド

詳細はコマンド、パッケージのヘルプを確認してください。

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("multipanelfigure")

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
n <- 500
TestData <- data.frame("Group" = sample(paste0("Group", 1:3),
                                        n, replace = TRUE),
                       "Data" = rnorm(n))
########

###&#12503;&#12525;&#12483;&#12488;&#20363;&#12398;&#20316;&#25104;#####
library("ggplot2")
BoxPlot <- function(i = rainbow(16)[sample(1:16, 1)])
{
  ggplot(TestData, aes(x = Group, y = Data)) +
    geom_boxplot(fill = i)
}
########

#&#12503;&#12525;&#12483;&#12488;&#21306;&#20998;&#12434;&#35373;&#23450;:multi_panel_figure&#12467;&#12510;&#12531;&#12489;
#&#21508;&#12503;&#12525;&#12483;&#12488;&#21306;&#20998;&#12398;&#24133;:width&#12458;&#12503;&#12471;&#12519;&#12531;
#&#21508;&#12503;&#12525;&#12483;&#12488;&#21306;&#20998;&#12398;&#39640;&#12373;:height&#12458;&#12503;&#12471;&#12519;&#12531;
#&#21306;&#20998;&#12398;&#21015;&#25968;:columns&#12458;&#12503;&#12471;&#12519;&#12531;
#&#21306;&#20998;&#12398;&#34892;&#25968;:rows&#12458;&#12503;&#12471;&#12519;&#12531;
PlotArea <- multi_panel_figure(width = 150, height = 150,
                                  columns = 3, rows = 3)
#&#30906;&#35469;
PlotArea

#&#21306;&#20998;&#12408;&#12503;&#12525;&#12483;&#12488;:fill_panel&#12467;&#12510;&#12531;&#12489;
#&#12503;&#12525;&#12483;&#12488;&#21306;&#20998;&#22793;&#25968;&#12392;fill_panel&#12467;&#12510;&#12531;&#12489;&#12434;%<>%&#12391;&#32331;&#12368;&#12398;&#12364;&#12509;&#12452;&#12531;&#12488;
for(i in 1:9){
  
  PlotArea %<>% fill_panel(panel = BoxPlot())
  
}
#&#30906;&#35469;
PlotArea

###&#20363;&#12360;&#12400;&#12371;&#12435;&#12394;&#20351;&#12356;&#26041;1#####
#&#12503;&#12525;&#12483;&#12488;&#21306;&#20998;&#12434;&#35373;&#23450;
PlotArea <- multi_panel_figure(width = 150, height = 150,
                                  columns = 3, rows = 3)
#&#12503;&#12525;&#12483;&#12488;&#21306;&#20998;&#12434;&#25351;&#23450;&#12375;&#12390;&#12503;&#12525;&#12483;&#12488;
#&#12503;&#12525;&#12483;&#12488;1
PlotArea %<>% fill_panel(panel = BoxPlot(), column = 1:2, row = 1:2)
#&#12503;&#12525;&#12483;&#12488;2
PlotArea %<>% fill_panel(panel = BoxPlot(), column = 3, row = 1:2)
#&#12503;&#12525;&#12483;&#12488;3-5
PlotArea %<>% fill_panel(panel = BoxPlot(), column = 1, row = 3)
PlotArea %<>% fill_panel(panel = BoxPlot(), column = 2, row = 3)
PlotArea %<>% fill_panel(panel = BoxPlot(), column = 3, row = 3)
#&#30906;&#35469;
PlotArea
########

出力例

・multi_panel_figureコマンド

・fill_panelコマンド

・例えばこんな使い方1

少しでも、あなたの解析が楽になりますように！！