r - 使用 R 的动画地图

Question

我有 30 年平均温度的 15 个站点的数据，并且想使用 r studio（传单）创建动画。我正在查看一些代码，但它不起作用。关于如何在 r studio 中使用传单创建时间序列动画的解释会很有帮助。

# install libraray
library(sp)
library(raster)
library(leaflet)


Temp53Yrs_df <- read.csv("C:/Users/Sownal/Documents/53YearsTemp.csv")
View(Temp53Yrs_df)

#make plots for the points in the map
leaflet() %>%
  addTiles() %>%
  addCircleMarkers(lat = Temp53Yrs_df$lat,
               lng = Temp53Yrs_df$long)


# Add Data for Average Yearly Annual Temperature
 col_pal <- colorNumeric(palette = "viridis",
                    domain = Temp53Yrs_df$X1965, reverse = TRUE)

 #make years plot in the map
leaflet() %>%
  addTiles() %>%
  addCircles(lat = Temp53Yrs_df$lat,
         lng = Temp53Yrs_df$long,
         color = col_pal(Temp53Yrs_df$X1965),
         radius = 20000,
         fillOpacity = 0.4,
         label =  Temp53Yrs_df$X1965) %>%
  addLegend(Temp53Yrs_df, position = "bottomleft", pal = col_pal, 
values = Temp53Yrs_df$X1965, title = "Average Temperature in Year 
1965")

#make years plot in the map
leaflet() %>%
   addTiles() %>%
  addCircles(lat = Temp53Yrs_df$lat,
         lng = Temp53Yrs_df$long,
         color = col_pal(Temp53Yrs_df$X1966),
         radius = 20000,
         fillOpacity = 0.4,
         label =  Temp53Yrs_df$X1966) %>%
  addLegend(Temp53Yrs_df, position = "bottomleft", pal = col_pal, 
 values = Temp53Yrs_df$X1966, title = "Average Temperature in Year 
1966")

 #make years plot in the map
 leaflet() %>%
   addTiles() %>%
   addCircles(lat = Temp53Yrs_df$lat,
         lng = Temp53Yrs_df$long,
         color = col_pal(Temp53Yrs_df$X1967),
         radius = 20000,
         fillOpacity = 0.4,
         label =  Temp53Yrs_df$X1967) %>%
   addLegend(Temp53Yrs_df, position = "bottomleft", pal = col_pal, 
 values = Temp53Yrs_df$X1967, title = "Average Temperature in Year 
1967")

#make years plot in the map
leaflet() %>%
  addTiles() %>%
   addCircles(lat = Temp53Yrs_df$lat,
         lng = Temp53Yrs_df$long,
         color = col_pal(Temp53Yrs_df$X1968),
         radius = 20000,
         fillOpacity = 0.4,
         label =  Temp53Yrs_df$X1968) %>%
  addLegend(Temp53Yrs_df, position = "bottomleft", pal = col_pal, 
    values = Temp53Yrs_df$X1968, title = "Average Temperature in Year 
    1968")

示例数据附在下面

在此处输入图像描述 在此处输入图像描述

标签： rleafletusing