最小的例子：
dt <- data.table(a=c(1,2,3),b=c(4,5,6))
看起來像這樣：
> dt
a b
1: 1 4
2: 2 5
3: 3 6
假設我想索引有6值的列，在這個玩具示例中很容易，因為我們知道列：
> dt[,.(b)]
b
1: 4
2: 5
3: 6
現在，如果這dt有幾千列，我們不知道6謊言在哪里。
我試過這個：
> dt[,.SD==6]
a b
[1,] FALSE FALSE
[2,] FALSE FALSE
[3,] FALSE TRUE
和這個：
> dt[,lapply(.SD,`==`,6)]
a b
1: FALSE FALSE
2: FALSE FALSE
3: FALSE TRUE
還有：
> dt[,lapply(.SD,function(x) any(x==6))]
a b
1: FALSE TRUE
但我無法取回原始列：
b
1: 4
2: 5
3: 6
uj5u.com熱心網友回復：
dt[, colSums(dt == 6) > 0, with = FALSE]
# b
# 1: 4
# 2: 5
# 3: 6
uj5u.com熱心網友回復：
希望有一個更優雅的解決方案，但與此同時：
dt[,sapply(dt, function(x) any(x == 6)), with=F]
b
1: 4
2: 5
3: 6
這是一個快速基準測驗，因為 data.table 通常用于提高速度：
n=1000000
dt = data.table(V1 = round(runif(n) * 100), V2 = round(runif(n) * 100) ,V3 = round(runif(n) * 100), V4 = round(runif(n) * 100), V5 = round(runif(n) * 100), V6 = round(runif(n) * 100))
bench = microbenchmark::microbenchmark(
user438383 = dt[,sapply(dt, function(x) any(x == 6)), with=F],
Wimpel = dt[, colSums(dt == 6) > 0, with = FALSE],
times = 10000
)
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/364208.html
上一篇：從文本檔案中提取粗體和斜體文本