时间戳

首页 > 解决方案 > R.shiny 中的条形图显示

r - R.shiny 中的条形图显示

问题描述

我已经开发了一个代码来根据反应按钮显示条形数据，如果我将光标移动到旁边的显示条上，我想知道确切的数字

编码

library("shiny")
data = data.matrix(MY_data[1:4])
ui=fluidPage(    

  # Give the page a title
  titlePanel("Age ranges according to program"),

  # Generate a row with a sidebar
  sidebarLayout(      

    # Define the sidebar with one input
    sidebarPanel(
      actionButton(inputId = "MBA", label = "MBA"),
      actionButton(inputId = "MSLOD", label = "MSLOD"),
      actionButton(inputId = "MSQBE", label = "MSQBE")



    ),

    # Create a spot for the barplot
    mainPanel(
      plotOutput("hist")  
    )

  )
)




server <- function(input, output) {

  rv <- reactiveValues(data = data[1,1:4])

  observeEvent(input$MBA, { rv$data <- data[1,1:4] })
  observeEvent(input$MSLOD, { rv$data <- data[2,1:4] })
  observeEvent(input$MSQBE, { rv$data <- data[3,1:4] })

  output$hist <- renderPlot({ 

    barplot(rv$data, 
            main=input$radio,
            ylab="Number employees",
            xlab="Ages Range",col=rainbow(4))
  })
}

shinyApp(ui = ui, server = server)

我的数据看起来像

a   b   c  d
5   133 258 106
4   59  60  28
1   34  64  28

作为矩阵

标签： rshinyshinydashboardshinyapps

解决方案

在我们的项目中，我们发现这个功能已经在 plotly 中实现了：

https://plot.ly/r/shiny-tutorial/

我已经有一段时间没有使用 plotly 了，但是我相信对于您的应用程序，您会在 UI 中更改plotOutput为，并且服务器端也有类似的功能。plotlyOutputrenderPlotly

Plotly 与标准 R 绘图略有不同，但它支持更好的开箱即用交互性，因此如果您打算制作交互式绘图，我会推荐它。

推荐阅读