今天使用R读取shp文件的时候，转换编码一直有问题，因为不知道原始的编码是什么，晚上看书偶然发现tidyverse的readr包其实已经提供了解析的办法，那就是guess_encoding函数。
代码语言：javascript复制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
