嘗試刪除 sd=0 列時內存耗盡

Question

我正在嘗試刪除 sd=0 的數字列，並彈出此錯誤“錯誤：內存耗盡（達到限制？）”，我的“數據”是用 fread 讀取的。

data2 <- data[ - as.numeric(which(apply(data, 2, var) == 0))]
Error: memory exhausted (limit reached?)

有沒有解決的辦法？

Answer 1

嘗試使用data.table語法：

library(data.table)
idx <- data[, sapply(.SD, function(col) var(col)==0)]
data2 <- data[, -idx, with=FALSE]

Answer 2

您可以使用colVars從matrixStats一攬子方案通常快。

data2 <- data[matrixStats::colVars(as.matrix(data)) != 0, ]