Как обновить сюжет после рендеринга в R Markdown? - PullRequest
Новая
       33

Как обновить сюжет после рендеринга в R Markdown?

0 голосов
/ 19 июня 2020

Выход желаемого Обратитесь к изображению для вывода моего желания. Я хочу обновить ggplot2 в соответствии с датой. Мой набор дат состоит из 42 дней с количеством торговых точек, открывающихся каждый день по типам активов. 

df_date <- enframe(seq.Date(min(optoutlet_2$order_date), max(optoutlet_2$order_date), by = 1)) %>% 
  anti_join(optoutlet_2, by = c("value" = "order_date"))

shiny::dateInput("date_select", 
          label = "Select Date", 
          value = "2020-03-18", 
          min = min(optoutlet_2$order_date), 
          max = max(optoutlet_2$order_date),
          weekstart = 0,
          datesdisabled = optoutlet_2$value)

renderPlot({
  outlet_open <- input$date_select

  ggplot(optoutlet_2, aes(x = asset_type, y = n)) +
  geom_col(aes(fill = asset_type), width = 0.5) +
  labs(title = "Operating Outlets during MCO",
       x = "Asset Type",
       y = "Number of Outlet",
       fill = "Type of Asset") +
  theme(plot.title = element_text(hjust = 0.5),
        legend.position = "top") +
  scale_fill_brewer(palette = "Spectral")
})

Спасибо, если кто-то может помочь решить! Спасибо!

...