#生成slope在总体样地中的变化情况 #灰度图

setwd("D:/R/mvpart")

habitat <- read.csv("mvpart.csv")

slope <- habitat$slope

slope <- matrix(slope,ncol = 22)

y <- (1:nrow(slope))

x <- (1:ncol(slope))

image(y, x, slope, col = gray.colors(30), axes = FALSE,main="slope")

Logo

这里是“一人公司”的成长家园。我们提供从产品曝光、技术变现到法律财税的全栈内容,并连接云服务、办公空间等稀缺资源,助你专注创造,无忧运营。

更多推荐