Detekce dominatnich barev

gistfile1.r

#short version of this GIST https://gist.github.com/3980277

library("ReadImages")
library("reshape")
library("ggplot2")


#detekce dominatnich barev
readImage <- read.jpeg("File5196.jpg")
longImage <- melt(readImage)
rgbImage <- reshape(longImage, timevar = "X3", idvar = c("X1", "X2"), direction = "wide")
rgbImage$X1 <- -rgbImage$X1
kColors <- 5  # Number of palette colors
kMeans <- kmeans(rgbImage[, 3:5], centers = kColors)
approximateColor <- kMeans$centers[kMeans$cluster, ]
col = rgb(approximateColor)
barvy <- sort(table(col))
barva <- row.names(barvy)
barplot(barvy, col=barva, horiz=TRUE)