R导出shp文件不乱码的方法

今天下午试了很多包，sf,sp,rgdal 等等纷纷沦陷。还好有maptools包。函数是writeSpatialShape

file.sf %>% as('Spatial') %>%  writeSpatialShape('file.shp')

这个函数只认sp包里的那些SpatialDataFrame格式的文件，所以要先把sf格式转换一下。这都不是问题，反正从shp文件可以直接读为sf格式的。但是，这个函数不从源文件里读取投影信息，也没有参数可以选择写入什么样的投影信息。所以，这就意味着读进来之后还是需要再手动添加参考坐标系，在arcgis里也要进行类似操作。蛋疼。