Question

我试图创建一个关于突尼斯选举的闪亮应用程序，我把政党作为一个小部件，所以用户可以选择一个或多个政党，应用程序将显示每个政党的票数，我已成功选择一个政党，但当用户选择多个，它失败了:( 提到关于情节的代码R：

 selectizeInput("parti", label = "Parti politique", choices=  levels(data$Q99), selected = "Nidaa Tounes",multiple=TRUE)

 #server.R 
 library(shiny)
 library(Rcmdr)
 library(ggplot2)
 library(ggalt)
 data <-     readXL("C:/Users/boti/Desktop/regression/bfinal.xlsx",rownames=FALSE, header=TRUE, na="NA", sheet="imp", stringsAsFactors=TRUE)
shinyServer(function(input, output) {
dataa<-reactive({as.data.frame(data)}) 

#Parti politique
partii=reactive({
as.character(input$parti)
})
output$plot1=renderPlot({
n=as.data.frame(table(dataa()[,95]))
n$Var1[n$Var1==partii()]

ggplot(n, aes(x =n$Var1[n$Var1==as.list(partii())] , y = n$Freq[n$Var1==as.list(partii())])) + geom_bar(stat = "identity", fill="Orange") + labs(title="Vote") +labs(x="Partis Politiques", y="Nombre de votes")

})

})

Answer 1

此示例使用mpg数据集执行我猜您正在尝试执行的操作。通过选择输入，用户可以选择一个或多个制造商，条形图显示所选制造商的汽车数量：

ui.R

library(shiny)
    library(ggplot2)
    library(dplyr)

    shinyServer(function(input, output) {
            mpgSubset <- reactive({
                    validate(
                            need(input$mpgSelect != "", 'Please choose at least one feature.')
                    )
                    filter(mpg, manufacturer %in% input$mpgSelect)
            })
            output$coolplot<-renderPlot({
                    gg <- ggplot(mpgSubset(), aes(x = manufacturer, y = ..count..))
                    gg <- gg + geom_bar()
                    print(gg)
            })
    })

server.R

{{1}}

闪亮的仪表板选择输入和绘图

1 个答案: