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

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

#パッケージの読み込み
library("formattable")

###データ例の作成#####
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 = "￥", digits = 0, format = "f", big.mark = ","),
                       Data3 = sample(c("TRUE", "FALSE"), n, replace = TRUE))
########

#htmlテーブルの作成:formattableコマンド
#テーブルの体裁はlistで設定
#変数の範囲で指定した色で塗りつぶす:color_tileコマンド
#変数の範囲でカラーバーを表示:color_barコマンド
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))))

#パッケージの読み込み
library("formattable")

###データ例の作成#####
TestPerVec <- c(.15, .005, 1, .25, .35)
TestAccVec <- c(0, 5000, 200, -150)
########

#数値配列のパーセント表示:percentコマンド
PTestVec <- percent(TestPerVec, digits = 2)
PTestVec
[1] 15.00% 0.50% 100.00% 25.00% 35.00%
#足し算:5%加える
PTestVec + 0.05
[1] 20.00% 5.50% 105.00% 30.00% 40.00%
#最小値を表示
min(PTestVec)
[1] 0.50%

#数値配列の会計表示:accountingコマンド
ATestVec <- accounting(TestAccVec, digits = 0, format = "f", big.mark = ",")
ATestVec
[1] 0 5,000 200 (150)
#足し算:1000加える
ATestVec + 1000
[1] 1,000 6,000 1,200 850
#最小値を表示
min(ATestVec)
[1] (150)

#数値配列のシンボル付きの会計表示:currencyコマンド
currency(TestAccVec, symbol = "￥", digits = 0, format = "f", big.mark = ",")
[1] ￥0 ￥5,000 ￥200 ￥-150

#小数点の表示設定:digitsコマンド
digits(1.23756, digits = 2)
[1] 1.24