ggmap配合ggplot2设置scale_x/y连续轴限值后数据点不显示问题求助

问题原因 #

你遇到的问题核心由两个错误导致：

• 手动设置的坐标轴限值与实际点位坐标范围不匹配：scale_x_continuous(limits = c(0,150))、scale_y_continuous(limits = c(0,150))会直接过滤掉所有X、Y值不在0-150区间内的观测，你收到的Removed 35 rows containing missing values警告就是所有点位都被限值过滤的直接提示，自然不会显示数据点。
• geom_smooth(method = 'lm')未指定对应数据集和映射：默认会继承ggmap()的底层地图数据，无法基于你的点位数据拟合回归线。

解决步骤 #

1. 先确认点位坐标范围
   运行以下代码查看你的点位实际坐标区间，确认和谷歌地图的经纬度范围匹配：

# 查看X、Y列数值范围
range(cordinate$X, na.rm = TRUE)
range(cordinate$Y, na.rm = TRUE)

如果你的cordinate数据集用的是平面投影坐标（比如UTM，单位为米），需要先转换为和谷歌地图一致的WGS84经纬度坐标系。

2. 修改绘图代码
   删除手动设置的坐标轴限值代码，补全geom_smooth的参数，调整后的完整代码如下：

register_google(key=api)
map <- get_googlemap(center = c(104,1.35), zoom = 10)
ggmap(map)+
  geom_point(data=cordinate,aes(x=X,y=Y))+
  geom_text_repel(data=cordinate,aes(x=X,y=Y,label=NPCs),fontface='bold')+
  # 如需调整视图范围请使用coord_cartesian，仅缩放不会删除原始数据
  # coord_cartesian(xlim = c(103, 105), ylim = c(0.5, 2.2)) +
  geom_smooth(data = cordinate, aes(x = X, y = Y), method = 'lm')

如果需要自定义视图范围，使用coord_cartesian()而非scale_*_continuous(limits = )，前者仅调整显示范围，不会过滤原始数据。

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