很多时候我们需要表示不同地区的某个值，那表示的方法有两种，第一种是地图+热力图，用地图上的颜色表示值得大小，另一种是地图+气泡图，用气泡大小来表示值，当然颜色也可以表示其他参数。
本篇主要讲解地图+气泡图如何画出
数据准备：
1、地图所需数据：全国地图GIS文件
2、气泡图所需数据：城市名称，经度，维度，具体数值，如图
实现原理：
将图分解开来，发现是地图+气泡图，我们需要画出地图。那如何讲气泡图展示在地图上呢，将位置对应到地图上的x,y轴，也就是经度和维度，然后就可完美的画图地图了
R代码：
#chinamap
setwd("C:\\Users\\a\\Desktop")
library(gpclib)
library(ggplot2)
library(maps)
library(maptools)
#读取各省的边界数据等
shape <- readShapePoly("socialbeta/china-province-border-data/bou2_4p.shp")
#转化数据格式，可以用fortify()函数替代
shape@data$id <- rownames(shape@data)
shape.fort <- fortify(shape, region='id')
shape.fort<-shape.fort[order(shape.fort$order), ]
#获取气泡图数据
city<-read.csv('大众点评杭州民宿用户画像.csv')
#建立函数，将背景全部取消
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=经度,y=维度,size=人数,color=地域))
#添加标签，取消图例（因为图例太长。。），保存图片
map<-mymap2
+ theme_clean()+theme(legend.position='none')+geom_text(data =city,
aes(x=经度,y=维度,label =地域),vjust=-0.5,hjust=-1,size=1.5)
ggsave('map.png',map)
最终效果，由于数据相差较大，且集中在江浙沪，故其他地区的气泡较小
