ggplot画世界地图

Sys.setlocale(category = "LC_ALL",local="chinese")
library(REmap)
library(ggplot2)
library(scatterpie)
options(remap.key=your_baidumapapi_key) 

citystring <- "东京、纽约、伦敦、洛杉矶、大阪、旧金山、剑桥、柏林、首尔、悉尼、巴黎"
city_string <- unlist(strsplit(citystring, split = "、"))
city_loc <- get_geo_position(city_string)
n <- nrow(city_loc)
city_loc$region <- factor(1:n)
city_loc$radius <- 6 * abs(rnorm(n))
city_loc$A <- abs(rnorm(n, sd=1))
city_loc$B <- abs(rnorm(n, sd=1))
city_loc$C <- abs(rnorm(n, sd=1))

world <- map_data('world')
ggplot() +
 geom_polygon(data = world,aes(x=long, y = lat, group = group),fill = NA, colour="darkgray", size=0.5) +
 coord_quickmap()+ 
 geom_scatterpie(aes(x=lon, y=lat, group=region, r=radius),data=city_loc, cols=LETTERS[1:3], color=NA, alpha=.8)+
 geom_scatterpie_legend(city_loc$radius, x=-160, y=-55)+
 theme(
        panel.grid = element_blank(),
        panel.background = element_blank(),
        panel.border = element_rect(linetype = "solid", fill = NA),
        axis.text = element_blank(),
        axis.ticks = element_blank(),
        axis.title = element_blank())