我有下面的資料框，并從中創建了一個 kable。如何在每 3 位數字之間添加逗號？
Descs<-structure(list(Mean = c(NaN, 943330388, NaN, NaN, NaN, 543234645,
45831420, NaN, 27301292, 160818771), Median = c(NaN, 943330388,
NaN, NaN, NaN, 543234645, 45831420, NaN, 27301292, 160818771),
SD = c(NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_), MAD = c(NA,
0, NA, NA, NA, 0, 0, NA, 0, 0), MIN = c(NA, 943330388, NA,
NA, NA, 543234645, 45831420, NA, 27301292, 160818771), MAX = c(NA,
943330388, NA, NA, NA, 543234645, 45831420, NA, 27301292,
160818771), VAR = c(NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_
), RANGE = structure(c(NA, 943330388, NA, NA, NA, 543234645,
45831420, NA, 27301292, 160818771, NA, 943330388, NA, NA,
NA, 543234645, 45831420, NA, 27301292, 160818771), .Dim = c(10L,
2L)), QUANTILES = structure(c(NA, 943330388, NA, NA, NA,
543234645, 45831420, NA, 27301292, 160818771, NA, 943330388,
NA, NA, NA, 543234645, 45831420, NA, 27301292, 160818771), .Dim = c(10L,
2L), .Dimnames = list(NULL, c("25%", "75%")))), row.names = c("Comedy",
"Education", "Entertainment", "Film & Animation", "Gaming", "Howto & Style",
"Music", "People & Blogs", "Science & Technology", "Sports"), class = "data.frame")
library(kableExtra)
kable(Descs) %>%
kable_styling(
font_size = 15,
bootstrap_options = c("striped", "hover", "condensed")
)
uj5u.com熱心網友回復：
您可以使用 kable 格式引數，這樣可以避免在放入表之前對資料進行處理。
如果你想清除 NAs 和 NaNs，你可以在這行代碼中添加：options(knitr.kable.NA = '')
library(kableExtra)
kable(Descs,
format.args = list(big.mark = ",")) %>%
kable_styling(
font_size = 15,
bootstrap_options = c("striped", "hover", "condensed")
)
uj5u.com熱心網友回復：
您可以使用以下代碼：
library(kableExtra)
library(dplyr)
Descs <- apply(Descs, 2, function(x) prettyNum(x, big.mark = ","))
kable(Descs) %>%
kable_styling(
font_size = 15,
bootstrap_options = c("striped", "hover", "condensed")
)
輸出：
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/446293.html
標籤：r 卡布尔 kableextra
上一篇：在R中的特定模式之后提取字串