Displaying and Animated google heat map?

问题

how can i Displaying and Animated google heat map i have already used this code

swf1 <- read.csv("D:/modilingfinel/swf1.csv",header=TRUE) 
head(swf1) 
set.seed(20170417) 
df <- swf1 df$weight <- sample(1:10, size = nrow(df), replace = T) 
google_map(key = "API_Key", data = df) %>% add_heatmap(lon = "Lon", lat = 
"Lat", 
weight = "weight", option_radius = 0.001, legend = T)

but i didnt work any help, thank you

when i try run the whole code i got this

       swf1 <- read.csv("D:/modilingfinel/swf1.csv",header=TRUE)
       head(swf1)
       swf1 <- make_bbox(lon = swf1$Lon, lat = swf1$Lat, f = .1)
       library(googleway); google_map(key = 
       "API_KEY") %>% add_markers( data = swf1, lon = "Lon", lat = "Lat") 
        set.seed(20170417)
        swf1 <- swf1
        swf1$weight <- sample(1:10, size = nrow(swf1), replace = T)

        google_map(key = "API_KEY", data = swf1)%>% add_markers( data = swf1, 
        lon = "Lon", lat = "Lat") %>%
        add_heatmap(data = swf1, lon = "Lon", lat = "Lat", weight = "weight",
                    option_radius = 0.001, legend = T)

来源：https://stackoverflow.com/questions/53713456/displaying-and-animated-google-heat-map