有人知道如何用核心沉积物图像的 RGB 值在 R 中绘制 plot 图形吗？

Question

我有一个核心沉积物的图像，我想做的是在 R 中分别制作一个简单的 plot RGB 值，但在同一张图中。 对此有什么建议吗？ 我附上了核心的图像文件。 核心沉积物

Answer 1

这是使用png package 的一个选项：

library(png)

img <- readPNG(readBin("https://i.stack.imgur.com/IvWI9.png", "raw", 1e6))
par(mfrow = c(1, 3))

lapply(1:3, function(i) {
  image(t(img[,,i]), col = grey(seq(0, 1, length = 256)), 
        main = c("Red", "Green", "Blue")[i], axes = FALSE)
})

这里的好处是三个通道中的每一个都作为一个矩阵保存在img数组的前三层中，因此您可以通过执行以下操作获得红色值的矩阵：

red <- img[,,1]

对绿色（2）和蓝色（3）做同样的事情

^{由代表 package (v0.3.0) 于 2020 年 11 月 28 日创建}