使用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 = '緯度')
#添加標題