小小椰奶鹿 2023-04-13 15:51 采纳率: 100%
浏览 14
已结题

r语言编写一个函数满足条件

如图所示

img


我先说一下我对这个问题的理解
首先要提取列向量
然后再用for循环结构和if控制结构判断每个向量是否=NA,等于就替换,不等直接+1判断下一个向量
想法很美好,但不知道怎么搞…

  • 写回答

1条回答 默认 最新

  • CQ.abc 2023-04-13 16:16
    关注
    replace_NA_with_sample <- function(df) {
      # 创建一个新的数据框,用于存储替换缺失值后的结果
      df2 <- data.frame()
      
      # 遍历每一列
      for (col_name in colnames(df)) {
        # 提取当前列的向量
        col_vec <- df[[col_name]]
        
        # 判断当前列是否存在缺失值
        if (sum(is.na(col_vec)) > 0) {
          # 抽样非缺失值,并用抽样值替换缺失值
          col_vec[is.na(col_vec)] <- sample(col_vec[!is.na(col_vec)], sum(is.na(col_vec)), replace = TRUE)
        }
        
        # 将当前列添加到新数据框中
        df2[[col_name]] <- col_vec
      }
      
      # 返回替换缺失值后的数据框
      return(df2)
    }
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 系统已结题 4月21日
  • 已采纳回答 4月13日
  • 创建了问题 4月13日

悬赏问题

  • ¥15 recipe通过gem协议传的是什么
  • ¥15 TS2307: Cannot find module 'cc'.
  • ¥15 100小时学会sap 书上pp章节5.22,标准成本计算逻辑?
  • ¥50 达梦数据库误删日志文件重做DAMENG01.log启动仍然-712错误
  • ¥15 cellranger化学处理类型报错
  • ¥15 用texstudio插入图片出现下面情况,怎么办
  • ¥15 ubantu 用samba挂载windows的共享文件夹,无法挂载二级目录和修改文件
  • ¥15 有没有会五轴RTCP算法,双转台AC结构。
  • ¥25 对于LSTM实践问题的疑问
  • ¥15 PHP中关于排名和显示的问题