RShiny新手如何添加第二输入控件以限制图表X轴显示范围

完全可以实现多层级输入控件联动的效果，你只需要对原案例的UI和服务端逻辑做少量修改即可，以下是具体实现方案：

在原案例左侧sidebarPanel的区域选择控件下方，新增年份选择输入即可，你需要的可选年份是固定枚举值，用selectInput实现最方便，示例代码如下：

selectInput(
  inputId = "sel_year",
  label = "选择展示年份",
  choices = c(1951, 1956, 1957, 1958, 1959, 1960, 1961),
  selected = 1951,
  multiple = FALSE # 如需多选可改为TRUE
)

原服务端仅按照区域维度筛选数据，现在需要在数据过滤逻辑中新增年份维度的筛选条件，核心代码如下：

# 定义响应式筛选数据
plot_data <- reactive({
  # 原数据集telephones新增两个筛选条件即可
  telephones %>%
    dplyr::filter(
      region == input$sel_region, # 原有的区域筛选条件
      year %in% as.integer(input$sel_year) # 新增的年份筛选条件，%in%同时适配单选/多选场景
    )
})

后续绘图时将数据源替换为plot_data()即可实现你要的效果。

如果后续数据集新增区号等其他维度，直接按以下逻辑扩展即可：

• UI层新增对应维度的输入控件（下拉框、滑块、输入框均可）
• 服务端的filter逻辑中新增对应维度的筛选条件即可
• 若需要实现多级联动（比如选完区域后仅展示该区域下存在的年份/区号可选值），只需要把下级输入的choices参数放在reactive中动态生成即可

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