R Shiny - 获取错误：尝试生成图形时未找到对象

编程问答 2022-09-08

问题描述

以下是我的服务器代码 -

server = function(input,output){
  dat.bar = reactive({
    if (input$bar_rb == "PSA"){
      dat.bar = dat %>% mutate(psagroup = cut(dat$PSA,breaks = c(0,10,20,30,40,100),right = T,labels = F))
      dat.bar = dat.bar%>%count(psagroup)
      return(dat.bar)
    }
    else{
      dat.bar = dat%>%count(Gleason)
      return(dat.bar)
    }
  })
  
  output$bar_coh = renderPlotly({
    ggplotly(
      ggplot(dat.bar(),aes(Freq,x=dat.bar()[1])) + 
      geom_bar(position="dodge",stat="identity") +
      xlab(get(input$bar_rb)) +
      scale_fill_brewer(palette="Accent"))
  })
}

界面代码 -

ui = dashboardPage(
skin = 'black',dashboardHeader(title="Prostate Cancer Dashboard",titleWidth = 300),dashboardSidebar(
    width = 300,sidebarMenu(
      menuItem("Cohort",tabName = "coh_stat",icon=icon("circle"))
      )
    )
  )
dashboardBody(
tabItems(
tabItem(tabName = "coh_stat",h2("Cohort Statistics"),br(),fluidRow(
                      Box(title = "distributions",width = 6,plotlyOutput("bar_coh"),radioButtons(inputId = "bar_rb",label = "Select Variable",choices = c("PSA","Gleason"))
                  ))
    )
)
)
)

在服务器和 UI 代码之前的“dat”初始化 -

dat = read.csv("data.csv")

我在用户界面中选择任何选项时不断收到错误消息，但我似乎无法弄清楚这里的问题是什么。我一直在整个仪表板上做类似的事情，但这是我唯一遇到问题的地方。 -

Warning: Error in get: object 'PSA' not found
  [No stack trace available]

或

Warning: Error in get: object 'Gleason' not found
  [No stack trace available]

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

dplyrrrshinyshinydashboard