Rで解析：テーブルをファイル出力などしませんか？「stargazer」パッケージの紹介

「stargazer」パッケージは2012年にリリース後バージョンアップを重ねている歴史あるパッケージです。本パッケージではテーブルの体裁を整えた「LaTeX」や「html」のコードをファイルに出力、もしくはRのコンソールにテキストとして表示することができます。

非常に優れたパッケージで、ヘルプを確認いただければ紹介コード以外の機能をすぐに使いこなすことができると思います。今回の紹介では、初心者でつまづきやすい「結果をファイルで保存する方法」を解決するために”cat”,”capture.output”コマンドを組み合わせながら、2つのテーブル出力例を紹介します。

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

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

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

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

実行コマンド

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

install.packages("stargazer")

#&#12521;&#12452;&#12502;&#12521;&#12522;&#12398;&#35501;&#12415;&#36796;&#12415;
library("stargazer")

#####&#28310;&#20633;#####################
#&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;
a <- sample(1:100, 100, replace = FALSE)
TestData1 <- data.frame(Data1 = a,
                        Data2 = c(-a[1:80], sample(210:230, 20, replace = TRUE)),
                        Data3 = c(a[1:80], sample(210:230, 20, replace = TRUE)),
                        Data4 = sample(150:180, 100, replace = TRUE))
b <- sample(1:50, 100, replace = TRUE)
TestData2 <- data.frame(Data1 = b,
                        Data2 = c(-b[1:80], sample(210:230, 20, replace = TRUE)),
                        Data3 = c(b[1:80], sample(210:230, 20, replace = TRUE)),
                        Data4 = sample(150:180, 100, replace = TRUE))
##############################

###&#20840;&#20363;&#12486;&#12540;&#12502;&#12523;&#12398;&#20986;&#21147;&#12395;cat,capture.output&#12467;&#12510;&#12531;&#12489;&#12434;&#20351;&#29992;#####
#type&#12458;&#12503;&#12471;&#12519;&#12531;:"latex","text","html"&#12364;&#35373;&#23450;&#21487;&#33021;
#&#20363;&#12391;&#12399;html&#12501;&#12449;&#12452;&#12523;&#12391;&#20986;&#21147;

#&#12487;&#12540;&#12479;&#12434;&#35201;&#32004;&#12375;&#20316;&#26989;&#12501;&#12457;&#12523;&#12480;&#12395;html&#12501;&#12449;&#12452;&#12523;&#12434;&#20986;&#21147;
#summary&#12458;&#12503;&#12471;&#12519;&#12531;:TRUE
cat(capture.output(stargazer(TestData1, type = "html", summary = TRUE,
                             align = TRUE, single.row = TRUE, no.space = TRUE)),
    file = "Table1.html", append = FALSE)

#&#12487;&#12540;&#12479;&#12434;&#35201;&#32004;&#12379;&#12378;&#12395;&#20316;&#26989;&#12501;&#12457;&#12523;&#12480;&#12395;html&#12501;&#12449;&#12452;&#12523;&#12395;&#20986;&#21147;
#&#12487;&#12540;&#12479;&#25968;&#12364;&#22810;&#12356;&#12398;&#12391;head&#12467;&#12510;&#12531;&#12489;&#12434;&#36969;&#24540;
#rownames&#12458;&#12503;&#12471;&#12519;&#12531;:FALSE
#sumary&#12458;&#12503;&#12471;&#12519;&#12531;:FALSE
cat(capture.output(stargazer(head(TestData1), type = "html", summary = FALSE, rownames = FALSE,
                             align = TRUE, single.row = TRUE, no.space = TRUE)),
    file = "Table2.html", append = FALSE)

出力例

画像ではないのでブラウザでコピペが可能です。

・データを要約して、htmlファイルに出力

・データ数が多いのでheadコマンドを適応し、データを要約せずにhtmlファイルに出力

少しでも、あなたのウェブや実験の解析が楽になりますように！！