使用ggplot2在地圖上繪制熱力圖
######*****繪制熱力圖代碼*****#######
interval <- seq(0, 150000, 25000)[-2]
#設置價格區間
newpri <- cut(data1$price, interval, labels = F)
#設置價格為因子類型
newpri <- factor(newpri, levels = 1:5, labels = c("25000", "50000", "75000", "100000", "125000"))
#設置因子順序
data1$newpri <- newpri
#添加到數據框中
ggmap(beijing) +
stat_bin2d(aes(LONG, LAT, fill = newpri), data = data1, size = 0.5, alpha = 0.5) + #繪制熱力圖
labs(title = "北京二手房單價", x = '經度', y = '緯度') + #添加標題
scale_fill_manual("單價（元）",
values = c("#64f830", "#adda30", "#d1b930", "#e89230", "#fa5030"),
breaks = c("125000", "100000", "75000", "50000", "25000")) #設置熱力圖漸進顏色
