R语言|关于汇总各列数据的问题

Question

在做简单的数据分析的时候想要根据ABCDE列的因子结果汇总成一列。具体讲就是各种各样的疾病有无，我想汇总成有没有病

然后我就第一次试了一下这么跑（我是想让所有列都是0的结果给他赋值成0）

data$complication[data[,13:44] == "0"] <- "0"

然后报错了额

Error:
! Assigned data `<chr>` must be compatible with existing data.
✖ Existing data has 200 rows.
✖ Assigned data has 6400 rows.
ℹ Only vectors of size 1 are recycled.
Run `rlang::last_error()` to see where the error occurred.
Warning message:
Unknown or uninitialised column: `complication`. 

当时写这个的时候感觉应该一列一列判断然后&起来 但是他有三十多列！！
然后我试了一下循环？

for(i in 13:44){
  for(j in 1:nrow(data)){
    if(data[j,i] == "0") data$complication <- "0"
    else data$complication[j,] <- "1"
    if(data$complication[j,i] == "1") j=nrow(data)+1
  }
}

然后又报错了

Error in data$complication[j, ] <- "1" : 
  incorrect number of subscripts on matrix
In addition: Warning message:
Unknown or uninitialised column: `complication`. 

一想要不干脆只写行的循环把一列直接赋给新列，但是我又不知道怎么合并来看各列了（崩溃）
我的问题可能对大家来讲比较简单，因为我确实对R不怎么了解，感觉自己方法又麻烦也改不过来，希望大家帮帮我，万分感谢Thanks♪(･ω･)ﾉ

Answer 1

望采纳！点击该回答右侧的“采纳”按钮即可采纳！！！

我觉得可以使用r语言的apply函数来实现这个功能
下面是我写的代码：

data <- data.frame(A = c(1, 0, 1, 0, 1), B = c(0, 0, 1, 1, 0), C = c(0, 1, 0, 1, 0), D = c(1, 0, 1, 0, 1), E = c(1, 0, 0, 1, 0))

定义函数，如果任意一列的值不是0，则返回1

has_disease <- function(row) {
if (sum(row) > 0) {
return(1)
} else {
return(0)
}
}

使用apply函数，将函数应用到每一行

data$has_disease <- apply(data, 1, has_disease)