Question

我想使用R <提取地理参考光栅图像的每个像素的颜色值。我需要稍后使用这些像素颜色来绘制tif（或geotif），如前一个问题所述（见R - original colours of georeferenced raster image using ggplot2- and raster-packages）。由于具有数据带的光栅图像不能隐含地使用带值来为它们分配颜色（不能表示图案填充），因此我确实需要这些像素颜色。我已经知道如何访问colortable，其中所有可能的256种颜色都列在向量中。但是，它们未以此形式映射。这是我用来加载光栅图像并提取未映射的colortable：

的代码

raster1 <- raster(paste(
       workingDir, "/HUEK200_Durchlaessigkeit001_proj001.tif",
       sep="", collapse=""))
raster1.pts <- rasterToPoints(raster1)
raster1.df <- data.frame(raster1.pts)
colTab <- attr(raster1, "legend")@colortable

感谢您的帮助！

Answer 1

我已经在我的问题中引用了这个问题的答案。该解决方案适用于两个问题线程，因此我不在此完全重复：

R - original colours of georeferenced raster image using ggplot2- and raster-packages

事实证明，我的空间栅格图像对象的第一个数据带恰好反映了颜色。我在栅格中使用了具有所有唯一可能值的矢量来引用colTab中的相应颜色。这不是直接可能的，因为从0开始的值不是R中的有效索引。我只是简单地引入命名索引来应对它。现在，只有valTab中列出的索引的颜色将作为colours传递 - 缩放填充的参数，绘制的结果是具有原始颜色的地理参考栅格图像。

R - 提取地理配准的栅格像素颜色

1 个答案: