remapB绘制迁徙图

destination<c("shanghai","guangzhou","南","dalian","xian","chengdu","changchun","taiyuan","nanyang","zhengzhou")  #终点
origin<- rep("nanyang",length(destination))  #起点
map_data<- data.frame(origin,destination)  #合成数据框格式的作图数据
map_out<-remapB(zoom=5, #参数5绘制省级国家地图
                color="Blue",
                title="我是主标题",
                subtitle="我是副标题",
                markLineData=map_data,
                markPointData=destination,
                markLineTheme=markLineControl(),
                markPointTheme=markPointControl(symbol = 'emptyCircle',
                                                symbolSize =0,
                                                effect = F,
                                                effectType = 'bounce',
                                                color = "Random"))


plot(map_out)
# 参数一：center为地图中心，经纬度格式；
# 参数二：zoom为缩放设置，默认为5，代表全国地图，增大至10可放大至地市
# 参数三：color为地图颜色，可选有"Bright", "Blue", "light", "dark", "redalert", "googlelite", "grassgreen", "midnight", "pink", "darkgreen", "bluish", "grayscale", "hardedge"
# 参数四：title为地图主标题
# 参数五：subtitle为地图副标题参
#数六：markLineData为绘制线条需要的数据，包括起点和终点两列
# 参数七：markPointDate为绘制点需要的数据，仅终点一列
# 参数八：markLineTheme为线条主题设置，通过markLineControl( )函数设置
# 参数九：markPointTheme为点主题设置，通过markPointControl( )函数设置

# 参数十：geoData为点、线绘制的地理位置数据存储，可以只是输入经纬度数据，也可通过get_geo_position(‘地点’)获取