在Shiny中基于Plotly获取用户输入Y轴变量均值的问题

要实现按X轴变量分组计算Y轴变量的均值并可视化，可通过以下步骤修改代码：

1. 预处理数据计算均值：使用dplyr按用户选择的X轴变量分组，计算对应Y轴变量的均值
2. 在Plotly中同时展示散点与均值：将散点图和均值标记/折线结合，直观呈现均值信息

修改后的完整代码如下：

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

# 假设NumericSet是已加载的数据集
# NumericSet <- read.csv("your_dataset_path.csv")

ui <- fluidPage(
  titlePanel("WBNS"),
  sidebarLayout(
    sidebarPanel(
      selectInput("x_var", "X轴变量:", 
                  choices = names(NumericSet)),
      selectInput("y_var", "Y轴变量:", 
                  choices = names(NumericSet), selected = "Q27"),
      # 可选：添加均值展示开关
      checkboxInput("show_mean", "显示Y轴变量均值", value = TRUE)
    ),
    mainPanel(
      plotlyOutput("plot"),
      verbatimTextOutput("mean_info") # 可选：单独展示均值文本详情
    )
  )
)

server <- function(input, output) {
  # 响应式计算均值数据集，用户切换变量时自动更新
  mean_data <- reactive({
    NumericSet %>%
      group_by(.data[[input$x_var]]) %>%
      summarise(mean_y = mean(.data[[input$y_var]], na.rm = TRUE)) %>%
      ungroup()
  })
  
  output$plot <- renderPlotly({
    # 绘制基础散点图
    p <- plot_ly(data = NumericSet, 
                 x = ~.data[[input$x_var]], 
                 y = ~.data[[input$y_var]], 
                 type = 'scatter', 
                 mode = 'markers',
                 name = "原始数据") %>%
      layout(title = 'WBNS数据集交互图', 
             xaxis = list(title = input$x_var), 
             yaxis = list(title = input$y_var))
    
    # 若勾选显示均值，添加红色均值线与标记
    if(input$show_mean){
      p <- p %>%
        add_trace(data = mean_data(),
                  x = ~.data[[input$x_var]],
                  y = ~mean_y,
                  type = 'scatter',
                  mode = 'lines+markers',
                  line = list(color = 'red', width = 2),
                  marker = list(size = 8),
                  name = "Y轴均值")
    }
    
    p
  })
  
  # 可选：输出均值文本信息
  output$mean_info <- renderPrint({
    cat("按", input$x_var, "分组的", input$y_var, "均值:\n")
    print(mean_data())
  })
}

shinyApp(ui = ui, server = server)

关键说明： #

• 用.data[[input$var]]替代get()，这是tidyverse规范的变量引用方式，避免非标准求值导致的类型问题
• 通过reactive()创建响应式数据集，确保用户切换X/Y变量时自动重新计算均值
• 添加na.rm = TRUE处理数据中的缺失值，避免均值计算报错
• 提供了两种均值展示方式：图中可视化标记、文本详情输出，可按需选择

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