如何使用R Shiny为条形图创建交互式X、Y轴

你的核心问题是在ggplot的aes()中直接传入字符串类型的input值，ggplot无法将其识别为数据框中的变量，进而和after_stat(count)的统计逻辑冲突。下面是两种可行的修复方案：

方案1：使用.data代词（ggplot2官方推荐） #

.data[[var_name]]是ggplot2专门用于动态引用变量的语法，可以直接将字符串转换为数据框中的变量引用，无需额外依赖包。

修正后的server代码：

server <- function(input, output) { 
  
  output$id_main_plot <- renderPlot({
    
    ggplot(data = data, 
           aes(x = .data[[input$xvar]])
           ) + 
      geom_bar(aes(fill = .data[[input$yvar]]), 
               position = "dodge"
      )
  })
}

关键说明： #

• 去掉了y = after_stat(count)，因为geom_bar()默认的stat = "count"已经会自动计算频数，不需要手动指定y轴；如果要显式声明，也可以写成y = after_stat(count)，和.data语法完全兼容。
• .data[[input$xvar]]会动态读取用户选择的x轴变量，fill = .data[[input$yvar]]同理处理填充变量。

方案2：使用rlang的非标准求值（适合熟悉tidyverse语法的场景） #

通过rlang::sym()将字符串转为符号，再用!!（bang-bang）注入到aes()中：

首先需要加载rlang包：

library(rlang)

然后修改server部分：

server <- function(input, output) { 
  
  output$id_main_plot <- renderPlot({
    x_var <- sym(input$xvar)
    fill_var <- sym(input$yvar)
    
    ggplot(data = data, 
           aes(x = !!x_var)
           ) + 
      geom_bar(aes(fill = !!fill_var), 
               position = "dodge"
      )
  })
}

完整可运行代码 #

整合方案1的完整代码：

# load packages
library(dplyr)
library(tidyr)
library(shiny)
library(ggplot2)

# data
library(nycflights13)
data = flights %>% select(carrier, origin, dest)

# desired bar chart
ggplot(data, aes(x=carrier, y=after_stat(count))) +
  geom_bar(aes(fill = origin), position = "dodge")

ui <- fluidPage(
    
    # sidebar  
    sidebarLayout(
      sidebarPanel(
        selectInput(inputId  = "xvar",           
                    label    = "X-axis variable", 
                    choices  = colnames(data),
                    selected = "carrier"
        ),
        selectInput(inputId  = "yvar", 
                    label    = "Fill variable",  # 修改标签更准确，实际是填充变量而非Y轴
                    choices  = colnames(data),
                    selected = "origin"
        )
      ),
      # main plot
      mainPanel(
        plotOutput("id_main_plot")
      )
    )
)

# server logic to draw histogram
server <- function(input, output) { 
  
  output$id_main_plot <- renderPlot({
    
    ggplot(data = data, 
           aes(x = .data[[input$xvar]])
           ) + 
      geom_bar(aes(fill = .data[[input$yvar]]), 
               position = "dodge"
      )
  })
}

# create Shiny app
shinyApp(ui, server)

额外优化： #

• 把sidebar里的yvar标签改为"Fill variable"，因为你的需求是用该变量做填充（对应静态图里的origin），而非Y轴（静态图Y轴是count），避免逻辑混淆。

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