在 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]