Сюжет Col не группируется по входу - PullRequest
Новая
       14

Сюжет Col не группируется по входу

0 голосов
/ 22 ноября 2018

Я пытаюсь сделать небольшое приложение с ggplot на синусе.Как я вижу это?это должен быть гистограмма, где пользователь может выбрать один из 3 входов.Вход 1 идет для фильтрации, вход 2 идет для группировки и оси X, вход 3 идет для оси Y.

`` `

# Inputs
   sidebarLayout(
      sidebarPanel(
        # Select a retail network
         selectInput(inputId = "filter",
                     label = "Головной_контрагент:",
                     choices = act_nets,
                     selected = act_names[1],
                     selectize = TRUE),
         # X axis
         selectInput(inputId = "X",
                     label = "Разбивка по:",
                     choices = df_orkb_act1 %>% 
                               select(Месяц,Контрагент, Номенклатура) %>% names(),
                     selected = "Контрагент"
                     ),
         # Y axis
         selectInput(inputId = "Y",
                     label = "Показатель:",
                     choices = unique(df_orkb_act1$Показатель),
                     selected = "Количество",
                     selectize = TRUE)
         ),




      # Show a plot of the generated distribution
      mainPanel(
        plotlyOutput("barPlot")
      )
   )
)



# Define server logic required to draw a histogram


server <- function(input, output) {

   output$barPlot <- renderPlotly({


   ggplotly(  df_orkb_act1 %>% filter(`Головной контрагент` == input$filter, Показатель == input$Y) %>%
       group_by(input$X) %>%
       summarise(Значение = sum(Значение, na.rm = T)) %>%
       ggplot(aes_string(x = "input$X", y = "Значение")) + 
       geom_col(position = "dodge") +
       ylab(input$Y) +
       ggtitle(input$filter) )

   })
}

` ``

, и я получаю то, что находится на левой стороне экрана печати, вставлено то, что мне нужно (сюжет в Rstudioзритель) enter image description here

Что не так?

код для графика в программе просмотра в основном такой же, только с выбранными входами: 

ggplotly( df_orkb_act1 %>% filter(`Головной контрагент` == "супермаркет Фреш 25", Показатель == "Количество накладных") %>%
  group_by(Месяц, Акция) %>%
  summarise(Значение = sum(Значение, na.rm = T)) %>%
  ggplot(aes(x = factor(Месяц), y = Значение, fill = Акция)) + 
  geom_col(position = "dodge") )

и данные выглядят так: 

Observations: 70,077
Variables: 10
$ Подразделение         <chr> "ОРКБ", "ОРКБ", "ОРКБ", "ОРКБ", "ОРКБ", "ОРКБ", "ОРКБ", "ОРКБ", "ОРКБ", "ОРКБ", "ОРКБ", "ОРКБ...
$ Проект                <chr> "Антохин Илья", "Антохин Илья", "Антохин Илья", "Антохин Илья", "Антохин Илья", "Антохин Илья...
$ `Головной контрагент` <chr> "ИП Гаврилов Александр Владимирович", "ИП Гаврилов Александр Владимирович", "ИП Гаврилов Алек...
$ Номенклатура          <chr> "Баночка 500 мл One Time (5 шт.)", "Вилка белая One Time (10 шт.)", "Контейнер 600 мл One Tim...
$ Контрагент            <chr> "ИП Гаврилов Александр Владимирович", "ИП Гаврилов Александр Владимирович", "ИП Гаврилов Алек...
$ `Серия номенклатуры`  <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
$ Акция                 <chr> "Без Акции", "Без Акции", "Без Акции", "Без Акции", "Без Акции", "Без Акции", "Без Акции", "Б...
$ Месяц                 <dttm> 2018-04-01, 2018-04-01, 2018-04-01, 2018-04-01, 2018-04-01, 2018-04-01, 2018-04-01, 2018-04-...
$ Показатель            <chr> "Количество", "Количество", "Количество", "Количество", "Количество", "Количество", "Количест...
$ Значение              <dbl> 20, 60, 22, 45, 48, 54, 40, 56, 40, 54, 60, 80, 70, 60, 60, 1, 1, 60, 60, 60, 60, 60, 3, 9, 3...
...