我正在尝试创建一个计数列，该列总结了数据帧的每一行中的列数，以满足某些逻辑条件。我已经为它找到了一个dplyr循环，但我似乎无法想出一个####
x <- matrix(rep(rnorm(n = 100, mean = 7, sd = 3),16),nrow = 100,ncol=16)
colnames(x) <- paste0("foo",1:16)
library(dplyr)
x <- as.data.frame(x)
## Something that works
for(i in 1:nrow(x)){
x[i,"Over9"] <- sum(subset(x[i,1:4] > 9))
}
## Attempt to make it smarter
y <- x %>% select(foo1:foo4) %>%
mutate("Over9" = rowSums(which(x[,.] > 9)))
或其他类似的答案，这些答案可以很容易地在许多不同的列上使用，或者如果列被移动了。
var a = Promise.resolve('foo');
return a.then();
我尝试了许多不同的解决方案，但一直都失败了。