在 R 中重命名 data.table 中的某些列

Question

我有一个很大的 data.table，其中包含许多数值很长的列（例如 64891237094518350）很难阅读，因此，我想更改某些列的格式。我试过了：

datatable(my_data) %>% format(c("columnA", "columnB", "columnC"),
decimal.mark = ",", big.mark = " ", small.mark = ".", small.interval = 3)

然而，什么也没有发生。我也试过：

my_data %>% format(c("columnA", "columnB", "columnC"),
decimal.mark = ",", big.mark = " ", small.mark = ".", small.interval = 3)

我该如何解决这个问题？

Answer 1

如果我们只想对一部分列执行此操作，请使用 mutate_at

library(dplyr)
my_data %>%
    mutate_at(vars(country, state, DOB),
     ~ format(., decimal.mark = ",", big.mark = " ", 
          small.mark = ".", small.interval = 3))

data.table 中的相同逻辑是

library(data.table)
nm1 <- c("country", "state", "DOB")
setDT(my_data)[, (nm1) := lapply(.SD, format, decimal.mark = ",", 
  big.mark = " ", small.mark = ".", small.interval = 3), .SDcols = nm1]