基于动态列名在Shiny应用中筛选数据集问题求助

你的代码有两个核心问题导致功能失效，修复方案如下：

1. 缺失ggplot2包加载 #

代码中使用了ggplot()但没有加载ggplot2包，运行时会直接报错。需要在开头添加加载语句：

library(ggplot2)

2. 带空格/特殊字符的列名处理失败 #

你的数据集列名包含空格和特殊符号（比如High Five Prority 1: Feed Africa），aes_string()无法正确解析这类列名。改用ggplot推荐的.data代词来引用动态变量，能完美解决这个问题。

修复后的完整代码 #

## app.R ##
library(shiny)
library(shinydashboard)
library(shinyjs)
library(htmlwidgets)
library(shinyWidgets)
library(ggplot2)  # 新增加载ggplot2

diamonds<-structure(list(`Approved Amount_UA Equivalent` = c(690221.630165446, 
                                                             75290000, 27500000, 2131605.31196044, 7580000, 5920000, 5947178.82036962, 
                                                             191844.478076439, 8e+07, 11842251.7331135, 11842251.7331135, 
                                                             11842251.7331135, 22250000, 27990000, 2273712.3327578, 89721563.7663194, 
                                                             14933054.9695902, 1200000, 38520632.9893852, 72490558.1048068
), `Approved Amount_USDEquivalent` = c(920065.43301054, 100361570, 
                                       36657500, 2841429.88084326, 10104140, 7891360, 7927589.3675527, 
                                       255728.689275894, 106640000, 15785721.5602403, 15785721.5602403, 
                                       15785721.5602403, 29659250, 37310670, 3030858.53956615, 119598844.500504, 
                                       19905762.2744638, 1599600, 51348003.7748504, 96629913.9537075
), `High Five Prority 1: Feed Africa` = c(NA, NA, NA, NA, NA, 
                                          NA, 178415.364611089, NA, NA, NA, NA, NA, 22250000, NA, NA, 89721563.7663194, 
                                          447991.649087706, 36000, NA, NA), `High Five Prority 2: Light Up And Power Africa` = c(NA, 
                                                                                                                                 75290000, 27500000, NA, NA, NA, 59471.7882036962, NA, NA, NA, 
                                                                                                                                 NA, NA, NA, NA, NA, NA, 149330.549695902, 12000, 38520632.9893852, 
                                                                                                                                 NA), `High Five Prority 3: Industrialize Africa` = c(NA, NA, 
                                                                                                                                                                                      NA, 2131605.31196044, NA, NA, NA, NA, NA, 11842251.7331135, 11842251.7331135, 
                                                                                                                                                                                      11842251.7331135, NA, NA, 2273712.3327578, NA, NA, NA, NA, 72490558.1048068
                                                                                                                                 ), `High Five Prority 4: Integrate Africa` = c(NA, NA, NA, NA, 
                                                                                                                                                                                NA, NA, NA, NA, 8e+07, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
                                                                                                                                                                                NA), `High Five Prority 5: Improve Quality Of Life` = c(690221.630165446, 
                                                                                                                                                                                                                                        NA, NA, NA, 7580000, 5920000, 5709291.66755484, 191844.478076439, 
                                                                                                                                                                                                                                        NA, NA, NA, NA, NA, 27990000, NA, NA, 14335732.7708066, 1152000, 
                                                                                                                                                                                                                                        NA, NA), `NUMBER OF PROJECT` = c(1, 1, 1, 1, 0.5, 0.5, 1, 1, 
                                                                                                                                                                                                                                                                         1, 1, 1, 1, 1, 1, 1, 1, 0.5, 0.5, 1, 1), `Amount in UA Million` = c(0.690221630165446, 
                                                                                                                                                                                                                                                                                                                                             75.29, 27.5, 2.13160531196044, 7.58, 5.92, 5.94717882036962, 
                                                                                                                                                                                                                                                                                                                                             0.191844478076439, 80, 11.8422517331135, 11.8422517331135, 11.8422517331135, 
                                                                                                                                                                                                                                                                                                                                             22.25, 27.99, 2.2737123327578, 89.7215637663194, 14.9330549695902, 
                                                                                                                                                                                                                                                                                                                                             1.2, 38.5206329893852, 72.4905581048068)), row.names = c(NA, 
                                                                                                                                                                                                                                                                                                                                                                                                      -20L), class = c("tbl_df", "tbl", "data.frame"))

ui <- dashboardPage(
  dashboardHeader(
    title="Task Managers' Workload Analysis",
    titleWidth = 400
    
  ),
  dashboardSidebar(
    selectInput("var","Select variable",choices = colnames(diamonds),selected = colnames(diamonds)[1])
  ),
  dashboardBody(
    plotOutput("hist")
  )
)

server <- function(input, output,session) {
  output$hist<-renderPlot({
    ggplot(data=diamonds, aes(x=.data[[input$var]])) +  # 替换aes_string为.data代词
      geom_histogram(fill="steelblue", color="black", na.rm=TRUE) +  # 添加na.rm处理缺失值
      ggtitle(paste0("Histogram of ", input$var))  # 动态更新标题
  })
}

shinyApp(ui, server)

额外优化说明 #

• 新增na.rm=TRUE参数：避免数据中的NA值导致绘图失败
• 动态更新图表标题：让标题随选中的变量自动变化，更直观

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