Rで解析：データをHTMLテーブルで出力。「rtable」パッケージ

データをHTMLテーブルで出力する「rtable」パッケージの紹介です。簡単手軽に作成できるので試してみてはいかがでしょうか。

パッケージの出力をHTMLファイルで出力するにはRStudioがオススメです。

バージョンは0.1.0。実行コマンドはR version 3.2.2で確認しています。

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

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

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

実行コマンド

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

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

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
n <- 50
TestData <- data.frame(Group = sample(paste0("Group", 1:5), n, replace = TRUE),
                       Effects = sample(c("Low", "Middle", "Hight"), n, replace = TRUE),
                       Data = sample(1:20, n, replace = TRUE))
########

#&#12487;&#12540;&#12479;&#12398;&#35201;&#32004;:freqtable&#12467;&#12510;&#12531;&#12489;
FreqTable <- freqtable(table(TestData$Group, TestData$Effects), percent_digits = 2)
FreqTable

#&#12500;&#12508;&#12483;&#12488;&#12486;&#12540;&#12502;&#12523;&#12398;&#20986;&#21147;:FlexPivot&#12467;&#12510;&#12531;&#12489;
#dplyr&#12521;&#12452;&#12502;&#12521;&#12522;&#12392;&#12398;&#32068;&#12415;&#21512;&#12431;&#12379;
library("dplyr")
PivotTData <- group_by(TestData, Group, Effects)
PivotTData <- summarise(PivotTData, mean = round(mean(Data), 2), max = max(Data))
#FlexPivot&#12467;&#12510;&#12531;&#12489;
PivotTable <- FlexPivot(PivotTData, id = "Group", transpose = "Effects",
                        columns = c("mean", "max"), space.table = TRUE)
PivotTable

出力例

・freqtableコマンド

・FlexPivotコマンド

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