使用data.table set（）將所有列從整數轉換爲數字

Question

我正在處理具有1900列和大約280,000行的data.table。

目前，數據完全是「整數」，但我希望它們明確地「數字」，以便稍後將它傳遞給bigcor（）函數。顯然，bigcor（）只能處理「數字」而不是「整數」。

我曾嘗試：

full.bind <- full.bind[,sapply(full.bind, as.numeric), with=FALSE] 

不幸的是，我得到的錯誤：

Error in `[.data.table`(full.bind, , sapply(full.bind, as.numeric), with = FALSE) : 
    j out of bounds 

所以，我嘗試使用data.table set（）函數，但我得到的錯誤：

Error in set(full.bind, value = as.numeric(full.bind)) : 
    (list) object cannot be coerced to type 'double' 

我已經創建了一個簡單的可重複的例子。請記住，實際的列不是「a」，「b」或「c」;它們是非常複雜的列名，因此單獨引用列不是一種可能性。

dt <- data.table(a=1:10, b=1:10, c=1:10) 

所以，我最後的問題是：

1）爲什麼我的sapply技術不行？ （什麼是「j越界」錯誤？） 2）爲什麼set（）技術不是？ （爲什麼data.table不能強制爲數字？） 3）bigcor（）函數是否需要數字對象，還是存在另一個問題？

Answer 1

使用.SD和按引用賦值：

library(data.table) 
dt <- data.table(a=1:10, b=1:10, c=1:10) 
sapply(dt, class) 
#  a   b   c 
#"integer" "integer" "integer" 

dt[, names(dt) := lapply(.SD, as.numeric)] 
sapply(dt, class) 
#  a   b   c 
#"numeric" "numeric" "numeric" 

set僅適用於在這裏一列（注意文檔，不說j是可選的），因爲每次更換列有產生。如果要使用它，則需要遍歷列（例如，使用for循環）。它可能更好，因爲它需要更少的內存（額外的內存需要對應於一列，而對於整個data.table需要額外的內存，第一種方法）。

for (k in seq_along(dt)) set(dt, j = k, value = as.character(dt[[k]])) 
sapply(dt, class) 
#   a   b   c 
#"character" "character" "character" 

然而，bigcor（從包繁殖）需要一個矩陣作爲輸入，並且一個data.table不是矩陣。所以，你的問題不是列類型，但你需要使用as.matrix(dt)。