Chuyển đổi các lớp cột trong data.table

Tôi gặp sự cố khi sử dụng data.table: Làm cách nào để chuyển đổi các lớp cột? Đây là một ví dụ đơn giản: Với data.frame, tôi không gặp sự cố khi chuyển đổi nó, với data.table, tôi chỉ không biết làm thế nào:

df <- data.frame(ID=c(rep("A", 5), rep("B",5)), Quarter=c(1:5, 1:5), value=rnorm(10))
#One way: http://stackoverflow.com/questions/2851015/r-convert-data-frame-columns-from-factors-to-characters
df <- data.frame(lapply(df, as.character), stringsAsFactors=FALSE)
#Another way
df[, "value"] <- as.numeric(df[, "value"])

library(data.table)
dt <- data.table(ID=c(rep("A", 5), rep("B",5)), Quarter=c(1:5, 1:5), value=rnorm(10))
dt <- data.table(lapply(dt, as.character), stringsAsFactors=FALSE) 
#Error in rep("", ncol(xi)) : invalid 'times' argument
#Produces error, does data.table not have the option stringsAsFactors?
dt[, "ID", with=FALSE] <- as.character(dt[, "ID", with=FALSE]) 
#Produces error: Error in `[<-.data.table`(`*tmp*`, , "ID", with = FALSE, value = "c(1, 1, 1, 1, 1, 2, 2, 2, 2, 2)") : 
#unused argument(s) (with = FALSE)

Tôi có bỏ lỡ điều gì đó rõ ràng ở đây không?

Cập nhật do bài đăng của Matthew: Tôi đã sử dụng phiên bản cũ hơn trước đây, nhưng ngay cả sau khi cập nhật lên 1.6.6 (phiên bản tôi sử dụng bây giờ) tôi vẫn gặp lỗi.

Cập nhật 2: Giả sử tôi muốn chuyển đổi mọi cột của lớp "nhân tố" thành cột "ký tự", nhưng không biết trước cột nào thuộc lớp nào. Với data.frame, tôi có thể làm như sau:

classes <- as.character(sapply(df, class))
colClasses <- which(classes=="factor")
df[, colClasses] <- sapply(df[, colClasses], as.character)

Tôi có thể làm điều gì đó tương tự với data.table không?

Cập nhật 3:

sessionInfo () R phiên bản 2.13.1 (2011-07-08) Nền tảng: x86_64-pc-mingw32 / x64 (64-bit)

locale:
[1] C

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] data.table_1.6.6

loaded via a namespace (and not attached):
[1] tools_2.13.1

Đối với một cột duy nhất:

dtnew <- dt[, Quarter:=as.character(Quarter)]
str(dtnew)

Classes ‘data.table’ and 'data.frame':  10 obs. of  3 variables:
 $ ID     : Factor w/ 2 levels "A","B": 1 1 1 1 1 2 2 2 2 2
 $ Quarter: chr  "1" "2" "3" "4" ...
 $ value  : num  -0.838 0.146 -1.059 -1.197 0.282 ...

Sử dụng lapplyvà as.character:

dtnew <- dt[, lapply(.SD, as.character), by=ID]
str(dtnew)

Classes ‘data.table’ and 'data.frame':  10 obs. of  3 variables:
 $ ID     : Factor w/ 2 levels "A","B": 1 1 1 1 1 2 2 2 2 2
 $ Quarter: chr  "1" "2" "3" "4" ...
 $ value  : chr  "1.487145280568" "-0.827845218358881" "0.028977182770002" "1.35392750102305" ...

Thử cái này

DT <- data.table(X1 = c("a", "b"), X2 = c(1,2), X3 = c("hello", "you"))
changeCols <- colnames(DT)[which(as.vector(DT[,lapply(.SD, class)]) == "character")]

DT[,(changeCols):= lapply(.SD, as.factor), .SDcols = changeCols]

