如何在r中创建栅格的随机点（1000）答案

【问题标题】：How to create random points (1000) of raster in r如何在r中创建栅格的随机点（1000）
【发布时间】：2020-09-07 07:36:05
【问题描述】：

我有一个 2803, 5303, 14864309 (nrow, ncol, ncell) 的栅格，我想在栅格内创建 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)

【问题讨论】：

标签： r raster tiff

【解决方案1】：

您可以使用以下代码

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')

【讨论】：

我添加了一些可重复性