尝试删除 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, ]