Shiny散点图坐标轴标签大小不更新及图例标题修改求助

问题1：坐标轴标签大小调整无响应修复 #

你需要在ggplot的theme()配置中，将坐标轴标题的大小参数与Shiny输入控件的值绑定。之前的代码大概率是固定了大小，没有关联输入值。示例中我们用input$axis_title_size来动态控制：

theme(
  axis.title.x = element_text(size = input$axis_title_size),
  axis.title.y = element_text(size = input$axis_title_size)
)

问题2：自定义图例标题 #

通过ggplot的labs()函数可以直接修改图例标题，对应你用来分组的美学映射（比如color、shape）。如果需要让用户自定义，可在UI中添加文本输入框，再将值传入labs()：

labs(
  color = input$legend_title, # 假设分组用了color映射
  x = input$x_axis_label,
  y = input$y_axis_label
)

完整修改后的代码示例 #

library(shiny)
library(ggplot2)
library(readxl)

ui <- fluidPage(
  titlePanel("散点数据可视化工具"),
  sidebarLayout(
    sidebarPanel(
      # 数据上传
      fileInput("data_file", "上传Excel数据", accept = ".xlsx"),
      # 坐标轴选择
      selectInput("x_var", "X轴变量", choices = NULL),
      selectInput("y_var", "Y轴变量", choices = NULL),
      # 分组变量（用于图例）
      selectInput("group_var", "分组变量", choices = NULL),
      # 参数调整
      numericInput("axis_title_size", "坐标轴标签大小", value = 12, min = 8, max = 20),
      textInput("legend_title", "图例标题", value = "分组"),
      numericInput("point_size", "点大小", value = 2, min = 1, max = 5),
      selectInput("point_shape", "点形状", choices = c(1:20), selected = 16)
    ),
    mainPanel(
      plotOutput("scatter_plot")
    )
  )
)

server <- function(input, output, session) {
  # 读取上传的数据
  data <- reactive({
    req(input$data_file)
    read_excel(input$data_file$datapath)
  })
  
  # 更新变量选择框
  observe({
    req(data())
    vars <- names(data())
    updateSelectInput(session, "x_var", choices = vars)
    updateSelectInput(session, "y_var", choices = vars)
    updateSelectInput(session, "group_var", choices = vars)
  })
  
  # 生成散点图
  output$scatter_plot <- renderPlot({
    req(data(), input$x_var, input$y_var, input$group_var)
    
    ggplot(data(), aes_string(x = input$x_var, y = input$y_var, color = input$group_var)) +
      geom_point(size = input$point_size, shape = as.integer(input$point_shape)) +
      # 绑定坐标轴标签大小
      theme(
        axis.title.x = element_text(size = input$axis_title_size),
        axis.title.y = element_text(size = input$axis_title_size)
      ) +
      # 自定义图例标题
      labs(
        color = input$legend_title,
        x = input$x_var,
        y = input$y_var
      )
  })
}

shinyApp(ui, server)

关键修改说明 #

1. 坐标轴标签大小：在theme()中明确将axis.title.x和axis.title.y的size设置为input$axis_title_size，实现动态调整。
2. 图例标题：通过labs(color = input$legend_title)将用户输入的标题绑定到图例，如果你用的是shape或其他映射，替换color为对应的美学属性即可。

内容的提问来源于stack exchange，提问作者Charité Learner