如何在R Shiny中仅更新合并数据框指定部分以绘图？

核心思路是将各数据框分别存入reactiveValues中，这样每次仅更新目标数据框，再重新合并，避免所有数据重复计算。

修改步骤 #

1. 在server函数开头定义reactiveValues来存储各个数据框：

   rv <- reactiveValues(
     data1 = initial_data1,  # 替换为你的初始data1
     data2 = initial_data2,  # 替换为你的初始data2
     data3 = initial_data3,  # 替换为你的初始data3
     data4 = initial_data4   # 替换为你的初始data4
   )
   

2. 用observeEvent分别监听两个滑块，仅更新对应的数据框：

   # 监听sliderInput1，仅更新data1
   observeEvent(input$sliderInput1, {
     # 写入根据sliderInput1生成新data1的逻辑
     rv$data1 <- your_function_to_generate_data1(input$sliderInput1)
   })
   
   # 监听sliderInput2，仅更新data2
   observeEvent(input$sliderInput2, {
     # 写入根据sliderInput2生成新data2的逻辑
     rv$data2 <- your_function_to_generate_data2(input$sliderInput2)
   })
   

3. 定义合并后的all_data为响应式对象，基于rv中的数据：

   all_data <- reactive({
     rbind(rv$data1, rv$data2, rv$data3, rv$data4)
   })
   

为什么之前的尝试失败？ #

如果之前直接用响应式对象存储单个数据框，任意滑块触发时，所有响应式对象都会重新计算。而reactiveValues可以精准控制单个数据框的更新，只有对应数据变化时，all_data才会重新合并，且仅变化的数据被更新，其余数据保持不变。

完整示例代码 #

library(shiny)

ui <- fluidPage(
  sliderInput("slider1", "调整data1", min = 1, max = 10, value = 5),
  sliderInput("slider2", "调整data2", min = 1, max = 10, value = 5),
  tableOutput("data_table")
)

server <- function(input, output) {
  # 初始化reactiveValues存储各数据框
  rv <- reactiveValues(
    data1 = data.frame(group = "data1", value = rep(5, 3)),
    data2 = data.frame(group = "data2", value = rep(5, 3)),
    data3 = data.frame(group = "data3", value = rep(10, 3)),
    data4 = data.frame(group = "data4", value = rep(10, 3))
  )

  # 仅更新data1
  observeEvent(input$slider1, {
    rv$data1 <- data.frame(group = "data1", value = rep(input$slider1, 3))
  })

  # 仅更新data2
  observeEvent(input$slider2, {
    rv$data2 <- data.frame(group = "data2", value = rep(input$slider2, 3))
  })

  # 合并数据
  all_data <- reactive({
    rbind(rv$data1, rv$data2, rv$data3, rv$data4)
  })

  # 输出表格
  output$data_table <- renderTable({
    all_data()
  })
}

shinyApp(ui, server)

在这个示例中，拖动slider1只会更新data1的内容，拖动slider2只会更新data2，data3和data4始终保持初始值，不会重复计算。

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