Ошибка в group_vars: аргумент "x" отсутствует, без значения по умолчанию - PullRequest
Новая
       14

Ошибка в group_vars: аргумент "x" отсутствует, без значения по умолчанию

0 голосов
/ 05 июня 2019

Попытка создать кольцевую диаграмму, используя плотно на блестящей Я просто получаю сообщение об ошибке: «Ошибка в group_vars: аргумент« x »отсутствует, по умолчанию нет»

Не знаете, что не так? Я хочу манипулировать диаграммой пончиков с помощью ползунка. Я вижу слайдер, но не вижу кольцевую диаграмму.

данные - этот шаблон будет повторяться до 2017 года. Я хочу найти общее значение мер: американцы и азиаты с помощью кольцевой диаграммы и манипулировать им с помощью ползунка года. 

STATE    YEAR    measure    value

CA       2005    AMERICAN   50000
NY       2005    AMERICAN   50000

CA       2005    ASIAN      50000
NY       2005    ASIAN      50000

воспроизведенные данные 

6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 
6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 
6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 
6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 
6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 
6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c("ENROLL", 
"GRADES_ALL_AM", "GRADES_ALL_AS", "GRADES_ALL_BL", "GRADES_ALL_HI", 
"GRADES_ALL_WH"), class = "factor"), value = c(727716L, 121156L, 
676297L, 311432L, 5129788L, 539538L, 471918L, 104355L, 80937L, 
1980569L, 893557L, 177448L, 231632L, 1856841L, 958052L, 493957L, 
451469L, 489281L, 795719L, 211511L, 751850L, 862495L, 1600650L, 
781566L, 329408L, 834636L, 158875L, 281354L, 222846L, 177722L, 
653488L, 281407L, 2663637L, 1112636L, 118793L, 1834239L, 312817L, 
509814L, 1719829L, 138939L, 631613L, 107050L, 844668L, 3535333L, 
462323L, 97454L, 1032842L, 896197L, 317719L, 829085L, 100313L, 
730004L, 123868L, 708482L, 312695L, 4120498L, 549570L, 479522L, 
103782L, 80678L, 2039884L, 1235304L, 181212L, 236774L, 1875956L, 
963071L0L, 0L, 0L, 66L, 0L, 0L, 0L, 0L, 
0L, 0L, 13272L, 31832L, 515L, 26L, 0L, 0L, 0L, 0L, 0L, 0L, 58L, 
503L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L)), class = "data.frame", row.names = c(NA, 
-8171L))

global.r 

require(plotly)
require(dplyr)

dataframe_read <- read.csv("newT1.csv")

dataframe_read1 <- dataframe_read[, (names(dataframe_read) %in% c("STATE", "YEAR", "measure", "value"))]

server.r 

require(shiny)
require(shinydashboard)

shinyServer(function(input, output) {
   yearinput <- reactive({
    dataframe_read1%>%
      filter(YEAR == input$years)})


output$plot = renderPlotly(
r <- dataframe_read1 %>%
  group_by(measure) %>%
  summarize(count = n()) %>%
  plot_ly(labels = ~measure, values = ~count()) %>%
  add_pie(hole = 0.6) %>%
  layout(title = "Donut charts using Plotly",  showlegend = F,
         xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))

)
})

ui.r 

library(shiny)
library(shinydashboard)

shinyUI(dashboardPage(
  dashboardHeader(title = "Working on it"),
      dashboardSidebar(
    sliderInput(
      "years",
      "Select Year:",
      min = min(dataframe_read1$YEAR),
      max = max(dataframe_read1$YEAR),
      value =  max(dataframe_read1$YEAR),
      step = 1
    )
  ),
  dashboardBody(# Boxes need to be put in a row (or column)
    fluidRow(
      box(plotlyOutput("plot"), width = 15, height = 400)
    )
  )   
  )
)
...