使用ggmap结合ggplot2绘制坐标数据集时遇到问题求助

嘿，我来帮你把这个航空公司点位的地图可视化搞定！结合ggmap和ggplot2完全可以轻松实现，我给你梳理完整的流程和代码：

你的数据集预览 #

你提供的dt.fil数据框前6行如下：

lat      lon        airline
1 -73.9930  40.7480  Virgin America
2 -71.0200  42.3610  Virgin America
3 -118.4062 33.9454  Virgin America
4 -118.4041 33.9421  Virgin America
5 -96.9322  33.2145  US Airways
6 -118.3859 34.0220  United

完整实现代码 #

你已经写了get_map的开头部分，我给你补全完整可运行的代码，还加了按航空公司区分颜色、优化点样式等实用设置：

# 先加载必要的包
library(ggmap)
library(ggplot2)

# 以数据经纬度均值为中心获取地图
map_airlines <- get_map(
  location = c(lon = mean(dt.fil$lon), lat = mean(dt.fil$lat)),
  zoom = 5,
  maptype = "satellite" # 可选：换成"roadmap"（路网图）、"terrain"（地形图）都可以
)

# 组合ggmap和ggplot2绘图
ggmap(map_airlines) +
  geom_point(
    data = dt.fil,
    aes(x = lon, y = lat, color = airline), # 按航空公司给点分配不同颜色
    size = 3, # 调整点的大小，避免太小看不清
    alpha = 0.7 # 增加透明度，防止密集点互相遮挡
  ) +
  # 添加图表标签
  labs(
    title = "各航空公司点位分布",
    x = "经度",
    y = "纬度",
    color = "航空公司"
  ) +
  # 用简洁的主题优化视觉效果
  theme_minimal()

几个实用提示 #

• 如果你还没装依赖包，先运行install.packages(c("ggmap", "ggplot2"))完成安装
• 要是get_map报API相关错误，可以试试切换地图源，比如用Stamen Maps：把maptype改成"toner"，再加个参数source = "stamen"
• 绘图前建议检查数据里的经纬度是否有异常值（比如超出合理范围的数值），提前清洗能避免绘图出错

内容的提问来源于stack exchange，提问作者JimminyCricket