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

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 时间序列LSTM模型归回预测代码问题
  • ¥50 使用CUDA如何高效的做并行化处理,是否可以多个分段同时进行匹配计算处理?目前数据传输速度有些慢,如何提高速度,使用gdrcopy是否可行?请给出具体意见。
  • ¥15 基于STM32,电机驱动模块为L298N,四路运放电磁传感器,三轮智能小车电磁组电磁循迹(两个电机,一个万向轮),如何通过环岛的原理及完整代码
  • ¥20 机器学习或深度学习问题?困扰了我一个世纪,晚来天欲雪,能饮一杯无?
  • ¥15 c语言数据结构高铁订票系统
  • ¥15 关于wkernell.PDB加载的问题,如何解决?(语言-c#|开发工具-vscode)
  • ¥15 (标签-STM32|关键词-智能小车)
  • ¥20 关于#stm32#的问题,请各位专家解答!
  • ¥15 (标签-python)
  • ¥20 搭建awx,试了很多版本都有错