r - データテーブル (R) の 3 桁ごとに数字にカンマを追加する

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 = ",")

Answer 2

あなたが使用することができますformatC

library(dplyr)
library(DT)

df1 %>% 
  mutate(A = formatC(round(A), format = "f", big.mark = ",", drop0trailing = TRUE),
         B = paste0(formatC(100 * B, format = "f", digits = 2), "%")) %>%
  datatable()

これにより、次のことが得られます。

Answer 3

上記の答えは、小数点以下の桁数を示していました。

digits内でオプションを使用できましたが、formatCurrency()機能しました：

df1 = data.frame(A=c(1000000.51,5000.33, 2500, 251), B=c(0.565,0.794, .685, .456))
datatable(df1)  %>%  formatPercentage('B', 2) %>%
    formatCurrency('A',currency = "", interval = 3, mark = ",", digits=0)