如何正確取消選擇網格單元的xy％？

Question

從10 * 10光柵我想取消選擇例如90％，也就是說，10％保持可見。爲此，我修改了this的代碼，見下文。但是結果像素有一些變化（保留10個或更少的像素）。是否有可能設置隨機選擇的精度？

r<- raster(ncol=10, nrow=10, xmn=0, ymn=0, xmx=10, ymx=10)#create raster 
values(r)<- 1:ncell(1) #asigne 1 to each raster cell 
#plot(r, col='black') #plot raster 

r[runif(10*10) >= 0.15] <- NA # Randomly *unselect* XY% of the data 

par(pty="s", mar=c(1,1,1,1)) 
plot(r, col='black', legend=FALSE, axes=F) #plot raster 
box(lty=1, col="black", lwd=5) 

Answer 1

而不是你runif線，使用

r[sample(ncell(r),ncell(r)*0.9)] <- NA 

這在隨機挑選的細胞正好90％。