我有一组图像。对于每个图像，我需要提取所谓的“网络安全颜色”的强度作为输出，我需要一个 Dataframe ，其中每行是一个图像，每列是一种颜色。
以下是我如何获得安全颜色

library(rvest)
library(dplyr)

colors = read_html("https://en.wikipedia.org/wiki/Web_colors#Color_table") %>% 
  html_nodes("h3+ .wikitable td") %>% 
  html_text() %>% 
  trimws()

下面是一个图像示例：

library(magick)
im = image_read("https://farm4.staticflickr.com/3579/3370591414_f321bd33ff_z.jpg")

我可以把它转换成不同数量的颜色，就像这样：

im %>%
  image_quantize(max=12)

但由于我需要比较图像，我希望每个图像都显示在相同的调色板（我选择了网络安全调色板）。