wdparead读取的sf对象.jpg
微信截图_20201221115547.png
# Mon Dec 21 10:59:48 2020 -
# 字符编码：UTF-8
# R 版本：R x64 4.0.3 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
.rs.restartR()
require(wdpar)
require(mapview)
require(httr)
# wdpa_read从世界保护区数据库读取数据
rm(list=ls());gc()
# 查找列支敦士登数据集的url
download_url <- wdpa_url("LIE", wait = TRUE)
path <- paste(getwd(),'.zip',sep = '/LIE')
path
# 下载，比较卡慢
result <- GET(download_url, write_disk(path))
lie_raw_data <- wdpa_read('lie.zip')
# lie_raw_data <- st_read('WDPA_WDOECM_LIE_shp-polygons.shp')
# plot data
plot(lie_raw_data[1])
mapview(lie_raw_data)
dev.copy(png,'wdparead读取的sf对象.jpg');dev.off()
# Mon Dec 21 11:54:31 2020 --
wdpa_url函数，获取世界保护区数据库的下载网址
# Mon Dec 21 16:47:23 2020 -
# 字符编码：UTF-8
# R 版本：R x64 4.0.3 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
.rs.restartR()
require(wdpar)
# wdpa_url获取世界保护区数据库的下载网址
rm(list=ls());gc()
# 获取新西兰数据的url
nzl_url <- wdpa_url("New Zealand", wait = TRUE);BRRR::skrrrahh(25)
print(nzl_url)
# 使用新西兰的ISO3代码获取新西兰数据的url
nzl_url <- wdpa_url("NZL", wait = TRUE);BRRR::skrrrahh(25)
print(nzl_url)
# 获取全局数据的url
global_url <- wdpa_url("global")
print(global_url)
