image.png
# Tue Dec 15 14:54:13 2020 -
# 字符编码：UTF-8
# R 版本：R x64 4.0.3 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
.rs.restartR()
require(terra)
# density创建SpatRaster单元值的密度图
rm(list=ls());gc()
logo <- rast(system.file("ex/logo.tif", package="terra"))
plot(logo)
density(logo)
# Tue Dec 15 14:55:43 2020 --
#
rs.img <- rast('https://imgchr.com/content/images/system/home_cover_1601010270144_8921bc.jpg')
plot(rs.img)
dev.new()
density(rs.img)
# Tue Dec 15 14:59:08 2020 --
