Можно ли включить анимированный барплот в приложение Shiny? - PullRequest
Новая
       14

Можно ли включить анимированный барплот в приложение Shiny?

0 голосов
/ 03 ноября 2019

Возможно ли включить анимированный барплот в мою Shiny Dashboard. Я создал анимированные столбцы, которые работают в RStudio, однако, когда я пытаюсь включить их в свою Shiny Dashboard, они не отображаются.

Кто-нибудь знает, можно ли включить в панель инструментов gganimate графики.

Ниже приведена сокращенная версия моего кода. 

library(gganimate)
library(shinydashboard)
library(plotly)

ui = dashboardPage(
  #Header
  dashboardHeader(title = "Irish Crime Analysis"),

  #Sidebar
  dashboardSidebar(
  sidebarMenu(
    menuItem("Dashboard", tabName = "dashboard"),
    menuItem("Search", tabName = "search"),
    menuItem("Break Down", tabName = "breakDown")
  )
),

#Body
dashboardBody(tabItems(
# First tab content
tabItem(tabName = "dashboard",
        fluidRow(
          valueBoxOutput("value1")
          ,valueBoxOutput("value2")
          ,valueBoxOutput("value3"),

          fluidRow(
            box(
              title= "Crime Grouped by Year"
              ,status = "primary"
              ,solidheader = TRUE
              ,collapsible = TRUE
              ,plotOutput("CrimeGroupbyYear", height = "300px")
            )
            ,box(
              title= "Count of Crime Categories over the Years"
              ,status = "primary"
              ,solidheader = TRUE
              ,collapsible = TRUE
              ,plotOutput("CrimeCatanimate", height = "300px"))))
))

),
# Second tab content #
tabItem(tabName = "search",
        fluidRow(
          h2("Search Set ups"),
          DT::dataTableOutput("mytable")
        )))

server = function(input, output) {

output$CrimeCatanimate <- renderPlotly({
 ggplot(DF_YearsCombined, aes(CrimeCount, CrimeScore, color = CrimeCat)) +
  geom_point() +
  theme_bw() +
  # gganimate specific bits:
  labs(title = 'Year: {frame_time}', x = 'Number of Crimes', y = 'Crime 
  Score') +
  transition_time(yearOnly) 
  }) 
}

shinyApp(ui, server)
...