今天使用R读取shp文件的时候,转换编码一直有问题,因为不知道原始的编码是什么,晚上看书偶然发现tidyverse的readr包其实已经提供了解析的办法,那就是guess_encoding函数。
library(maptools)
library(ggplot2)
library(tidyverse)
mydat <- readShapePoly("bou4_4m/BOUNT_poly.shp")
WuHan <- mydat[substr(as.character(mydat$ADCODE99), 1, 4) == "4201",]
WuHan$NAME99
names <- iconv(WuHan$NAME99, from="GB18030", to="UTF8")
names
结果如下图所示:
image.png
网友评论