仅在特定年份使用 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 (将#修改为@）