R-提取地理参考光栅像素颜色

R-提取地理参考光栅像素颜色,r,colors,pixel,raster,R,Colors,Pixel,Raster,我想使用R提取地理参考光栅图像每个像素的颜色值。稍后我需要这些像素颜色来绘制tif(或geotif),如前一个问题所述(请参阅)。由于具有数据带的光栅图像不能隐式使用带值为其指定颜色(不能表示填充图案),因此我需要这些像素颜色。我已经知道如何访问颜色表,其中所有可能的256种颜色都列在一个向量中。但是,它们没有以这种形式映射。下面是我用来加载光栅图像并提取未映射的颜色表的代码: raster1 <- raster(paste( workingDir, "/HUEK200_Du

我想使用R提取地理参考光栅图像每个像素的颜色值。稍后我需要这些像素颜色来绘制tif(或geotif),如前一个问题所述(请参阅)。由于具有数据带的光栅图像不能隐式使用带值为其指定颜色(不能表示填充图案),因此我需要这些像素颜色。我已经知道如何访问
颜色表
,其中所有可能的256种颜色都列在一个向量中。但是,它们没有以这种形式映射。下面是我用来加载光栅图像并提取未映射的
颜色表的代码:

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

raster1我已经在我的问题中引用的问题下发布了答案。该解决方案适用于两个问题线程,因此我在此不再完全重复:

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