在Terra中绘制SPATVEL属性时按给定顺序对图例进行排序

  library(geodata)
  library(terra)
  
  shp <- geodata::gadm('FRA', level = 1, path = getwd())
  shp$value <- c(1, 10, 22, 30, 44, 50, 60, 70, 80, 100)
  shp$cut_hazard <- cut(shp$value,
                        breaks = c(-Inf, 29, 69, 99, +Inf),
                        labels = c("1-29 (Low)", "30-69 (Moderate)", "70-99 (High)","100 (Very High)"),
                        include.lowest = T,
                        right = T)
  shp$cut_hazard
  # Levels: 1-29 (Low) 30-69 (Moderate) 70-99 (High) 100 (Very High)
  terra::plot(shp, "cut_hazard")

labels <- c("1-29 (Low)", "30-69 (Moderate)", "70-99 (High)","100 (Very High)")
terra::plot(shp, "cut_hazard", sort = labels)

R相关问答推荐

如何从使用lapply()的r中的拆分数据帧中删除多个部分？

R gtsummary tBL_summary，包含分层和两个独立分组变量

是否有R函数来判断一个组中的所有值是否与另一个组中的所有值相同？

如何在弹性表中为类别值的背景上色

检测(并替换)字符串中的数学符号

R Tidymodels textercipes-使用spacyR进行标记化-如何从生成的标记列表中删除标点符号

如何在一次运行中使用count进行多列计数

如何改变x轴比例的列在面

Ggplot2中的重复注记

如何对2个列表元素的所有组合进行操作？

过滤名称以特定字符串开头的文件

当我添加美学时，geom_point未对齐

基于Key->Value数据帧的基因子集相关性提取

如何将一个方阵分解成没有循环的立方体

我如何使用tidyselect来传递一个符号数组，比如Pivot_Long？

如何计算每12行的平均数？

ggplot R：X，Y，Z使用固定/等距的X，Y坐标绘制六边形热图

对R中的列表列执行ROW Mean操作

主题(Legend.key=Element_RECT(Fill=&Quot；White&Quot；))不起作用

长/纬点继续在堪萨斯-SF结束，整齐的人口普查