如何在R中创建随机点（1000个）的栅格。

Question

如何在R中创建随机点（1000个）的栅格。

3

我有一个光栅图像，其尺寸为 2803行，5303列，共14864309个像元。我想在该光栅图像中创建1000个随机点，并生成一个tiff文件。以下是我的光栅图像：

raster2
class      : RasterLayer 
dimensions : 2803, 5303, 14864309  (nrow, ncol, ncell)
resolution : 0.008333333, 0.008333333  (x, y)
extent     : 60.85, 105.0417, 15.95833, 39.31667  (xmin, xmax, ymin, ymax)
crs        : +proj=longlat +datum=WGS84 +no_defs 
source     : C:/NPP.tif 
names      : IPSLNPP 
values     : 0, 0.9097273  (min, max)

- Hallie Sheikh

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- UseR10085 · Accepted Answer

您可以使用以下代码来实现该功能。

library(raster)
library(dismo)

ext <- extent(60.85, 105.0417, 15.95833, 39.31667)
raster2 <- raster(nrow = 1000, ncol = 1000, ext = ext)
raster2[] <- runif(ncell(raster2))

#To create 1000 random points
set.seed(123)
backgr <- randomPoints(raster2, 1000, ext=ext)
backgrvals <- extract(raster2, backgr)

#To plot it you can use
plot(raster2)
points(backgr, col='black')