无法在我的闪亮应用中使用反应元素

本文介绍了无法在我的闪亮应用中使用反应元素的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述 29岁程序员，3月因学历无情被辞！ 在我闪亮的应用程序中，我想更改我想构建的ggplot barChart。 selectinput 应该允许更改月份（请参阅下面的数据集），因此我的情节应该相应地改变。 问题：isssue是，我无法在ggplot函数中使用我的反应函数或甚至简单的输入$ monthid 。 数据集： 月份订单 1月2日984524 1月1151303 3月575000 > （b）结构（清单（Month = c（Feb，Jan，Mar），Orders = c（984524L， 1151303L，575000L）），.Names = c Month，Orders），class =data.frame，row.names = c（NA，-3L）） ui.R library（shinythemes） b shinyUI（fluidPage（theme = shinytheme（flatly）， sidebarLayout（ sidebarPanel（ selectInput（inputId =monthid，label =Month，choices = b $ Month，selected = b $ Month [1]））， mainPanel（plotOutput（plot）） ））） $ b server.R library（shiny） library（shinythemes） library（ggplot2） b shinyServer（函数（输入，输出）{ ＃制作反应物体 m as.character（输入$ monthid） }） 输出$ plot< - renderPlot （{ ＃可能我在aes参数 ggplot（data = b，aes（x = b [，m（）]，y = b $ ））+ geom_bar（stat =identity） }）}） 解决方案这是一个最小的工作示例，您可以在会话中正确复制和粘贴以运行，但带有单个栏的条形图并没有多大意义（如果你问我，看上去很丑）： 库（闪亮） shinyApp（ ui = fluidPage（ sidebarLayout（ sidebarPanel（ selectInput（ inputId =monthid， label =Month， choices = b $ Month， selected = b $ Month [1] ））， mainPanel（plotOutput（plot）））） ， server = funct ion（input，output）{ DF b [b $ Month == input $ monthid，，drop = FALSE] }） output $ plot < - renderPlot（{ ggplot（DF（），aes（x = Month，y = Orders））+ geom_bar（stat =identity）}） } ） 看起来有点像这样： 因为这不会看起来不错的国际海事组织，你可以做一些突出显示当前选中的栏，例如： b $ highlight< - factor 未选中，levels = c（未选中，选中）） shinyApp（ ui = fluidPage（ sidebarLayout（ sidebarPanel（ selectInput（ inputId =monthid， label =Month， choices = b $ Month， selected = b $ Month [1] ））， mainPanel（plotOutput（plot）） ））， server = function（input，output）{ DF b [b $ Month == input $ monthid，highlight]< ; - Selectedb }） output $ plot ggplot（DF（），aes（x = Month，y = Orders，fill =突出显示））+ geom_bar（stat =identity）}）} ） 这看起来如下： In my shiny app,I want to change the ggplot barChart that I wish to construct. selectinput should allow to change the month (see dataset below) and so my plot should change accordingly.problem: The isssue is, i am unable to use my reactive function or even just simple input$monthid within ggplot function.Dataset: Month Orders1 Feb 9845242 Jan 11513033 Mar 575000> dput(b)structure(list(Month = c("Feb", "Jan", "Mar"), Orders = c(984524L,1151303L, 575000L)), .Names = c("Month", "Orders"), class = "data.frame", row.names = c(NA,-3L))ui.Rlibrary(shiny)library(shinythemes)b<-read.csv("b.csv",header=TRUE,sep=",",stringsAsFactors=TRUE)shinyUI(fluidPage(theme= shinytheme("flatly"), sidebarLayout( sidebarPanel( selectInput(inputId = "monthid", label = "Month",choices = b$Month,selected = b$Month[1])), mainPanel(plotOutput("plot")) )) )server.Rlibrary(shiny)library(shinythemes)library(ggplot2) b<-read.csv("b.csv",header=TRUE,sep=",",stringsAsFactors=TRUE)shinyServer(function(input, output) { #making a reactive object m<-reactive ({ as.character(input$monthid) }) output$plot<- renderPlot({ #probably I am making a subset error in x inside aes parameter ggplot(data = b, aes(x = b[,m()] ,y = b$Orders)) + geom_bar(stat="identity") })}) 解决方案 Here's a minimal working example you can copy and paste right in your session to run, but a bar chart with a single bar doesn't really make a lot of sense (and looks ugly if you ask me):library(shiny)shinyApp( ui = fluidPage( sidebarLayout( sidebarPanel( selectInput( inputId = "monthid", label = "Month", choices = b$Month, selected = b$Month[1] ) ), mainPanel(plotOutput("plot")) ) ), server = function(input, output) { DF <- reactive({ b[b$Month == input$monthid, , drop = FALSE] }) output$plot <- renderPlot({ ggplot(DF(), aes(x = Month, y = Orders)) + geom_bar(stat = "identity") }) })It looks somewhat like this:Since that doesn't look nice IMO, you could do something with highlighting the currently selected bar, for example:b$highlight <- factor("Not Selected", levels = c("Not selected", "Selected"))shinyApp( ui = fluidPage( sidebarLayout( sidebarPanel( selectInput( inputId = "monthid", label = "Month", choices = b$Month, selected = b$Month[1] ) ), mainPanel(plotOutput("plot")) ) ), server = function(input, output) { DF <- reactive({ b[b$Month == input$monthid, "highlight"] <- "Selected" b }) output$plot <- renderPlot({ ggplot(DF(), aes(x = Month, y = Orders, fill = highlight)) + geom_bar(stat = "identity") }) })This would look as follows: 这篇关于无法在我的闪亮应用中使用反应元素的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！ 上岸，阿里云！