裁剪图像，转换为黑白并锐化它

Question

我想取 x，将其转换为黑白图像。然后我想将所有低于 100 的像素转换为 0，并将所有高于 100 的像素转换为 255。我想获得更清晰的图像，其中背景为白色，图像中的对象为黑色。然后在我的硬盘驱动器上存储新的 x（黑白清晰图像）。我该怎么办？

library(raster)
r1 <- brick(system.file("external/rlogo.grd", package="raster"))
x <- crop(r1, extent(0,50,0,50))
plotRGB(x)

基于之前的question，我在下面写了将r1 转换为黑白的行。但是 plotRGB 函数失败:(。绘图函数有效，但它不返回黑白图像

flat <- sum(x * c(0.2989, 0.5870, 0.1140))
plotRGB(flat)
flat
plot(flat)

========update1==========

如果有人感兴趣，

在下面的图像和绘图函数中使用“1-twoclasses”代替“twoclasses”可以轻松交换图像颜色

Answer 1

要真正看到灰色，您需要提供这些颜色。

library(raster)
r1 <- brick(system.file("external/rlogo.grd", package="raster"))
x <- crop(r1, extent(0,50,0,50))
flat <- sum(x * c(0.2989, 0.5870, 0.1140))
plot(flat, col=gray(seq(0,1,0.1)))

您可以使用 reclassify 函数来获取 0 或 255 的值，但在这种情况下，使用 1 和 2 似乎更明智

twoclasses <- cut(flat, c(0,100,255))
plot(twoclasses, col=gray(c(0,1)))

要写入磁盘，您可以执行以下操作：

png(width=ncol(twoclasses)*10, height=nrow(twoclasses)*10)
par(mai=c(0,0,0,0))
image(twoclasses, col=gray(c(0,1)))
dev.off()