我有一个带有这样的字符串(因子)变量的 df
id v1 v2 v3 v4
1 1 1 1 0
1 0 0 0 0
1 1 1 1 0
1 1 1 1 0
1 1 1 1 0
我想要的是创建一个等于 1 或 0(数字)的新列,如果 1 出现在列列表中,例如 (v2, v3, v4)
id v1 v2 v3 v4 lu
1 1 1 1 0 1
2 0 0 0 0 0
3 1 1 1 0 1
4 0 0 1 0 1
5 1 0 1 0 1
我不想转换为数字(因为我需要它们用于将来的分析)所以像
df <- df %>% mutate(lu = select(., v2:v4) %>% rowSums(na.rm = TRUE))
df <- df %>% mutate(lu = if_else(lu_1 > 0, 1, lu))
不可能。实际上要考虑的变量列表相当长(大约 150 个)
谢谢!
最佳答案
嗨,我不知道你是否想要这样的东西。我不擅长 dplyr 所以这是一个基本的 R 版本
虚拟数据:
a <-as.character(sample(0:1,100,replace = T))
b <-as.character(sample(0:1,100,replace = T))
c <-as.character(sample(0:1,100,replace = T))
d <-as.character(sample(0:1,100,replace = T))
df <- as.data.frame(cbind(a,b,c,d), stringsAsFactors = T)
实际代码:
test <- function(x) {
out <- sum(as.numeric(x))
ifelse(out>0,1,0)
}
df$lu <- as.factor(apply(df,MARGIN = 1, test))
输出:
id a b c d lu
1 0 1 0 0 1
2 0 1 0 0 1
3 0 1 0 0 1
4 0 1 0 1 1
5 0 0 0 0 0
关于R 在数据框中查找值(因子变量的rowwise),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/62367339/