ggplot2：画世界地图和中国地图 合并数据 增添信息 标记

世界地图：

library(maps)
data("world.cities")
bigcities <- subset(world.cities, pop > 5000000)
qplot(long, lat, data = bigcities,colour=country.etc,size=pop)+ borders("world", size= 0.5)

中国地图：

library(mapdata)

ch_cities <- subset(world.cities, country.etc=="China")
ggplot(ch_cities, aes(long, lat)) + geom_point(colour= alpha("red",0.5))+ borders("china")#

合并数据到地图数据：

　　

states <- map_data("state")##将地图数据转为数据框
arrests <- USArrests ##新数据（要与地图数据中的某一列匹配）
names(arrests) <- tolower(names(arrests)) ##将列名翻译为小写，因为state数据的region为小写
arrests$region <- tolower(rownames(USArrests)) ##增添新列 region

choro <- merge(states, arrests, by = "region")

# Reorder the rows because order matters when drawing polygons
# and merge destroys the original ordering
choro <- choro[order(choro$order), ]
qplot(long, lat, data = choro, group = group, 
  fill = Assault, geom = "polygon") ##多边形
qplot(long, lat, data = choro, group = group, 
  fill = Assault / murder, geom = "polygon")


ia <- map_data("county", "iowa")
library(plyr)
mid_range <- function(x) mean(range(x, na.rm = TRUE))
centres <- ddply(ia, .(subregion), 
  colwise(mid_range, .(lat, long)))  ##计算区的中心位置
ggplot(ia, aes(long, lat)) + 
  geom_polygon(aes(group = group), 
    fill = NA, colour = "grey60") +
  geom_text(aes(label = subregion), data = centres,  ##对地图标注
    size = 2, angle = 45)


出现问题时：
dev.off()