hist直方圖.jpg
hist直方圖,三個圖層.jpg
R語言terra包纬纪，hist直方圖蚓再。
# Fri Dec 25 13:58:30 2020 -
# 字符編碼：UTF-8
# R 版本：R x64 4.0.3 for window 10
# cgh163email@163.com
# 個人筆記不負責任
# —— 拎了個梨??
.rs.restartR()
require(terra)
# hist直方圖。
# 創(chuàng)建SpatRaster值的直方圖育八。對于大型數(shù)據(jù)集对途，使用maxcell示例。
rm(list=ls());gc()
r1 <- r2 <- rast(nrows=50, ncols=50)
values(r1) <- runif(ncell(r1))
values(r2) <- runif(ncell(r1))
rs <- r1 + r2
rp <- r1 * r2
opar <- par(no.readonly =TRUE)
par(mfrow=c(2,2))
plot(rs, main='sum')
plot(rp, main='product')
hist(rs)
dev.copy(png,'hist直方圖.jpg');dev.off()
a <- hist(rp)
a
x <- c(rs, rp, sqrt(rs))
hist(x)
par(opar)
dev.copy(png,'hist直方圖,三個圖層.jpg');dev.off()
# Fri Dec 25 14:15:16 2020 --end
