r - 在数据表 (R) 中每三位数字添加逗号

Question

假设我的数据如下所示:

df1 = data.frame(A=c(1000000.51,5000.33), B=c(0.565,0.794))

我想用 DataTables 并将 A 列设为 (1,000,001 ; 5,000)

library(DT)
datatable(df1)  %>%  formatPercentage('B', 2) %>%
  formatRound('A',digits = 0)

我知道我可以使用体重秤

library(scales)    
comma_format()(1000000)

但我不确定如何将它与 DataTables 结合起来

谢谢!

Answer 1

有同样的问题:

尝试这个:

require(DT)
require(dplyr)

df1 = data.frame(A=c(1000000.51,5000.33, 2500, 251), B=c(0.565,0.794, .685, .456))

df1 <- df1 %>% mutate(A=round(A,digits=0))

datatable(df1)  %>%  formatPercentage('B', 2) %>%
  formatCurrency('A',currency = "", interval = 3, mark = ",")