如何动态地从R中的闪亮应用更改图表？

debugcn 发表于 Dev

古萨曼·哈维（Gowthaman Javi）

我有一个data.frame，其中包含4列和7行。下面是示例数据（列名大写，数据小写）。

样本数据：

NAME.  COUNT  MONTH COUNTRY
ram       20. jan   India
ranjith   40.  jan   India
azhar     80.  feb   India
chris     20   feb   US
rakesh    60.  jan   US
mano.     90.  mar.   UK
Ron.       37.  mar.  uk

因此，ui.R我创建了两个selectinputs。一种是使用COUNTRY列，另一种是使用MONTH列。

当我选择第一个selectinput作为印度，第二个选择输入作为jan时，应使用条形图在闪亮的应用程序中以x轴（即水平）的名称显示第一行，以y轴（即垂直）的名称显示COUNT。

如果我在第一个selectinput中选择India，然后在第二个selectinput中选择Feb。现在只需要出现第三行，并提到x轴和y轴。同时，还需要为其他行产生结果。

如果COUNTRY选择为UK和MONTH选择为jan，则不应创建图表。因为我们没有与UK和Jan组合的唱片。

任何人都可以共享的代码ui.R和server.R？

智慧

根据您所拥有的，您已经非常接近您想要的。只需要该reactive函数从输入中动态捕获值并相应地呈现输出即可：

用户界面

require(shiny) 
shinyUI(fluidPage( 
    titlePanel("sample data"), 
    sidebarPanel( 
        selectInput("COUNTRY", "select country", choices=c("India","US", "UK"), selected ="India"), 
        radioButtons("MONTH","select MONTH", choices=c("jan","feb"))
        ), 
    mainPanel(plotOutput("plot")) 
    ) 
    )

服务器

function(input, output){ 
    country = reactive({input$COUNTRY})          # <<<<<<<<<<< 
    month = reactive({input$MONTH})              # <<<<<<<<<<< 

    output$plot <- renderPlot({ 
        CHART_IP_JOB_FAILURE <- subset(final1, COUNTRY == country() & MONTH == month() & COUNT > 0)
        H <- CHART_IP_JOB_FAILURE[,"COUNT"] 
        M <- CHART_IP_JOB_FAILURE[,"NAME"] 
        barplot(as.numeric(H),names.arg = M,xlab = "NAMES",ylab = "COUNT",col = "blue", main = "TOP 5 JOB FAILURES",border = "red") 
    }) 
}

作为一种资源，发亮的备忘单可能会有所帮助。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。