如何仅从数据表中选择数字列

Question

为什么这不起作用data.table？

它适用于data.frame.有没有办法用数据表做到这一点？

x <- data.table(v1=1:20,v2=1:20,v3=1:20,v4=letters[1:20])
y <- x[,sapply(x,is.numeric)]

返回:

v1    v2    v3    v4
TRUE  TRUE  TRUE FALSE

Answer 1

没有的另一个解决方案with = FALSE是.SDcols参数:

x[, .SD, .SDcols = which(sapply(x, is.numeric))]

这也有效:

x[, .SD, .SDcols = sapply(x, is.numeric)]

Answer 2

data.table需要with=FALSE抓住列号.

tokeep <- which(sapply(x,is.numeric))
x[ , tokeep, with=FALSE]