как я могу отображать и анимировать гугл-карту, я уже использовал этот код
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)
, но я не помогал, спасибо
, когда я пытаюсь запустить весь код, яполучил это
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)
