R:带有时间滑块的地图?
Posted
技术标签:
【中文标题】R:带有时间滑块的地图?【英文标题】:R: Maps with Time Slider? 【发布时间】:2016-06-01 10:32:48 【问题描述】:有没有办法在 R 中为 Leaflet 或任何其他交互式地图库实现时间滑块?我有按时间序列排列的数据,并希望将其整合到“运动”地图中,其中绘图点随时间动态变化。
我正在考虑将我的数据分解成碎片,使用子集来捕获每个月的相应数据表。但是我如何在不同月份对应的不同数据集之间移动呢?
就目前而言,我取平均值并绘制了这些点,但我宁愿制作一张整合时间序列的地图。
到目前为止,这是我的代码:
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
提前致谢!任何指导/见解将不胜感激。
【问题讨论】:
这是一个想法,正如您建议的那样,您可以按月拆分数据集并将这些子集作为图层添加到地图上 (rstudio.github.io/leaflet/showhide.html);然后您可以单击/取消单击要显示的图层 有一个例子here。滑块位于地图的右上角。 (虽然它不是 R 实现......) 谢谢。我真的很喜欢这些想法!我将尝试使用图层建议。我更喜欢时间滑块,但我认为这是一个 java 应用程序,遗憾的是它不在我的知识领域。 值得一试mapview
- 请参阅here
另一种选择是创建一个 .gif 来显示随时间的变化。看看animation
包。
【参考方案1】:
Here 是一个可能有帮助的答案。
或者,您可以使用mapview::popupGraph 将点的时间序列作为弹出图提供。也可以向popupGraph
提供基于 htmlwidget 的交互式图表
【讨论】:
【参考方案2】:认识到这是一个非常古老的问题,以防有人仍然想知道......
leaflet.extras2 包有一些可能会有所帮助的功能。下面是一个示例,它使用一些 tidyverse 函数、sf 和 leaflet.extras2::addPlayback()
在渥太华附近生成一些有趣的 GPS 轨迹并为其设置动画。
library(magrittr)
library(tibble)
library(leaflet)
library(leaflet.extras2)
library(sf)
library(lubridate)
# how many test data points to create
num_points <- 100
# set up an sf object with a datetime column matching each point to a date/time
# make the GPS tracks interesting
df <- tibble::tibble(temp = (1:num_points),
lat = seq(from = 45, to = 46, length.out = num_points) + .1*sin(temp),
lon = seq(from = -75, to = -75.5, length.out = num_points) + .1*cos(temp),
datetime = seq(from = lubridate::ymd_hms("2021-09-01 8:00:00"),
to = lubridate::ymd_hms("2021-09-01 9:00:00"),
length.out = num_points)) %>%
sf::st_as_sf(coords = c("lon", "lat"), crs = "WGS84", remove = FALSE)
# create a leaflet map and add an animated marker
leaflet() %>%
addTiles() %>%
leaflet.extras2::addPlayback(data = df,
time = "datetime",
options = leaflet.extras2::playbackOptions(speed = 100))
【讨论】:
以上是关于R:带有时间滑块的地图?的主要内容,如果未能解决你的问题,请参考以下文章
带有自定义图块的传单地图上的标记位置随着更高的缩放级别而变化