使用ggplot2在地图上绘制散点图
######*****绘制散点图代码*****#######
options(baidumap.key = '**************')
#设置密钥
beijing <- getBaiduMap('北京市', width = 600, height = 600,
zoom = 11, scale = 2, messaging = F, color = "bw")
#获取北京地图
ggmap(beijing) +
geom_jitter(aes(LONG, LAT, colour = 学区房), data = data1) +
#绘制散点图
labs(title = "北京二手学区房与非学区房位置", x = '经度', y = '纬度')
#添加标题