如何使用R语言magick包提取位图中的颜色？

image_data()返回的bitmap对象是一个三维raw数组，维度结构为通道×图像宽度×图像高度，默认通道顺序是RGBA（红、绿、蓝、透明度），每个元素对应0-255的颜色字节值。以下是具体提取和处理步骤：

1. 转换raw数据为可操作的整数格式 #

raw类型无法直接计算，先转成0-255的整数：

library(magick)

# 读取图像
img <- image_read('https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png')
# 获取bitmap数据
img_data <- image_data(img)

# 将raw数组转换为整数数组
img_rgb <- apply(img_data, 1:3, as.integer)

2. 整理为像素颜色表格 #

把三维数组重塑为每行对应一个像素的表格，方便查看和处理：

# 调整维度顺序：把宽、高维度移到前面
pixel_array <- aperm(img_rgb, c(2, 3, 1))
# 转换为数据框
pixel_colors <- as.data.frame(pixel_array)
# 给列命名
colnames(pixel_colors) <- c("red", "green", "blue", "alpha")

# 查看前5个像素的颜色数据
head(pixel_colors, 5)

3. 提取图像中的唯一颜色 #

如果只需要图像里的独特颜色（去重），可以直接用unique()，还能过滤掉全透明的背景像素：

# 提取所有唯一颜色
unique_colors <- unique(pixel_colors)
# 过滤掉全透明像素（alpha=0）
unique_non_transparent <- unique(subset(pixel_colors, alpha != 0))

4. 转换为十六进制颜色码 #

如果需要前端或设计常用的十六进制格式，用rgb()函数转换：

# 生成十六进制颜色列
pixel_colors$hex_color <- with(pixel_colors, rgb(red, green, blue, alpha, maxColorValue = 255))
# 提取唯一的十六进制颜色
unique_hex <- unique(pixel_colors$hex_color)

内容的提问来源于stack exchange，提问作者joshbrows