R REmap包试用

根据“R语言中文社区”王亨，进行试验数据。

REmap包安装

library(devtools)

install_github("lchiffon/REmap")

library(REmap)

制作旅行 行程图

构建数据出发城市，到达城市数据

city <- c("bei jing","shang hai","chong qing","cheng du","la sa")

destination <-c("shang hai","chong qing","cheng du","la sa","bei jing")

将这两列数据存储到一个数据框里面

dat <- data.frame(city,destination)

> dat

        city destination

1   bei jing   shang hai

2  shang hai  chong qing

3 chong qing    cheng du

4   cheng du       la sa

5      la sa    bei jing

使用remap构建行程图

output <- remap(dat,title = "Travel")

plot(output)

结果如图：

颜色等级图

再次构建数据集

city_zh <- c("上海","重庆","四川","北京","西藏")

value <- c(464,556,241,84,64)

Cdat <- data.frame(city_zh,value)

Cdat

作图

remapC(Cdat,maptype = "China",color = "blue")

结果如图

在颜色等级图上添加迁移数据

#markPointData 添加气泡

#markLineData  添加箭头

remapC(Cdat,maptype = "China",color = "blue",markLineData = dat,markPointData = dat)

热力图

构建热力数据

heat <- c(0.8,2.2,1.5,3.1,0.6)

获取坐标方法 get_geo_position

#热力图remapH方法需要的数据格式为： 经度，纬度，热力度

temp <- get_geo_position(as.vector(city))

temp

heat_Data <- data.frame(temp$lon,temp$lat,heat)

构图

remapH(heat_Data,minAlpha = 0.6,title = "Heat Map")

地图颜色修改

• 主题色修改

remap(dat,title = "REmap示例",subtitle = "theme:Bright",

      theme = get_theme("Bright"))

• 线条颜色修改

remap(dat2,title = "REmap示例",subtitle = "theme:Bright",

      theme = get_theme("None",lineColor = "orange"))

REmap的使用还是比较简单的，按照指定格式给定数据即可制作地图。非常方便。