基于双选择列表的Shiny Choropleth地图报错问题求助

核心错误点 #

1. 函数内部变量名冲突：MapValue函数里误用了全局的df，而非传入的data参数，导致变量作用域混乱；同时赋值的变量名也用了df，进一步加剧冲突。
2. Shiny服务器参数传递错误：var和group参数应传递选择的字符串（比如"Ind1"），但当前代码传递的是数据框子集，导致filter时类型不匹配，触发object of type 'closure'错误。
3. 未初始化参数列表：直接给args$data赋值前未创建空列表，会引发未定义对象的错误。
4. UI布局语法错误：原代码sidebarLayout缺少sidebarPanel包裹选择框，导致布局失效。

修复后的完整代码 #

library(dplyr)
library(readxl)
library(ggplot2)
library(sf)
library(rnaturalearth)

# 测试数据集
df <- tribble(
  ~Country, ~ISO3, ~Subgroup, ~Indicator, ~Value,
  "Jordan", "JOR", "Group1", "Ind1", 25.6,
  "Turkey", "TUR", "Group1", "Ind1", 56.4,
  "Jordan", "JOR", "Group1", "Ind2", 63.4,
  "Turkey", "TUR", "Group1", "Ind2", 87.5,
  "Jordan", "JOR", "Group2", "Ind1", 13.2,
  "Turkey", "TUR", "Group2", "Ind1", 22.6,
  "Jordan", "JOR", "Group2", "Ind2", 44.9,
  "Turkey", "TUR", "Group2", "Ind2", 78.5,
)

# 修复后的绘图函数
MapValue <- function(data, var, group){
  # 使用传入的data参数，避免和全局df冲突，变量名改为filtered_data
  filtered_data <- data %>%
    filter(Indicator == var & Subgroup == group)
  
  df_join <- rnaturalearth::ne_countries(returnclass = "sf") %>% 
    left_join(filtered_data, by = join_by(iso_a3 == ISO3))
  
  plot(df_join["Value"],
       border = 'grey80',
       pal = colorRampPalette(c("white", "darkgreen"))(100),
       breaks = c(0:100))
}

# 修复后的Shiny UI
ui <- fluidPage(
  titlePanel("Shiny for Indicators"), 
  
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "var", 
                  label = "选择要展示的指标", 
                  choices = unique(df$Indicator), 
                  selected = "Ind1"),
      
      selectInput(inputId = "groups", 
                  label = "选择要展示的分组", 
                  choices = unique(df$Subgroup), 
                  selected = "Group1")
    ),
    
    mainPanel(plotOutput("map"))
  )
)

# 修复后的服务器逻辑
server <- function(input, output){
  output$map <- renderPlot({
    # 初始化参数列表
    args <- list()
    args$data <- df
    # 直接传递选择的字符串，无需生成子集数据框
    args$var <- input$var
    args$group <- input$groups
    do.call(MapValue, args)
  })
}

shinyApp(ui = ui, server = server)

额外优化点 #

• UI选择项改用unique(df$Indicator)和unique(df$Subgroup)动态生成，后续数据集更新时无需手动修改UI代码。
• 统一变量命名规范，避免作用域混淆问题。

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