Idealistic_ 2022-12-27 08:46 采纳率: 66.7%
浏览 180
已结题

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

在做简单的数据分析的时候想要根据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♪(・ω・)ノ

  • 写回答

2条回答 默认 最新

  • heart_6662 2022-12-27 09:25
    关注

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

    我觉得可以使用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)
    
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

问题事件

  • 系统已结题 1月4日
  • 已采纳回答 12月27日
  • 创建了问题 12月27日

悬赏问题

  • ¥15 vue3+express部署到nginx
  • ¥20 搭建pt1000三线制高精度测温电路
  • ¥15 使用Jdk8自带的算法,和Jdk11自带的加密结果会一样吗,不一样的话有什么解决方案,Jdk不能升级的情况
  • ¥15 画两个图 python或R
  • ¥15 在线请求openmv与pixhawk 实现实时目标跟踪的具体通讯方法
  • ¥15 八路抢答器设计出现故障
  • ¥15 opencv 无法读取视频
  • ¥15 按键修改电子时钟,C51单片机
  • ¥60 Java中实现如何实现张量类,并用于图像处理(不运用其他科学计算库和图像处理库))
  • ¥20 5037端口被adb自己占了