如何在data.frame中对两列使用ggmap的重新地理编码？

install.packages("ggmap")  # 安装ggmap包
library(ggmap)  # 加载ggmap包

# 假设data.frame的名称为df，包含两列地址信息：address1和address2
# 使用geocode函数对address1进行地理编码
df$geocode1 <- geocode(df$address1)

# 使用geocode函数对address2进行地理编码
df$geocode2 <- geocode(df$address2)

# 使用ggmap函数加载地图
map <- get_map(location = "your_location", zoom = 10)  # 替换"your_location"为你的地理位置

# 使用ggmap函数绘制地图
ggmap(map) +
  geom_point(data = df, aes(x = geocode1$lon, y = geocode1$lat), color = "red") +  # 绘制address1的地理编码点
  geom_point(data = df, aes(x = geocode2$lon, y = geocode2$lat), color = "blue")  # 绘制address2的地理编码点