Ошибка штрихового графика с помощью 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, т. е. 'dataset'
2. barplot не принимает данные параметров, вы должны указать 'h восемь»и '' 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

Слишком поздно, но вот вариант с малоизвестной функцией setNam es

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