在Shiny selectInput中用嵌套列表配置sf绘图调色板时出现无效颜色名错误

问题根源 #

你代码里的核心问题是selectInput无法直接传递颜色向量作为选项值：

• 当你在selectInput的choices里直接设置颜色向量（比如c("#F9F9F9", "#969696", "#1B1B1B")），Shiny会自动把这个向量转换成字符串形式的表达式（例如"c(\"#F9F9F9\", \"#969696\", \"#1B1B1B\")"）
• 而colorRampPalette需要的是实际的颜色向量，不是字符串，所以会触发"Invalid color name"错误

修复方案 #

1. 将所有调色板定义移到server端，用命名列表统一存储
2. selectInput的选项仅传递调色板的名称（保留嵌套分组结构）
3. 在绘图逻辑中，根据用户选择的调色板名称，从预定义列表中取出对应的颜色向量，再传入colorRampPalette

修正后的完整代码 #

shinyApp(
  ui = fluidPage(
    selectInput(inputId = "pal", label = "Select a sequential color palette", 
                choices = list(
                  `single hue` = c("Grays", "Reds 3"),
                  `multi hue` = c("Dark mint", "YlOrRd")
                )
    ),
    plotOutput("plot")
  ),
  
  server = function(input, output) {
    # 预定义所有调色板，用命名列表存储
    palettes <- list(
      `Grays` = c("#F9F9F9", "#969696", "#1B1B1B"),
      `Reds 3` = c("#F6F6F6", "#FF7078", "#69000C"),
      `Dark mint` = c("#D1FBD4", "#579C97", "#0E3F5C"),
      `YlOrRd` = c("#FFFFC8", "#F39300", "#7D0025")
    )
    
    dat1 <- rnaturalearth::ne_countries(returnclass = "sf", scale = 110)
    
    output$plot <- renderPlot({
      # 根据用户选择的名称取出对应的颜色向量
      selected_pal <- palettes[[input$pal]]
      plot(dat1["gdp_md_est"],
           key.pos = 4, 
           axes = FALSE,
           pal = colorRampPalette(selected_pal),
           key.width = lcm(1.3), key.length = 0.75
      )
    })
  }
)

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