library(maps) #为了使用地图数据
library(mapdata) #加载地图
library(ggplot2)

1）简单绘制中国地图

china_map<-map("china") #中国地图

  从maps包里获取地图数据，利用china数据集直接读取中国地图

2）ggplot绘制中国地图

  从maps包里获取地图数据，用geom_polygon填充地图颜色，设置坐标轴使得添加经纬度坐标。

ggplot(china_map,aes(x=long,y=lat,group=group))+ #利用ggplot包加载中国地图
geom_polygon(fill="lightgreen",colour="black")

  利用ggplot包绘制中国地图，给其设置经纬度，且填充色为淡绿色，边框线为黑色。