为R中的leaflet添加标签到使用leaftime插件创建的时间线地图

install.packages("leaflet")
install.packages("leaftime")

library(leaflet)

# 创建一个leaflet地图对象
m <- leaflet() %>%
  setView(lng = 0, lat = 0, zoom = 2)  # 设置地图的中心点和缩放级别

# 显示地图
m

library(leaftime)

# 创建时间线
timeline <- addTimeline(m,
                         position = "bottomleft",  # 时间线的位置
                         start = "2000-01-01",      # 时间线的起始日期
                         end = "2022-12-31")        # 时间线的结束日期

# 添加标签
timeline %>% 
  addLabelOnlyMarkers(lng = 0, lat = 0,          # 标签的位置
                      label = "Hello World",     # 标签的内容
                      labelOptions = labelOptions(noHide = TRUE))  # 设置标签不隐藏

# 设置时间线的样式和交互
timeline %>% 
  setTimelineOptions(orient = "top",     # 时间线的位置
                     autoplay = TRUE,    # 自动播放
                     loop = TRUE,        # 循环播放
                     style = "bar")      # 时间线的样式