R：如何在保持圖像分辨率的同時從R導出柵格圖層中的圖像？

Question

我一直在嘗試將根據Lambert Conformal Conic投影（分辨率為1000 m x 1000 m）投影的地理柵格圖層導出為圖像文件（例如，*。eps），然后將其繪制出來。重疊點（足夠簡單），但是在導出后打開圖像時，很明顯它的分辨率比前面提到的要差。

我一直在使用可從以下網址下載的24個生物氣候層： https : //sites.ualberta.ca/~ahamann/data/climatewna.html 。 這是其中一個圖層（另存為* .tif）及其分辨率的示例：

以下是我一直在運行的腳本的相關部分：

> projection <- raster("prediction.grd")
> projection

class       : RasterLayer 
dimensions  : 3132, 2359, 7388388  (nrow, ncol, ncell)
resolution  : 1000, 1000  (x, y)
extent      : -3594000, -1235000, 4703000, 7835000  (xmin, xmax, ymin, ymax)
coord. ref. : +proj=lcc +lat_1=49 +lat_2=77 +lat_0=0 +lon_0=-95 +x_0=0 +y_0=0 +datum=WGS84 +units=m +no_defs +ellps=WGS84 +towgs84=0,0,0 
data source : C:\Users\User\Documents\Project\prediction.grd 
names       : layer 
values      : 7.006775e-12, 0.001495079  (min, max)

> plot(projection, col = colorPalette(14, "jc"), colNA = 'black', axes = FALSE); 
> points(train_locality_points, col='white', pch=15, cex=0.2)

運行此代碼后，我將導出通過R Studio的“導出”下拉菜單生成的圖，以將其另存為具有可在R外部查看的擴展名的圖像，而不是另存為其原始文件擴展名或類似內容。 我可以打開保存的圖像，但是顯然它的質量與上述圖層的分辨率不同。

下面的圖片是我以上述方式保存的圖片。 為了說明我遇到的麻煩，溫哥華島（即，南島上聚集了許多白點的大島）的長度約為500公里，如果分辨率為1公里，則應對應於圖像中的約500個像素柵格圖層的距離為1公里。 在此圖像中，島的長度由該數字的五分之一表示（...是的，我算過）。

對於如何解決此問題的任何幫助，我將不勝感激。 感謝您抽出寶貴的時間閱讀並考慮這個問題。

Answer 1

要獲得與RasterLayer r分辨率相同的圖像，可以執行

png('file.png', height=nrow(r), width=ncol(r)) 
plot(r, maxpixels=ncell(r))
dev.off()