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

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

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

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

然后报错了额

Error:
! Assigned data `` 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♪(･ω･)ﾉ

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

我觉得可以使用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)

望采纳

• 在汇总各列数据时，可以使用 ifelse() 函数来简化代码。
  • 比如，想要汇总 ABCDE 列中是否有 "0"，可以使用以下代码：

data$complication <- ifelse(data[,13:44] == "0", "0", "1")

• 上述代码会在每行中的 ABCDE 列中查找 "0"，如果找到了就将新的 "complication" 列赋值为 "0"，否则赋值为 "1"。

• 当然，也可以使用嵌套的 ifelse() 函数，或者使用其他函数（例如 apply()）来遍历每行或每列并进行计算。（根据判定条件写判定函数condition_fun）

data$complication <- apply(data, 1, condition_fun)