如何平均 jpeg 图像的通道

Question

我将图片上传到 r:

img=readJPEG("18105_552.jpg", native = FALSE)

我写了一个for循环来平均像素：

options(digits=15)
m=matrix(data=NA, nrow=1, ncol=230400)
for(k in 1)
    for (i in (1: 480)){
          for (j in (1: 480)){
           m[k, ]<-((img[i,j,1]+img[i,j,2]+img[i,j,3])/3) 
            }}

但是，我的输出都是 1。如果我进入并手动尝试获取值，它们都是 0.8 或 0.9 的东西，所以我认为 r 正在将所有内容四舍五入到 1，但我似乎无法弄清楚如何阻止它这样做。有什么建议吗？

Answer 1

假设 img 是一个数组结构或可以转换为一个，这可以在没有显式循环的情况下使用rowMeans()：

img <- array(runif(30,0.6,1),dim=c(10,10,3))
rowMeans(img,dims=2)

或者，把它排成一行：

matrix(rowMeans(img,dims=2),nrow=1)

这会按列存储数字。使用byrow=TRUE 逐行填写。在正确的结果旁边，您将获得相当大的加速。

顺便说一句，你的问题不是四舍五入。您的解决方案不起作用的原因是以下步骤：

m[k, ]<-((img[i,j,1]+img[i,j,2]+img[i,j,3])/3) 

在这里您计算一个数字，但将其分配给矩阵m 的第 k 行。 R 将回收单个数字，并用该单个数字填充整行。这个数字将是您计算的最后一个数字，在您的情况下可能是 1。

---

编辑：

要对一组图片执行此操作，请将它们存储在列表中并使用 sapply 为您完成工作：

说：

img <- array(runif(30,0.6,1),dim=c(10,10,3))
img2 <- array(runif(30,0.6,1),dim=c(10,10,3))

然后列个清单：

images <- list(img,img2)
names(images) <- c('img1','img2')

还有：

m <- sapply(images,rowMeans,dims=2)

做你想做的。