小小椰奶鹿 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 python:excel数据写入多个对应word文档
  • ¥60 全一数分解素因子和素数循环节位数
  • ¥15 ffmpeg如何安装到虚拟环境
  • ¥188 寻找能做王者评分提取的
  • ¥15 matlab用simulink求解一个二阶微分方程,要求截图
  • ¥30 乘子法解约束最优化问题的matlab代码文件,最好有matlab代码文件
  • ¥15 写论文,需要数据支撑
  • ¥15 identifier of an instance of 类 was altered from xx to xx错误
  • ¥100 反编译微信小游戏求指导
  • ¥15 docker模式webrtc-streamer 无法播放公网rtsp