Rで解析：htmlテーブルの作成とベクトルの体裁を整えるのに便利な「formattable」パッケージ

htmlテーブルの作成とベクトルの体裁を整えるコマンドが収録されている「formattable」パッケージを紹介します。

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

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

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

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

htmlテーブルを作成する実行コマンド

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

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

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
n <- 20
TestData <- data.frame(Group = sample(paste0("TEST", 1:5), n, replace = TRUE),
                       Data1 = percent(sample(c(.15, .005, 1, .025, .35), n, replace = TRUE), digits = 1),
                       Data2 = currency(sample(0:30, n, replace = TRUE)
                                        , symbol = "&#65509;", digits = 0, format = "f", big.mark = ","),
                       Data3 = sample(c("TRUE", "FALSE"), n, replace = TRUE))
########

#html&#12486;&#12540;&#12502;&#12523;&#12398;&#20316;&#25104;:formattable&#12467;&#12510;&#12531;&#12489;
#&#12486;&#12540;&#12502;&#12523;&#12398;&#20307;&#35009;&#12399;list&#12391;&#35373;&#23450;
#&#22793;&#25968;&#12398;&#31684;&#22258;&#12391;&#25351;&#23450;&#12375;&#12383;&#33394;&#12391;&#22615;&#12426;&#12388;&#12406;&#12377;:color_tile&#12467;&#12510;&#12531;&#12489;
#&#22793;&#25968;&#12398;&#31684;&#22258;&#12391;&#12459;&#12521;&#12540;&#12496;&#12540;&#12434;&#34920;&#31034;:color_bar&#12467;&#12510;&#12531;&#12489;
formattable(TestData, list(
  Data1 = color_tile("#4b61ba", "#a87963"),
  Data2 = color_bar("pink"),
  Data3 = formatter("span",
                    style = x ~ ifelse(x == "TRUE",
                                       style(color = "red",
                                             font.weight = "bold"), NA))))

formattableコマンドの出力例

ベクトルの体裁を整える実行コマンド例

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

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

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
TestPerVec <- c(.15, .005, 1, .25, .35)
TestAccVec <- c(0, 5000, 200, -150)
########

#&#25968;&#20516;&#37197;&#21015;&#12398;&#12497;&#12540;&#12475;&#12531;&#12488;&#34920;&#31034;:percent&#12467;&#12510;&#12531;&#12489;
PTestVec <- percent(TestPerVec, digits = 2)
PTestVec
[1] 15.00% 0.50% 100.00% 25.00% 35.00%
#&#36275;&#12375;&#31639;:5%&#21152;&#12360;&#12427;
PTestVec + 0.05
[1] 20.00% 5.50% 105.00% 30.00% 40.00%
#&#26368;&#23567;&#20516;&#12434;&#34920;&#31034;
min(PTestVec)
[1] 0.50%

#&#25968;&#20516;&#37197;&#21015;&#12398;&#20250;&#35336;&#34920;&#31034;:accounting&#12467;&#12510;&#12531;&#12489;
ATestVec <- accounting(TestAccVec, digits = 0, format = "f", big.mark = ",")
ATestVec
[1] 0 5,000 200 (150)
#&#36275;&#12375;&#31639;:1000&#21152;&#12360;&#12427;
ATestVec + 1000
[1] 1,000 6,000 1,200 850
#&#26368;&#23567;&#20516;&#12434;&#34920;&#31034;
min(ATestVec)
[1] (150)

#&#25968;&#20516;&#37197;&#21015;&#12398;&#12471;&#12531;&#12508;&#12523;&#20184;&#12365;&#12398;&#20250;&#35336;&#34920;&#31034;:currency&#12467;&#12510;&#12531;&#12489;
currency(TestAccVec, symbol = "&#65509;", digits = 0, format = "f", big.mark = ",")
[1] &#65509;0 &#65509;5,000 &#65509;200 &#65509;-150

#&#23567;&#25968;&#28857;&#12398;&#34920;&#31034;&#35373;&#23450;:digits&#12467;&#12510;&#12531;&#12489;
digits(1.23756, digits = 2)
[1] 1.24

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