Rで解析：結果のHTML出力がらくらく。「sjPlot」パッケージの簡単な紹介

「sjPlot」パッケージは図をHTML出力するsjp.XXXXコマンドとテーブルをHTML出力するsjt.YYYYコマンドが収められています。Rで結果をHTMLで出力するパッケージや方法は他にありますが、意外とsjPlotが便利だったので簡単に紹介します。

機能が多いパッケージです。パッケージのHELPをぜひ確認してください。

パッケージバージョンは2.8.12。windows11のR version 4.2.2で確認しています。

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

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

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

実行コマンドの紹介

作業フォルダにHTMLファイルが出力されます。本パッケージではCSSでデザインを指定することができます。

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

#&#12486;&#12473;&#12488;&#12487;&#12540;&#12479;&#12398;&#20316;&#25104;
i <- 200
TestData <- data.frame(TESTs = rep(paste("TEST", seq(i), sep = "")),
                              Data1 = sample(1000:5000, i, replace = TRUE),
                              Data2 = sample(1000:20000, i, replace = TRUE),
                              Data3 = sample(3000:15000, i, replace = TRUE))

#&#30456;&#38306;&#12434;&#27714;&#12417;&#12390;&#20986;&#21147;:tab_corr&#12467;&#12510;&#12531;&#12489;
#&#27424;&#25613;&#20516;&#12398;&#20966;&#29702;:na.deletion&#12458;&#12503;&#12471;&#12519;&#12531;;"listwise","pairwise"
#&#35336;&#31639;&#26041;&#27861;:corr.method&#12458;&#12503;&#12471;&#12519;&#12531;:"pearson","spearman","kendall"
#&#12502;&#12521;&#12454;&#12470;&#12391;&#38322;&#35239;:use.viewer&#12458;&#12503;&#12471;&#12519;&#12531;;TRUE/FALSE
#&#26360;&#24335;&#12434;CSS&#12391;&#35373;&#23450;:CSS&#12458;&#12503;&#12471;&#12519;&#12531;
OutPutHTML <- tab_corr(TestData[, 2:4], na.deletion = "pairwise",
                       corr.method = "spearman",
                       use.viewer = FALSE,
                       CSS = list(css.firsttablecol = 'color: red;'))

#&#20316;&#26989;&#12501;&#12457;&#12523;&#12480;&#12395;HTML&#12434;&#20986;&#21147;:&#12458;&#12502;&#12472;&#12455;&#12463;&#12488;&#12398;
#page.complete&#12487;&#12540;&#12479;&#12434;cat&#12391;&#20986;&#21147;&#12377;&#12427;
cat(HTMLCode$page.complete, file = "tab_corr.HTML")

#&#12487;&#12540;&#12479;&#20869;&#23481;&#12434;&#20986;&#21147;:tab_df&#12467;&#12510;&#12531;&#12489;
OutPutDFHTML <- tab_df(head(TestData),
                       title = FALSE, footnote = FALSE,
                       col.header = FALSE, show.type = FALSE,
                       show.rownames = FALSE, show.footnote = FALSE,
                       alternate.rows = FALSE, sort.column = NULL,
                       use.viewer = FALSE,
                       CSS = list(css.caption = 'font-weight: Bold; font-style: italic;',
                                  css.firsttablecol = 'color: BLUE;'))

#&#20316;&#26989;&#12501;&#12457;&#12523;&#12480;&#12395;HTML&#12434;&#20986;&#21147;
cat(OutPutDFHTML$page.complete, file = "tab_df.HTML")