Question

我正在使用googlevis渲染图表，我不明白为什么他们会给我错误

csv看起来像这样：月，苹果，瓜，樱桃，石榴，香蕉，基维，鳄梨一月，1,2,3,4,5,6,7 二月，12,10,7,6,10,8,9 三月，14,4,2,12,8,5,5 4月16、8、6、8、14、13、12 五月10,8,6,17,8,9,2 6月15、20、14、8、6、4、3 7月22、14、18、9、20、8、5 8月8、9、12、15、10、8、9 9月8、12、12、4、5、1,2 十月，12,7,5,3,10,4,1 十一月6,6,7,9,8,5,4,2 12月，12,1,3,4,10,5,2

library(shiny)
library(googleVis)
Book1 <- read.csv("Book1.csv")

 ui <- fluidPage(

   titlePanel("Google Chart Tools - grafice"),
   sidebarLayout(
     sidebarPanel(
       selectInput("col", "Selectati coloana dorita", 
                   choices = names(Book1), selected="month")
     ),

     mainPanel(
       htmlOutput("g1"),
       htmlOutput("g2"),
       htmlOutput("g3"),
       htmlOutput("g4"),
       htmlOutput("g5"),
       htmlOutput("g6"),
       htmlOutput("g7"),
       htmlOutput("g8"),
       htmlOutput("g9")
     )
   )

  )

 server <- function(input, output) {

   output$g1 <-renderGvis({
     bk<-Book1[,col("mounth",input$col)]

     gvisPieChart(Book1, 
                  options=list(title="Grafic tip Pie -valori procentuale",
                               colors="['lightgreen', 'lightblue', 'pink','yellow','orange']",
                               width=700, height=500

                  ))
   })

 }

shinyApp(ui = ui, server = server)

Answer 1

一些注意事项：

mounth应该是'month'
对于gvisPieChart，您需要一个数据框，该数据框可能包含month和另一列（例如，苹果），因此您希望合并这些列：c（“ month”，input $ col）
bk

也许这可能有效：

output$g1 <- renderGvis ({
    bk <- Book1[, c("month", input$col)]
    gvisPieChart(bk,
                 options=list(title="Grafic tip Pie -valori procentuale",
                              colors="['lightgreen', 'lightblue', 'pink','yellow','orange']",
                              width=700, height=500
                 ))
  })

图表给我一个“参数不能解释为逻辑”错误

1 个答案: