R Shiny使用renderTable无法展示表格及相关性图标签替换问题

问题1：renderTable仅显示年份范围的成因与解决方法 #

• 成因：当前renderTable()的返回值仅为yearrange()生成的年份序列，未对原始数据集ecd按筛选条件做过滤处理，因此只能输出选中的年份，无法展示完整表格。
• 解决方法：在renderTable()中对ecd做双重筛选：首先筛选年份落在选中区间内的行，再保留年份列和用户选中的特征列，代码示例如下：

output$ecd <- renderTable({
  # 筛选符合年份要求、仅保留需要展示的列
  ecd[ecd$year %in% yearrange(), c("year", input$feature)]
})

问题2：相关性图坐标轴替换为侧边栏自定义标签的实现方法 #

• 实现思路：checkboxGroupInput返回的input$feature是选项的value值（即CSV字段名），我们可以提前把「自定义标签-字段名」的映射关系抽成公共变量，通过字段名反向匹配对应的自定义标签即可。
• 修改后的完整可运行代码如下：

library(shiny)
library(shinydashboard)

# 提前定义特征映射公共变量
feature_choices <- c(
  "案件总数" = "no_case",
  "轻微案件" = "minor_case",
  "所有非致死案件" = "all_non_fatl",
  "致死案件" = "fatal_case"
)

ui <- fluidPage(sidebarLayout(
  sidebarPanel
  (
    checkboxGroupInput(
      "feature",
      "展示特征",
      feature_choices # 直接调用预定义的映射向量
    ),
    sliderInput(
      "year",
      "年份",
      min = 2015,
      max = 2021,
      value = c(2015, 2021)
    )
  ),
  
  mainPanel(tabsetPanel(
    tabPanel("相关性图", plotOutput("correlation_plot")),
    tabPanel("数据表格", tableOutput("ecd"))
  ))
))

server <- function(input, output) {
  yearrange <- reactive({
    input$year[1]:input$year[2]
  })
  output$correlation_plot <- renderPlot({
    validate(need(input$feature, '请至少勾选一个展示特征'))
    # 反向匹配自定义标签
    y_label <- names(feature_choices)[feature_choices == input$feature]
    plot(ecd$year,
         ecd[[input$feature]],
         xlab = "年份",
         ylab = y_label) # 替换为自定义标签
  })
  output$ecd <- renderTable({
    ecd[ecd$year %in% yearrange(), c("year", input$feature)]
  })
  
}

shinyApp(ui, server)

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