安装.包( " 优先级排序器 " , 回购 = " https://cran.rstudio.com/ " )
-
从安装最新开发版本 R(右) 宇宙 ,使用 下列的 R(右) 代码。 安装.包( " 优先级排序器 " , 回购 = c(c)( " https://prioritizr.r-universe.dev(网址:https://prioritizr.r-universe.dev) " , " https://cloud.r-project.org " ) ) -
从安装最新开发版本 github ,使用 下列的 R(右) 代码。 如果 ( ! 要求( 遥控器 ))安装.包( " 遥控器 " ) 遥控器 :: 安装github( " 优先级/优先级 " )
Hanson JO、Schuster R、Morrell N、Strimas-Mackey M、Edwards BPM、Watts ME、Arcese P、Bennett J、Possingham HP(2024年)。 优先级:系统 R.R软件包8.0.4版中的保护优先级。 可用 在 https://CRAN.R-project.org/package=优先级 .
Hanson JO、Schuster R、Morrell N、Strimas-Mackey M、Edwards BPM、Watts ME、Arcese P、Bennett J、Possingham HP(2024年)。 优先级:系统 R.R软件包8.0.4版中的保护优先级。 可用 在 https://github.com/priorizer/priorizer .
# 加载程序包 图书馆( 优先级排序器 ) 图书馆( 优先级数据 ) 图书馆( 特拉 )
# 导入计划单位数据
wa_pu(_pu) <- 获取wa_pu() # 预览数据 打印( wa_pu(_pu) )
##类:SpatRaster ##尺寸:109、147、1(nrow、ncol、nlyr) ##分辨率:4000,4000(x,y) ##范围:-1816382,-1228382,247483.5,683483.5(xmin,xmax,ymin,ymax) ##咕咕叫。 参考:+proj=laea+lat_0=45+lon_0=-100+x_0=0+y_0=0+ellps=球体+单位=m+no_defs ##来源:wa_pu.tif ##名称:成本 ##最小值:0.2986647 ##最大值:1804.1838379
# 绘图数据 绘图( wa_pu(_pu) , 主要的 = " 成本 " , 轴 = 错误的 )
# 输入要素数据
wa功能(_F) <- 获取wa特性() # 预览数据 打印( wa功能(_F) )
##类:SpatRaster ##尺寸:109、147、396(nrow、ncol、nlyr) ##分辨率:4000,4000(x,y) ##范围:-1816382,-1228382,247483.5,683483.5(xmin,xmax,ymin,ymax) ##协调。 参考:+proj=laea+lat_0=45+lon_0=-100+x_0=0+y_0=0+ellps=sphere+units=m+no_defs ##来源:wa_features.tif ##名称:递归~ding)、Botau~ding(波图~ding。。。 ##最小值:0.000、0.000、0000、0.000。。。 ##最大值:0.514、0.812、3.129、0.115、0.296、0.06。。。
# 绘制前九个特征 绘图( wa_features(_F) [[ 1 : 9 ]], 编号 = 三 , 轴 = 错误的 )
# 如果需要,安装HiGHS解算器 安装.包( " 高点 " , 回购 = " https://cran.rstudio.com/ " )
# 计算预算
预算 <- 特拉 :: 全球( 瓦普 , " 总和 " , na.rm(毫米) = 真的 )[[ 1 ]] * 0.05
# 制造问题
第1页 <- 问题( wa_pu(_pu) , 特征 = wa功能(_F) ) % > % 添加最小缩短对象( 预算 ) % > % 添加相对目标( 0.2 ) % > % add_binary_decisions()% > % 添加默认解决程序( 缺口 = 0.1 , 冗长的 = 错误的 ) # 打印问题 打印( 第1页 )
##守恒问题(<守恒问题>) ##●数据 ##│•特征:“Recurvirostra americana(繁殖)”,……(共396个) ##│•规划单位: ##││•数据:<SpatRaster>(总计10757) ##││•成本:连续值(介于0.2987和1804.1838之间) ##│•范围:-1816381.6182247483.5211-1228381.6182683483.5211(xmin,ymin,xmax,ymax) ##©©CRS:+proj=laea+lat_0=45+lon_0=-100+x_0=0+y_0=0+ellps=球体+单位=m+no_defs(投影) ##●配方 ##││•目标:最低短缺目标(‘预算’=8748.4908) ##││•处罚:无规定 ##││•目标:相对目标(在0.2和0.2之间) ##│•约束:未指定 ##│•决策:二元决策 ##⑪•优化 ##●投资组合:默认投资组合 ##•solver:gurobi solver(`gap`=0.1,`time_limit`=2147483647,`first_feasible`=FALSE,…) ## # ℹ 使用“summary(…)”查看完整的公式。
# 解决问题
s1 <- 解决( 第1页 ) # 提取目标 打印(属性( s1 , " 客观的 " ))
##解决方案1 ## 4.463003
# 抽出解决问题的时间 打印(属性( s1 , " 运行时 " ))
##解决方案1 ## 4.176
# 从解算器中提取状态消息 打印(属性( s1 , " 地位 " ))
##解决方案1 ##“最佳”
# 绘制解决方案 绘图( s1 , 主要的 = " 解决方案 " , 轴 = 错误的 )
# 通过解决方案计算选定的规划单元数 评估_摘要( 第1页 , s1 )
###A台:1×2 ##摘要n ##<chr><dbl> ##1个2308
# 计算解决方案的总成本 评估成本汇总( 第1页 , s1 )
###A兼容:1×2 ##汇总成本 ##<chr><dbl> ##总共8748人。
# 计算解决方案的目标覆盖率
p1_目标覆盖率 <- 评估目标平均值摘要( 第1页 , s1 ) 打印( p1_目标覆盖率 )
###A兼容:396×9 ##功能满足total_amount absolute_target absolute_held absolute_shortfall ##<chr><lgl><dbl><dbl><dbl ##1 Recurvir…真100。 20.0 23.3 0 ##2人马座…正确99.9 20.0 29.1 0 ##3人马座…真100。 20.0 34.0 0 ##4乌鸦b…TRUE 99.9 20.0 20.2 0 ##5乌鸦b…假99.9 20.0 18.5 1.53 ##6 Cinclus…真100。 20.0 20.5 0 ##7脊椎…正确99.9 20.0 22.2 0 ##8脊椎…正确99.9 20.0 22.6 0 ##9 Falco sp.…正确99.9 20.0 24.3 0 ##10 Falco sp.…真100。 20.0 24.2 0 ## # ℹ 还有386行 ## # ℹ 还有3个变量:relative_target<dbl>、relative_hold<dbl, ###relative_shortfall<数据库>
# 在给定解决方案的情况下,检查达到目标的功能的百分比 打印(平均值( p1_目标覆盖率 $ 遇见 ) * 100 )
## [1] 96.21212
# 导入锁定的数据
wa_locked_in(锁定) <- 获得锁定() # 打印数据 打印( wa_locked_in(锁定) )
##类:SpatRaster ##尺寸:109、147、1(nrow、ncol、nlyr) ##分辨率:4000,4000(x,y) ##范围:-1816382,-1228382,247483.5,683483.5(xmin,xmax,ymin,ymax) ##协调。 参考:+proj=laea+lat_0=45+lon_0=-100+x_0=0+y_0=0+ellps=球体+单位=m+no_defs ##来源:wa_locked_in.tif ##名称:保护区 ##最小值:0 ##最大值:1
# 绘图数据 绘图( wa_locked_in(锁定) , 主要的 = " 现有保护区 " , 轴 = 错误的 )
# 使用添加到其中的锁定约束创建新问题
第2页 <-
第1页 % > % 添加锁定的in_constraints( wa_locked_in(锁定) ) # 解决问题
s2秒 <- 解决( 第2页 ) # 绘制解决方案 绘图( s2秒 , 主要的 = " 解决方案 " , 轴 = 错误的 )
# 导入锁定的数据
wa_锁定_关闭 <- 获得锁定() # 打印数据 打印( wa_锁定_关闭 )
##类:SpatRaster ##尺寸:109、147、1(nrow、ncol、nlyr) ##分辨率:4000,4000(x,y) ##范围:-1816382,-1228382,247483.5,683483.5(xmin,xmax,ymin,ymax) ##协调。 参考:+proj=laea+lat_0=45+lon_0=-100+x_0=0+y_0=0+ellps=球体+单位=m+no_defs ##来源:wa_locked\out.tif ##名称:市区 ##最小值:0 ##最大值:1
# 绘图数据 绘图( wa_锁定 , 主要的 = " 无法保护的区域 " , 轴 = 错误的 )
# 使用添加到其中的锁定约束创建新问题
第3页 <-
第2页 % > % 添加锁定输出约束( wa_锁定_关闭 ) # 解决问题
第3页 <- 解决( 第3页 ) # 绘制解决方案 绘图( 第3页 , 主要的 = " 解决方案 " , 轴 = 错误的 )
# 增加边界惩罚,产生新问题
第4页 <-
第3页 % > % 添加边界支持( 处罚 = 0.003 , 边缘系数 = 0.5 ) # 解决问题
第4节 <- 解决( 第4页 ) # 绘制解决方案 绘图( 第4节 , 主要的 = " 解决方案 " , 轴 = 错误的 )
# 计算重要性得分
钢筋混凝土 <-
第4页 % > % 评估运送者重要性( 第4节 ) # 打印分数 打印( 钢筋混凝土 )
##类:SpatRaster ##尺寸:109、147、397(nrow、ncol、nlyr) ##分辨率:4000,4000(x,y) ##范围:-1816382、-1228382、247483.5、683483.5(xmin、xmax、ymin、ymax) ##协调。 参考:+proj=laea+lat_0=45+lon_0=-100+x_0=0+y_0=0+ellps=球体+单位=m+no_defs ##源:内存 ##变量名:wa_pu ##wa_pu(_pu) ##wa_pu(_pu) ## ... ##名称:Recur~ding),Botau~ding),Botau~ding),Corvu~ding),Corvu~ding),Cincl~full)。。。 ##最小值:0.00000000000.0000000000.00000000000.00000000000,0.00000000e+00,0.000000e+00,0.00000e+00。。。 ##最大值:0.0003227724、0.0002213034、0.0006622152、7.771815e-05、8.974447e-05、8.483296e-05。。。
# 绘制总重要性得分
# #注意,灰色单元格不是按优先级选择的 绘图( 钢筋混凝土 [[ " 全部的 " ]], 主要的 = " 重要性得分 " , 轴 = 错误的 , 打破 = c(c)( 0 , 1e-10 , 0.005 , 0.01 , 0.025 ), 科尔 = c(c)( " #电子5e5e5 " , " #fff7秒 " , " #fc8d59型 " , " #7f0000个 " ) )
得到 起动 :短 关于使用该包的教程。 包裹 概述 : 介绍系统保护规划和综合 软件包概述。 连接性 辅导的 : 关于将连接性纳入优先级的教程。 校准权衡 辅导的 : 运行校准分析以满足多个 标准。 管理区域 辅导的 : 关于将多个管理区域和操作合并到 优先顺序。 Gurobi安装 指导 : 安装说明 古罗比 优化套件 生成优先级。 解算器 基准 : 生成优化求解器的性能比较 优先顺序。 出版物 记录 : 引用该软件包的出版物列表。