Rで解析：ggplot2で連続してグラフを作成し、PDFで保存する例

Rの解析に役に立つ記事

2022.01.10

ggplot2で連続してグラフを作成し、作業フォルダにPDFで保存する例を紹介します。ggplot2パッケージを含む「tidyverse」パッケージを利用します。紹介で使用しているデータはパッケージに付属しているdiamondsです。

連続で同じ体裁のグラフを作成するときに役に立つ小技だと思います。

tidyverseのバージョンは1.3.1。windows 11のR version 4.1.2で動作を確認しています。

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

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

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
install.packages("tidyverse")

実行コマンドの紹介

ポイントは「tidyverse」パッケージに含まれる「purrr」パッケージのimapコマンドを使用することだと思います。非常に少ないコードで目的の作業が可能です。

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

#&#12487;&#12540;&#12479;&#12398;&#28310;&#20633;
PlotFig <- diamonds %>% 
  select(cut, carat, clarity) %>%
  mutate(cut = factor(cut)) %>%
  split(.$clarity) %>%
  imap(~ ggplot(.x, aes(x = cut, y = carat, fill = cut)) +
         geom_boxplot(outlier.shape = NA) + ggtitle(.y) +
         guides(col = "none") +
         theme(axis.text.x = element_text(angle = 45, hjust = 1)))

#pdf&#21270;
#&#20316;&#26989;&#12501;&#12457;&#12523;&#12480;&#12395;&#20445;&#23384;
pdf(file = paste0(str_sub(str_replace_all(Sys.Date(), "-", "."), 3), "_&#31665;&#12402;&#12370;&#22259;.pdf"), paper = "a4r")
print(PlotFig)
dev.off()

出力例

コマンド例で出力できるPDFはこちら

PDF ダウンロード

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