R：带时间滑块的贴图？

有没有办法在R中为传单或任何其他交互式地图库实现时间滑块？我将数据安排在一个时间序列中，并希望将其集成到一个“运动”贴图中，其中绘图点随时间动态变化

我想把我的数据分成几部分，使用子集来捕获每个月的相应数据表。但我如何在不同月份对应的不同数据集之间移动呢

就目前情况而言，我取了平均值并绘制了这些点，但我更愿意绘制一张整合了时间序列的地图

以下是我目前的代码：

data<-read.csv("Stericycle Waste Data.csv")
library(reshape2)
library(ggplot2)
library(plyr)
library(ggmap)
names(data)<-c("ID1","ID2", "Site.Address", "Type", "City", "Province", "Category", "Density", "Nov-14", "Dec-14", "Jan-15", "Feb-15", "Mar-15", "Apr-15", "May-15", "Jun-15", "Jul-15", "Aug-15", "Sep-15", "Oct-15", "Nov-15", "Dec-15", "Jan-16")
data<-melt(data, c("ID1","ID2", "Site.Address","Type", "City", "Province", "Category", "Density")) 
data<-na.omit(data)
data_grouped<-ddply(data, c("Site.Address", "Type","City", "Province", "Category", "Density", "variable"), summarise, value=sum(value))
names(data_grouped)<-c("Site.Address", "Type", "City", "Province", "Category", "Density", "Month", 'Waste.Mass')

dummy<-read.csv('locations-coordinates.csv')
geodata<-merge(data_grouped, dummy, by.x="Site.Address", by.y="Site.Address", all.y=TRUE)

library(leaflet)
d = geodata_avg$density_factor
d = factor(d)
cols <- rainbow(length(levels(d)), alpha=NULL)
geodata_avg$colors <- cols[unclass(d)]
newmap <- leaflet(data=geodata_avg) %>% addTiles() %>%
addCircleMarkers(lng = ~lon, lat = ~lat, weight = 1, radius = ~rank*1.1, color = ~colors,  popup = paste("Site Address: ", geodata_avg$Site.Address, "<br>", "Category: ", geodata_avg$Category, "<br>", "Average Waste: ", geodata_avg$value))
newmap

data试试R中的“操纵”软件包。我不确定它是否适用于传单？但它应该适用于普通绘图和ggplot

谢谢，
Naveen.
是一个可能有帮助的答案

或者，您可以使用提供点的时间序列作为弹出图形。还可以为
popupGraph
提供交互式的、基于htmlwidget的图形，正如您所建议的，您可以按月分割数据集，并将这些子集作为图层添加到地图上（）；然后，您可以单击/取消单击要显示的图层。下面是一个示例。滑块位于地图的右上角。（虽然不是R实现…）谢谢。我真的很喜欢这些想法！我将尝试使用图层建议。我更喜欢时间滑块，但我认为它是一个java应用程序，遗憾的是它不在我的知识范围内。它也值得查看
mapview
——另一种选择是创建一个.gif来显示随时间的变化。看看
动画
软件包。