条形图错误与Shiny R

Question

我无法使用闪亮的应用程序解决该错误以创建条形图。显示的错误是未传递任何参数。代码如下。

Ui.R

shinyUI(fluidPage(
  titlePanel("An Overview of my skillsets"),

  sidebarLayout(
    sidebarPanel(                  
                   selectInput("dataset", "Select Company", 
                               choices = c("Accenture", "Auroch", "Quintiles", "Others")),

                   numericInput("obs", "Number of observations to view:", 10) ),
    mainPanel(plotOutput(""))
  )
))

Server.R

library(shiny)

shinyServer(function(input, output) {

  TechSkills <- c( "X", "Y", "Z", "A", "B", "C")

  TS_ACC <-c(25,26,22,12,22,27)
  TS_AUR <- c(8,6,7,5,4,7)
  TS_QUIN <- c(12,12,14,24,17,27)
  ACCENTURE=data.frame(TechSkills, TS_ACC)
  AUROCH=data.frame(TechSkills, TS_AUR)
  QUINTILES=data.frame(TechSkills, TS_QUIN)

  datasetInput <- reactive({
    switch(input$dataset,
           "Accenture" = ACCENTURE,
           "Auroch" = AUROCH,
           "Quintiles" = QUINTILES,
            "Others" =OTHERS)
  })
  output$dataset <- renderPlot({
    barplot(data=dataset)
  })
 })

Answer 1

此代码中可能有几处错误：

1. plotOutput（“”）应该具有outputId，即“数据集”
2. barplot不接受参数数据，应提供“ height”和“ arg.names”

因此，代码应如下所示：

ui.R

shinyUI(fluidPage(
  titlePanel("An Overview of my skillsets"),

  sidebarLayout(
    sidebarPanel(                  
               selectInput("dataset", "Select Company", 
                           choices = c("Accenture", "Auroch", "Quintiles", "Others")),

               numericInput("obs", "Number of observations to view:", 10) ),
mainPanel(plotOutput('dataset'))
  )
))

server.R

library(shiny)

TechSkills <- c( "X", "Y", "Z", "A", "B", "C")

TS_ACC <-c(25,26,22,12,22,27)
TS_AUR <- c(8,6,7,5,4,7)
TS_QUIN <- c(12,12,14,24,17,27)
ACCENTURE=data.frame(TechSkills, TS_ACC)
AUROCH=data.frame(TechSkills, TS_AUR)
QUINTILES=data.frame(TechSkills, TS_QUIN)


shinyServer(function(input, output) {


  datasetInput <- reactive({
    switch(input$dataset,
           "Accenture" = ACCENTURE,
           "Auroch" = AUROCH,
           "Quintiles" = QUINTILES,
            "Others" =OTHERS)
  })
  output$dataset <- renderPlot({
    d <- datasetInput()
    barplot(height=d[,2],names.arg=d[,1])
  })
 })

Answer 2

一分钟为时已晚，但是这里是鲜为人知的函数setNames的变体

  output$mybarplot <- renderPlot({
    d1 = datasetInput()
    barplot(setNames(d1[,2],d1[,1]))
  })