尝试在R传单中添加时间滑块

我想对CT的啤酒厂做一个分析。我想做的是制作一个啤酒厂的地图，并添加一个滑块，使每个啤酒厂的图标根据其开业年份显示在地图上。我还想在地图上添加一个计数器，在移动年份滑块时显示啤酒厂的总数。我用R里的传单包做地图

以下是部分数据：

    Name  City      Latitude    Longitude     Opened   YearOpened
1   BAR New Haven   41.30629    -72.93042   1995-01-01  1995
2   Thomas Hooker Brewing Co.   Bloomfield  41.79564    -72.52945   1996-01-01  1996
3   Southport Brewing Company (SBC Restaurant & Brewery)    Southport   41.13949    -73.27795   1997-01-01  1997
4   Willimantic Brewing Co. Willimantic 41.71315    -72.21715   1997-01-01  1997
5   Cottrell Brewing Co.    Pawcatuck   41.37010    -71.83370   1997-02-28  1997
6   City Steam Brewery  Hartford    41.76814    -72.67283   1997-11-01  1997
7   Olde Burnside Brewing Company   East Hartford   41.78485    -72.60069   2000-01-01  2000

下面是我用来制作地图的代码：

 beer_icon <- makeAwesomeIcon(icon = 'beer', library = 'fa', markerColor = 'beige')
 map <- breweries_subset %>%
      leaflet() %>%
      addProviderTiles(provider = 'Esri.WorldStreetMap') %>%
      addAwesomeMarkers(icon = beer_icon,
                        group = 'Breweries',
                        popup = ~ Name)

啤酒图标%
addProviderTiles（提供程序='Esri.WorldStreetMap'）%>%
添加一些标记（图标=啤酒图标，
组=‘酿酒厂’，
弹出窗口=~Name）

如果您对有光泽的

解决方案感兴趣：

library(shiny)
library(leaflet)

ui <- bootstrapPage(
  tags$style(type = "text/css", "html, body {width:100%;height:100%}"),
  leafletOutput("map", width = "100%", height = "100%"),
  absolutePanel(bottom = 30, right = 10,
                textOutput("Counter"),
                sliderInput("Year", "Year", 1990, 2000, value = 1995, step = 1, sep = "")
  )
)

server <- function(input, output, session) {

  sliderData <- reactive({
    breweries_subset %>%
      filter(YearOpened <= input$Year)
  })

  output$Counter <- renderText(
    paste("Number Breweries: ", nrow(sliderData()))
  )

  output$map <- renderLeaflet({
    leaflet() %>%
      addTiles() %>%
      fitBounds(min(breweries_subset$Longitude), min(breweries_subset$Latitude),
                max(breweries_subset$Longitude), max(breweries_subset$Latitude))
  })

  observe({
    leafletProxy("map", data = sliderData()) %>%
        clearMarkers() %>%
        addProviderTiles(provider = 'Esri.WorldStreetMap') %>%
        addAwesomeMarkers(icon = beer_icon,
                          group = 'Breweries',
                          popup = ~ Name)
  })
}

shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（单张）
ui%
添加一些标记（图标=啤酒图标，
组=‘酿酒厂’，
弹出窗口=~Name）
})
}
shinyApp（用户界面=用户界面，服务器=服务器）

您是否正在寻找或对有光泽的解决方案感兴趣？太棒了。这正是我想做的。