如何将DataFrame中的NULL替换为0？解决Shiny绘图报错问题

问题背景 #

开发的Shiny程序支持导入CSV文件并选择轴绘图，当数据全为数值类型时可正常运行，但数据中存在NULL值时会出现报错：Can't combine \length` 和 `colors``。示例数据如下：

移除colors列后程序恢复正常，推测是NULL值引发的类型冲突问题。

报错原因 #

原数据中的NULL值被读取为NA后，colors列的数据类型与其他数值列（如length、time）不统一。执行pivot_longer转换长格式时，无法将不同类型的数据合并到同一Values列，从而触发类型合并报错。

解决方案 #

在读取CSV文件后，对数值列中的NA（对应原数据的NULL）替换为0，确保所有数值列类型一致。修改server部分的data_input响应式对象即可：

数据读取部分修改（data.table风格） #

data_input <- reactive({ 
  req(input$csv_input)
  # 读取数据并替换数值列的NA为0
  dt <- fread(input$csv_input$datapath)
  dt[, lapply(.SD, function(x) if(is.numeric(x)) replace(x, is.na(x), 0) else x)]
})

数据读取部分修改（tidyverse风格） #

如果偏好tidyverse语法，也可以使用如下写法：

data_input <- reactive({ 
  req(input$csv_input)
  read_csv(input$csv_input$datapath) %>%
    mutate(across(where(is.numeric), ~replace_na(.x, 0)))
})

完整修改后的服务器代码 #

server <- function(input, output){
  options(shiny.maxRequestSize=100*1024^2)
  
  data_input <- reactive({ 
    req(input$csv_input)
    dt <- fread(input$csv_input$datapath)
    dt[, lapply(.SD, function(x) if(is.numeric(x)) replace(x, is.na(x), 0) else x)]
  })
  
  data_input_long <- reactive({
    pivot_longer(setDF(data_input()), cols = -y, names_to = "Tag", values_to = "Values")
  })
  
  data_filtered <- eventReactive(input$run_button,{
    filter(data_input_long(), Tag %in% input$y_axis)
  })
  
  observeEvent(data_input(),{
    choices <- c(not_sel,names(data_input()))
    updateSelectInput(inputId = "x_axis", choices = choices)
    updateSelectInput(inputId = "y_axis", choices = choices)
  })
  
  output$plot_1 <- renderPlot({
    ggplot(data_filtered(), aes(x = .data[[input$x_axis]], y = Values, color = Tag))+
      geom_point()
  }) 
}

说明 #

该修改仅针对数值列替换NA为0，保留非数值列的原有内容，确保pivot_longer转换后Values列类型统一，ggplot绘图时不会再出现类型冲突报错。

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