Shiny R中用lapply()替换NA为列均值时报错：未定义列被选择

嘿，我帮你排查下这个Shiny里的报错问题～你遇到的这个“undefined columns selected”错误，大概率是变量名笔误或者Shiny reactive环境的初始化时机问题，下面一步步来解决：

1. 最可能的元凶：变量名写错了 #

你在常规R环境里用的是temp1，但reactive代码里居然写了temp[i1]——这里明显应该是temp1[i1]啊！如果你的reactive里只有上传生成的temp1，根本没有temp这个对象，R找不到对应的列，可不就报错了嘛。

修正后的核心代码应该是这样的（记得结合你实际的文件读取逻辑调整）：

num_na <- reactive({
  # 先确保用户上传了文件，再读取生成temp1
  temp1 <- req(input$upload_file) %>% read.csv() # 这里换成你实际的读取函数，比如read_excel()
  
  # 筛选数值型列
  i1 <- sapply(temp1, is.numeric)
  # 把temp[i1]改成temp1[i1]！
  temp1[i1] <- lapply(temp1[i1], function(x) {
    replace(x, is.na(x), mean(x[!is.na(x)], na.rm = TRUE))
  })
  temp1
})

另外建议给mean()加上na.rm = TRUE，万一某列全是NA的话，也不会直接崩溃。

2. 处理Reactive的初始化时机坑 #

在Shiny里，reactive表达式会盯着依赖项（比如你的上传文件）变化，要是用户还没上传文件，temp1可能是空的或者NULL，这时候执行sapply得到的i1肯定不对，自然会触发列选择错误。

用req()函数就能解决这个问题——它会暂停reactive的执行，直到用户真的上传了文件，就像上面代码里的req(input$upload_file)，能有效避免空对象引发的错误。

3. 额外排查：列类型识别问题 #

有时候上传的文件里，本该是数值型的列会被R识别成字符型（比如列里混了非数字的内容），这时候sapply(temp1, is.numeric)会返回FALSE，导致temp1[i1]选不到任何列，也可能引发类似报错。

你可以在reactive里加一行打印代码，看看哪些列被识别成数值型：

num_na <- reactive({
  temp1 <- req(input$upload_file) %>% read.csv()
  i1 <- sapply(temp1, is.numeric)
  print(i1) # 去R控制台看输出，确认列类型是否正确
  temp1[i1] <- lapply(temp1[i1], function(x) replace(x, is.na(x), mean(x[!is.na(x)], na.rm = TRUE)))
  temp1
})

如果确实有列类型错了，用dplyr的mutate()+across()手动转换就行：

temp1 <- temp1 %>% mutate(across(c(列名1, 列名2), as.numeric)) # 替换成你需要转换的列名

内容的提问来源于stack exchange，提问作者Aritra Chatterjee