R Shiny中actionButton触发的ggplot直方图参数配置失效问题

核心问题根源是响应式对象未正确调用：
所有通过eventReactive生成的响应式表达式本质是R函数，要获取其返回值必须在对象名后加括号()调用，和你已正确使用的valeur_random()调用逻辑完全一致。
你在geom_histogram中直接把Fill2、Color2、Binwidth2这三个响应式函数对象本身传入参数，而非函数调用后返回的颜色字符串、binwidth数值，参数类型不匹配自然无法正常出图。

最小修改方案 #

仅需在renderPlot内的geom_histogram参数部分为三个响应式对象补上调用括号即可：

output$plot3 <- renderPlot({
  ggplot(data=valeur_random(), aes(a)) +
    geom_histogram(
      fill = Fill2(),
      color = Color2(),
      binwidth = Binwidth2()
    )
})

代码简化优化 #

你目前为每个参数单独创建eventReactive的写法可以大幅简化，不需要重复绑定多次点击事件。可以将所有需要按钮触发后读取的参数统一封装到一个响应式对象中，既保证所有参数严格绑定点击事件、不随输入实时更新，也能减少冗余代码：

server <- function(input, output) {
  # 点击Show Graph按钮后统一生成绘图所需的全部内容
  plot_content <- eventReactive(input$go3, {
    list(
      plot_data = data.frame(a = rnorm(input$Bin1), b = rnorm(input$Bin1)),
      fill_color = input$Fill1,
      border_color = input$Color1,
      bin_width = input$Binwidth1
    )
  })

  output$plot3 <- renderPlot({
    content <- plot_content()
    ggplot(data = content$plot_data, aes(a)) +
      geom_histogram(
        fill = content$fill_color,
        color = content$border_color,
        binwidth = content$bin_width
      )
  })
}

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