R语言terra包，clamp钳制值,裁剪

diy对比.png

25~50截断.png

# Thu Dec 10 01:18:48 2020 -

# 字符编码：UTF-8
# R 版本：R x64 4.0.3 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
rm(list=ls());gc()
.rs.restartR()
require(terra)
# clamp钳制值,裁剪
# 将值限制为最小值和最大值。也就是说，低于较低阈值和高于上限阈值的所有值将变为NA，或者，如果值=TRUE，则成为阈值

r <- rast(ncols=10, nrows=10)
values(r) <- 1:ncell(r)

rc <- clamp(r, 25, 50)
rc

par(mfrow=c(2,1))
plot(r)
plot(rc)
dev.copy(png, "25~50截断.png");dev.off()
# Thu Dec 10 01:29:17 2020 --end
# Thu Dec 10 01:33:11 2020 -diy-----------------------------
rs.img <- rast('https://imgchr.com/content/images/system/home_cover_1601010270144_8921bc.jpg')

plot(rs.img$hom_1,main='before')

clamp(rs.img$hom_1,100,150) %>%
  plot(main='after,100~150')
dev.copy(png, "diy对比.png");dev.off()

# Thu Dec 10 01:41:23 2020 --end