非零值数据表列

a 我的 data.table . 下面是一个例子

set.seed(42)
DT <- data.table(
    id = c("b","b","b","a","a","c"),
    a = sample(c(0,1), 6, replace=TRUE),
    b = 7:12,
    c = 13:18
)
col <- "a"

如果 DT data.frame ,我能做到

x <- DT[,col]       # I can do DT[,..col] to translate this line
x[x>0]              # here is where I am stuck

自 日期 是一个 ,此代码失败。错误消息是:“i是无效类型(矩阵)”。

as.vector(x) 但没有成功。

任何暗示都很感激。这似乎是个初级问题。然而,搜索SO和介绍vignette数据表没有找到解决办法。