如何解决仅在特定年份使用 r 中的叶时间库显示点
我对 r 比较陌生,我正在尝试使用 Leaftime 库来绘制一些数据。我有一组纬度、经度和我希望它们出现的年份列表。
例如,我想要 2000 年的 (33.515556,129.837222),2003 年的 (38.060556,-77.789444),2004 年的 (47.903056,7.563056) 等等。
我目前正在尝试使用以下代码执行此操作,但我不确定如何在给定时间内显示数据点
library(leaflet)
library(geojsonio)
library(leaftime)
power <- data.frame(
"Latitude" = c(
33.515556,38.060556,47.903056,49.71,49.041667,31.934167,54.140586,48.494444,48.494444
),"Longitude" = c(
129.837222,-77.789444,7.563056,8.415278,9.175,-82.343889,13.664422,17.681944,17.681944
),"year" = c(2000,2003,2004,2000,2001,2002,2001),"start" = seq.Date(as.Date("2015-01-01"),by = "day",length.out = 10),"end" = seq.Date(as.Date("2015-01-01"),length.out = 10) + 1
)
power$id <- c("data 1","data 2","data 3","data 4","data 5","data 6","data 7","data 8","data 9","data 10")
power_geo <- geojsonio::geojson_json(power,lat="Latitude",lon="Longitude")
leaflet(power_geo) %>%
addTiles() %>%
setView(44.0665,23.74667,2) %>%
addTimeline(timelineOpts = timelineOptions(
pointToLayer = htmlwidgets::JS(
"
function(data,latlng) {
return L.circleMarker(latlng,{
radius: 10,color: 'black',fillColor: 'pink',fillOpacity: 1
}).bindTooltip(
// data.properties will have the columns from sf in R
'id: ' + data.properties.id + '<br/>start: ' + data.properties.start,{permanent: true}
).openTooltip()
}
"
)
)
)
请帮我解决这个问题。
提前致谢
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。