今天使用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
扫码关注腾讯云开发者
领取腾讯云代金券
Copyright © 2013 - 2025 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号:粤B2-20090059 深公网安备号 44030502008569
腾讯云计算(北京)有限责任公司 京ICP证150476号 | 京ICP备11018762号 | 京公网安备号11010802020287
Copyright © 2013 - 2025 Tencent Cloud.
All Rights Reserved. 腾讯云 版权所有