R for map (3中)：ggmap

每一个地图资源都有相应的API,指定API的get_*函数可以从它们对应的资源上下载更多的功能。
先以get_googlemap为例，它可以调用用Google Static Maps API的几乎全部功能。下面这个图形描绘的是我在
2012年夏天的旅行路线。
library(plyr)
library(ggmap)
travel<-c("bei jing","tai yuan","yan an","xi an","xining,qinghai","qinghai lake","zhangye","dunhuang shi","urumqi","ili")
travel1<-adply(travel,1,geocode)
travel2<-data.frame(travel1$lon,travel1$lat)
map<-get_googlemap('china', zoom=4,maptype='roadmap',markers = travel2,path = travel2,scale=2)
ggmap(map, extent='device')+
annotate("text",x=81.2,y=43,label="Ili",alpha=0.8)
                
                
和在google地图上描绘路线的效果是非常接近的。
（4）get_map( )的风格参数：source 和 maptype
不同的地图资源具有不同的风格，比如强调路线，水体或者行政区域，表现形式也各有千秋。
Google 有四种常见的形式：terrain (地形，默认的), satellite (卫星), roadmap（道路）,
and hybrid (混合)。上面那张图的卫星图版本是这样的：
                
                
相比之下，Stamen Maps和Cloudmade Maps的风格要炫得多。
Stamen Maps提供了
三种风格：terrain ，watercolor（水彩）和toner（色粉）。
比如，水彩风格的北京城：
 qmap("beijing", zoom = 11, source = "stamen",maptype = "watercolor")
                
                
Cloudmade Maps的风格走的更远，它允许用户利用一个在线编辑器，自己“创作地图风格”，或者使用数千种已被创造出的风格。这种自定义的风格可以被ggmap引用，但是使用
Cloudmade Maps必须注册。注册是免费的，在使用get_map 函数的时候要带有 api_key 参数。
下面这张图来自网络（#我还没注册：））