能否通过Shiny实现双Data Frame关联的交互式营收与订单展示？

完全没问题，你要的「点击营收趋势图的年份数据点，联动展示对应年份的所有订单详情」功能，用Shiny结合可视化包（比如plotly）就能轻松实现。下面是一个完整的可运行示例，包含数据模拟、交互逻辑和界面布局：

实现思路 #

1. 先通过plotly绘制营收-年份的趋势图，给每个数据点绑定对应的年份信息；
2. 利用Shiny的交互事件监听，捕捉用户点击图表的动作，提取点击的年份；
3. 根据提取的年份过滤订单数据（df2），动态更新下方的订单详情表格。

完整代码示例 #

library(shiny)
library(plotly)
library(dplyr)

# 模拟示例数据（你可以替换成自己的df1和df2）
set.seed(123)
df1 <- tibble(
  year = 2018:2023,
  revenue = round(runif(6, 50000, 150000), 0)
)

df2 <- tibble(
  year = rep(2018:2023, each = 5),
  orderID = paste0("ORD-", 1:30),
  orderAmount = round(runif(30, 1000, 50000), 0)
)

ui <- fluidPage(
  titlePanel("营收趋势与订单详情联动"),
  fluidRow(
    column(8, plotlyOutput("revenue_plot")),
    column(4, dataTableOutput("order_table"))
  )
)

server <- function(input, output) {
  # 绘制营收趋势图
  output$revenue_plot <- renderPlotly({
    plot_ly(df1, x = ~year, y = ~revenue, type = "scatter", mode = "lines+markers",
            customdata = ~year,  # 绑定年份数据，用于点击事件提取
            hoverinfo = "text",
            text = ~paste("年份:", year, "<br>营收:", revenue)) %>%
      layout(title = "年度营收趋势",
             xaxis = list(title = "年份"),
             yaxis = list(title = "营收"))
  })
  
  # 监听图表点击事件，获取点击的年份
  selected_year <- reactive({
    click_data <- event_data("plotly_click")
    if (!is.null(click_data)) {
      click_data$customdata
    } else {
      NULL
    }
  })
  
  # 动态生成订单详情表格
  output$order_table <- renderDataTable({
    if (is.null(selected_year())) {
      tibble(提示 = "点击图表上的年份数据点，查看对应订单详情")
    } else {
      df2 %>% filter(year == selected_year()) %>% select(orderID, orderAmount)
    }
  }, options = list(pageLength = 10))
}

shinyApp(ui, server)

关键细节说明 #

• 绑定自定义数据：在plot_ly中通过customdata = ~year给每个数据点绑定年份，这样点击时能准确获取对应年份；
• 监听点击事件：event_data("plotly_click")会返回点击点的所有信息，我们从中提取customdata即年份；
• 动态更新表格：用reactive响应式变量selected_year存储点击的年份，然后过滤df2的数据渲染表格，初始状态显示提示文本。

你只需要把示例中的模拟数据替换成你自己的df1和df2，就能直接运行使用啦！

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