很多時候我們需要表示不同地區(qū)的某個值，那表示的方法有兩種，第一種是地圖+熱力圖，用地圖上的顏色表示值得大小，另一種是地圖+氣泡圖，用氣泡大小來表示值，當(dāng)然顏色也可以表示其他參數(shù)。
本篇主要講解地圖+氣泡圖如何畫出
數(shù)據(jù)準備：
1、地圖所需數(shù)據(jù)：全國地圖GIS文件
2、氣泡圖所需數(shù)據(jù)：城市名稱，經(jīng)度，維度，具體數(shù)值，如圖
實現(xiàn)原理：
將圖分解開來，發(fā)現(xiàn)是地圖+氣泡圖，我們需要畫出地圖。那如何講氣泡圖展示在地圖上呢，將位置對應(yīng)到地圖上的x,y軸，也就是經(jīng)度和維度，然后就可完美的畫圖地圖了
R代碼：
#chinamap
setwd("C:\\Users\\a\\Desktop")
library(gpclib)
library(ggplot2)
library(maps)
library(maptools)
#讀取各省的邊界數(shù)據(jù)等
shape <- readShapePoly("socialbeta/china-province-border-data/bou2_4p.shp")
#轉(zhuǎn)化數(shù)據(jù)格式，可以用fortify()函數(shù)替代
shape@data$id <- rownames(shape@data)
shape.fort <- fortify(shape, region='id')
shape.fort<-shape.fort[order(shape.fort$order), ]
#獲取氣泡圖數(shù)據(jù)
city<-read.csv('大眾點評杭州民宿用戶畫像.csv')
#建立函數(shù)，將背景全部取消
theme_clean <- function(base_size=12){
require(grid)
theme_grey(base_size)
theme(
axis.title = element_blank(),
axis.text = element_blank(),
panel.background = element_blank(),
panel.grid = element_blank(),
axis.ticks.length = unit(0, "cm"),
axis.ticks.margin = unit(0, "cm"),
panel.margin = unit(0, "lines"),
plot.margin = unit(c(0,0,0,0), "lines"),
complete = TRUE
)
}
#畫圖地圖+氣泡圖
mymap = ggplot(data = shape.fort) +
geom_polygon(aes(x = long, y = lat, group = group), colour = "grey",fill='white')
mymap2<-mymap + coord_map()+geom_point(data=city,aes(x=經(jīng)度,y=維度,size=人數(shù),color=地域))
#添加標簽，取消圖例（因為圖例太長。。），保存圖片
map<-mymap2
+ theme_clean()+theme(legend.position='none')+geom_text(data =city,
aes(x=經(jīng)度,y=維度,label =地域),vjust=-0.5,hjust=-1,size=1.5)
ggsave('map.png',map)
最終效果，由于數(shù)據(jù)相差較大，且集中在江浙滬，故其他地區(qū)的氣泡較小
