提取图像中的主色

Question

我无法在R中找到这样做的方法，所以我想问一下。

我正试图从一组图像（在这种情况下，是足球运动衫）中提取主色并且没有运气。

目前取得最大成功的方法是使用rPlotter，例如

library(RImagePalette)
library(png)
download.file("http://i.imgur.com/UqW6ZLo.png", "kit.png", mode = "wb")
test <- readPNG("kit.png")
pal <- image_palette(test, 10, median, TRUE)
display_palette(pal)

但似乎没有哪种颜色是哪种颜色是主要的颜色以及它出现的位置（仅为调色板找到1种颜色可以合并它们）。

我也试过

download.file("http://i.imgur.com/UqW6ZLo.png", "kit.png", mode = "wb")
test <- readPNG("kit.png")
list <- c()
for (x in 1:30){
pal <- image_palette(test, 10, median, TRUE)
list <- append(list, pal[1])
}
display_palette(list)

并且我认为如果有办法从list找到中间HEX颜色也应该这样做。

有什么想法吗？