用R中的ggplot绘制谷歌地图

install.packages("ggplot2")
install.packages("tidyverse")

library(ggplot2)
library(tidyverse)

# 创建数据帧
data <- data.frame(lat = c(37.7749, 39.9042, 38.8251, 37.8162),
                 long = c(-122.4194, -121.9357, -122.3374, -122.4250),
                 color = c("red", "blue", "green", "orange"))

# 设置地图参数
map_params <- function(map_obj) {
  map_obj$region <- "US"
  map_obj$subregion <- "California"
  return(map_obj)
}

# 使用 ggplot 绘图
ggplot(data = data, aes(x = long, y = lat, group = group, color = color)) +
  geom_polygon(fill = "lightblue") +
  coord_map(xlim = c(-122.5, -121.5), ylim = c(37.5, 38.5)) +
  theme_void() +
  theme(legend.position = "none") +
  labs(title = "Google Maps")

ggsave("map.png", map, width = 1000, height = 500)