Rで解析：ggplotオブジェクトをいろいろプロット「bluepRint」パッケージ

複数のggplot2のオブジェクトを簡単にプロットできるパッケージの紹介です。プロット領域と体裁さえ決めてしまえば、定型的な繰り返しの出力に便利だと思います。

パッケージバージョンは0.0.0.9000。実行コマンドはR version 4.2.2で確認しています。

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

下記、コマンドを実行してください。ggplot2パッケージの最新バージョンをインストールしています。

#パッケージのインストール
install.packages("devtools")
devtools::install_github("zaczap/bluepRint")

実行コマンド

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

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

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
n <- 30
TestData <- data.frame(Group = sample(paste0("Group", 1:5), n, replace = TRUE),
                       Data1 = rnorm(n),
                       Data2 = rnorm(n) + rnorm(n) + rnorm(n),
                       Data3 = sample(0:1, n, replace = TRUE),
                       Data4 = sample(LETTERS[1:26], n, replace = TRUE))
#######

###ggplot2&#12398;&#12458;&#12502;&#12472;&#12455;&#12463;&#12488;&#12434;&#20316;&#25104;#####
#&#31665;&#12402;&#12370;&#22259;
BoxPlot <- qplot(data = TestData, x = Group, y = Data1, fill = Group, geom = "boxplot")
#&#25955;&#24067;&#22259;
PointPlot <- qplot(data = TestData, x = Data2, y = Data1, color = Group, geom = "point") +
  ggtitle("TEST")
#&#26834;&#12464;&#12521;&#12501;
BarPlot <- qplot(data = TestData, x = Data4, fill = Data4, geom = "bar") +
  guides(fill = "none")
#&#26834;&#12464;&#12521;&#12501;&#12434;Group&#12391;&#20998;&#21106;
FacetBarPlot <- qplot(data = TestData, x = Data4, fill = Data4, geom = "bar") +
  facet_wrap(~Group, nrow = 1) + guides(fill = "none")
########

#&#12464;&#12521;&#12501;&#12434;&#27178;&#20006;&#12403;&#12395;&#37197;&#32622;:blueprint&#12467;&#12510;&#12531;&#12489;
#&#37197;&#32622;&#25351;&#23450;:layout&#12458;&#12503;&#12471;&#12519;&#12531;;&#27178;&#26041;&#21521;"line",2*2"square",
#&#24038;&#12362;&#12424;&#12403;&#21491;&#20596;&#12395;&#22823;&#12365;&#12367;&#20596;&#38754;&#12395;&#19978;&#19979;&#12395;&#20108;&#12388;&#12503;&#12525;&#12483;&#12488;;"left_feature"
#A,B,C,D&#12398;&#12464;&#12521;&#12501;&#12521;&#12505;&#12523;&#12434;&#20184;&#19982;:label&#12458;&#12503;&#12471;&#12519;&#12531;
#&#27178;&#12395;2&#12388;&#12503;&#12525;&#12483;&#12488;
blueprint(layout = "line", BoxPlot, PointPlot, label = TRUE)
#&#27178;&#12395;3&#12388;&#12503;&#12525;&#12483;&#12488;
blueprint(layout = "line", BoxPlot, PointPlot, BarPlot, label = TRUE)
#2*2&#12391;&#12503;&#12525;&#12483;&#12488;
blueprint(layout = "square", BoxPlot, PointPlot, BarPlot, FacetBarPlot, label = TRUE)
#&#24038;&#20596;&#12395;&#22823;&#12365;&#12367;&#21491;&#20596;&#12395;&#19978;&#19979;&#12395;&#20108;&#12388;&#12503;&#12525;&#12483;&#12488;
blueprint(layout = "left_feature", BoxPlot, PointPlot, BarPlot, label = TRUE)