r - 使用 R 将 jpg 转换为灰度 csv

Question

我有一个 JPG 图像文件夹，我正在尝试对其进行分类以用于 Kaggle 竞赛。我在论坛上看到了一些 Python 代码，我认为这些代码可以实现这一点，但我想知道是否可以在 R 中做到这一点？我正在尝试将这个包含许多 jpg 图像的文件夹转换为 csv 文件，其中的数字显示每个像素的灰度，类似于此处的手数字识别器 http://www.kaggle.com/c/digit-recognizer/

所以基本上是 R 中的 jpg -> .csv，显示用于分类的每个像素的灰度数字。我想在上面放置一个随机森林或线性模型。

Answer 1

这里有一些关于如何执行此操作的公式 link 。 raster 包是一种方法。这基本上将 RGB 波段转换为一个黑白波段(这使其尺寸更小，我猜你想要什么。)

library(raster)
color.image <- brick("yourjpg.jpg")

# Luminosity method for converting to greyscale
# Find more here http://www.johndcook.com/blog/2009/08/24/algorithms-convert-color-grayscale/
color.values <- getValues(color.image)
bw.values <- color.values[,1]*0.21 + color.values[,1]*0.72 + color.values[,1]*0.07

我认为EBImage包也可以帮助解决这个问题(不在CRAN上，通过source安装它:

source("http://bioconductor.org/biocLite.R")
biocLite("EBImage")
library(EBImage)

color.image <- readImage("yourjpg.jpg")
bw.image <- channel(color.image,"gray")
writeImage(bw.image,file="bw.png")