如何在Flexdashboard中关联侧边栏输入与ggplotly过滤器

你的代码存在两个核心问题，导致无法正常运行：

• 变量命名冲突：用data作为响应式对象名称，和原始数据集重名，会覆盖原始数据，导致后续筛选逻辑失效。
• 缺少UI绑定：renderUI生成的选择框需要通过uiOutput在侧边栏中渲染，否则用户看不到输入控件。

修正后的完整代码示例 #

---
title: "Flexdashboard 交互式图表示例"
output: flexdashboard::flex_dashboard
---

```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(plotly)

# 模拟原始数据集（替换成你的真实数据）
set.seed(123)
original_data <- data.frame(
  var = sample(c("var1", "var2", "var3"), 100, replace = TRUE),
  x = rnorm(100),
  y = rnorm(100)
)

Sidebar {.sidebar} #

uiOutput("var_selector")

可视化页面 #

# 生成动态选择框
renderUI({
  selectInput("var", "选择筛选变量:", choices = c("var1", "var2", "var3"))
})

# 响应式过滤数据（避免变量名冲突）
filtered_data <- reactive({
  subset(original_data, var == input$var)
})

# 渲染交互式图表
renderPlotly({
  ggplotly(ggplot(filtered_data(), aes(x = x, y = y)) + geom_point())
})

可选调整（若需求是选择X/Y轴变量） #

如果你的需求不是过滤数据，而是选择要展示的X/Y变量，代码可调整为：

# 动态选择X轴变量
renderUI({
  selectInput("x_var", "选择X轴变量:", choices = c("var1", "var2", "var3"))
})

# 渲染对应变量的图表
renderPlotly({
  ggplotly(ggplot(original_data, aes(x = .data[[input$x_var]], y = y)) + geom_point())
})

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