使用shiny和echarts4r生成R动态多图出现重复问题求助

问题根源 #

你遇到的重复图表问题，核心原因是Shiny渲染函数的延迟求值特性。递归/循环中创建的renderEcharts4r并不会立即执行，而是等到UI需要渲染时才运行。此时循环里的pos_0和data_plot已经是最后一次循环的取值（也就是第3行数据），所以所有图表都会复用这个最终值，导致完全相同。

修复方案 #

用lapply替代递归/循环逻辑，它的每次迭代都会创建独立的执行环境，能及时捕获当前迭代的变量值，避免延迟求值的问题。以下是修复后的完整代码：

rm(list=ls())

library(shiny)
library(echarts4r)

data1=1:3
data2=rep(0,3)
data = data.frame(data1,data2)

ui <- fluidPage(
  headerPanel("MultiPlot"),
  mainPanel(
    uiOutput("main"),
    actionButton("start","Start")
  )
)

server <- function(input, output,session) {
  observeEvent(input$start,{
    output$main  = renderUI({
      # 用lapply遍历每一行数据，生成对应的图表渲染器
      plot_list <- lapply(1:nrow(data), function(i){
        current_data <- data[i,]
        renderEcharts4r({
          current_data %>%
            e_charts(data1) %>%
            e_line(data2) %>% 
            e_tooltip("axis","item") %>% 
            e_title(paste0("Chart",i))
        })
      })
      # 把图表列表转成tagList输出
      tagList(c(list(tags$br()), plot_list))
    })
  })
}

shinyApp(ui = ui, server = server)

关键修改点 #

1. 替换递归/循环为lapply：lapply的每个匿名函数都运行在独立环境中，i和current_data会被固定为当前迭代的取值，不会被后续迭代覆盖。
2. 移除冗余递归逻辑：原代码的递归和data$data2标记完全没必要，直接遍历数据行即可实现需求。
3. 简化UI渲染逻辑：直接生成图表渲染器列表，再组合成tagList输出，逻辑更清晰。

原代码问题分析 #

原递归函数中，每次添加到liste的renderEcharts4r都共享同一个环境中的pos_0和data_plot变量。当Shiny最终渲染这些图表时，变量已经是递归结束时的最终值（pos_0=3，data_plot=data[3,]），所以所有图表都显示为最后一次的结果。

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