image.png
# Tue Dec 15 14:54:13 2020 -
# 字符編碼：UTF-8
# R 版本：R x64 4.0.3 for window 10
# cgh163email@163.com
# 個(gè)人筆記不負(fù)責(zé)任
# —— 拎了個(gè)梨??
.rs.restartR()
require(terra)
# density創(chuàng)建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 --