Đưa nhận xét của Matt Dowle lên câu trả lời của Geneorama ( https://stackoverflow.com/a/20808945/4241780 ) để làm cho nó rõ ràng hơn (được khuyến khích), bạn có thể sử dụng for(...)set(...).

library(data.table)

DT = data.table(a = LETTERS[c(3L,1:3)], b = 4:7, c = letters[1:4])
DT1 <- copy(DT)
names_factors <- c("a", "c")

for(col in names_factors)
  set(DT, j = col, value = as.factor(DT[[col]]))

sapply(DT, class)
#>         a         b         c 
#>  "factor" "integer"  "factor"

^{Được tạo vào 2020-02-12 bởi gói reprex (v0.3.0)}

Xem các nhận xét khác của Matt tại https://stackoverflow.com/a/33000778/4241780 để biết thêm thông tin.

Biên tập.

Như đã lưu ý bởi Espen và trong help(set), jcó thể là "(Các) tên cột (ký tự) hoặc (các) số (số nguyên) được gán giá trị khi (các) cột đã tồn tại". Vì vậy, names_factors <- c(1L, 3L)cũng sẽ hoạt động.

Đây là một cách BAD để làm điều đó! Tôi chỉ để lại câu trả lời này trong trường hợp nó giải quyết được các vấn đề kỳ lạ khác. Những phương pháp tốt hơn này có lẽ một phần là kết quả của các phiên bản data.table mới hơn ... vì vậy rất đáng để ghi lại cách khó này. Thêm vào đó, đây là một ví dụ về eval substitutecú pháp hay cho cú pháp.

library(data.table)
dt <- data.table(ID = c(rep("A", 5), rep("B",5)), 
                 fac1 = c(1:5, 1:5), 
                 fac2 = c(1:5, 1:5) * 2, 
                 val1 = rnorm(10),
                 val2 = rnorm(10))

names_factors = c('fac1', 'fac2')
names_values = c('val1', 'val2')

for (col in names_factors){
  e = substitute(X := as.factor(X), list(X = as.symbol(col)))
  dt[ , eval(e)]
}
for (col in names_values){
  e = substitute(X := as.numeric(X), list(X = as.symbol(col)))
  dt[ , eval(e)]
}

str(dt)

cái nào cho bạn

Classes ‘data.table’ and 'data.frame':  10 obs. of  5 variables:
 $ ID  : chr  "A" "A" "A" "A" ...
 $ fac1: Factor w/ 5 levels "1","2","3","4",..: 1 2 3 4 5 1 2 3 4 5
 $ fac2: Factor w/ 5 levels "2","4","6","8",..: 1 2 3 4 5 1 2 3 4 5
 $ val1: num  0.0459 2.0113 0.5186 -0.8348 -0.2185 ...
 $ val2: num  -0.0688 0.6544 0.267 -0.1322 -0.4893 ...
 - attr(*, ".internal.selfref")=<externalptr> 

Tôi đã thử một số cách tiếp cận.

# BY {dplyr}
data.table(ID      = c(rep("A", 5), rep("B",5)), 
           Quarter = c(1:5, 1:5), 
           value   = rnorm(10)) -> df1
df1 %<>% dplyr::mutate(ID      = as.factor(ID),
                       Quarter = as.character(Quarter))
# check classes
dplyr::glimpse(df1)
# Observations: 10
# Variables: 3
# $ ID      (fctr) A, A, A, A, A, B, B, B, B, B
# $ Quarter (chr) "1", "2", "3", "4", "5", "1", "2", "3", "4", "5"
# $ value   (dbl) -0.07676732, 0.25376110, 2.47192852, 0.84929175, -0.13567312,  -0.94224435, 0.80213218, -0.89652819...

, hay nói cách khác

# from list to data.table using data.table::setDT
list(ID      = as.factor(c(rep("A", 5), rep("B",5))), 
     Quarter = as.character(c(1:5, 1:5)), 
     value   = rnorm(10)) %>% setDT(list.df) -> df2
class(df2)
# [1] "data.table" "data.frame"

Tôi cung cấp một cách tổng quát hơn và an toàn hơn để thực hiện công việc này,

".." <- function (x) 
{
  stopifnot(inherits(x, "character"))
  stopifnot(length(x) == 1)
  get(x, parent.frame(4))
}


set_colclass <- function(x, class){
  stopifnot(all(class %in% c("integer", "numeric", "double","factor","character")))
  for(i in intersect(names(class), names(x))){
    f <- get(paste0("as.", class[i]))
    x[, (..("i")):=..("f")(get(..("i")))]
  }
  invisible(x)
}

Hàm ..đảm bảo rằng chúng ta nhận được một biến ngoài phạm vi của data.table; set_colclass sẽ thiết lập các lớp của cols của bạn. Bạn có thể sử dụng nó như thế này:

dt <- data.table(i=1:3,f=3:1)
set_colclass(dt, c(i="character"))
class(dt$i)

Nếu bạn có một danh sách tên cột trong data.table, bạn muốn thay đổi loại việc làm:

convert_to_character <- c("Quarter", "value")

dt[, convert_to_character] <- dt[, lapply(.SD, as.character), .SDcols = convert_to_character]

thử:

dt <- data.table(A = c(1:5), 
                 B= c(11:15))

x <- ncol(dt)

for(i in 1:x) 
{
     dt[[i]] <- as.character(dt[[i]])
}