Eu até consegui fazer isso, só que, de uma maneira não simplificada, veja:

  library(raster)

  IMG1 <- readJpeg("AMARELO.jpg")
  RGB1 <- c(raster(IMG1[,,1])[1],raster(IMG1[,,2])[1],raster(IMG1[,,3])[1])

  IMG2 <- readJpeg("VERDE.jpg")
  RGB2 <- c(raster(IMG2[,,1])[1],raster(IMG2[,,2])[1],raster(IMG2[,,3])[1])

  IMG3 <- readJpeg("LARANJA.jpg")
  RGB3 <- c(raster(IMG3[,,1])[1],raster(IMG3[,,2])[1],raster(IMG3[,,3])[1])
 
Porém, nesse caso, as imagens são individuais, se por exemplo, as três estiverem numa única imagem, não sei como fazer para identificar as três cores. Agora, imagine a trabalheira da maneira como fiz acima se fosse verificar muita cores.
Então, em resumo, o que desejo é identificar todas as cores presentes numa única imagem por meio de RGBs respectivos.

desde já grato!
 




De: rutzaf@gmail.com
Enviada: Quarta-feira, 27 de Agosto de 2014 10:45
Para: r-br@listas.c3sl.ufpr.br
Assunto: [R-br] CAPTURAR CÓDIGO DE COR

Walmes, fiquei curioso com seu comentário sobre a qualidade do ms Excel. Pode falar mais sobre o porque de vc considerar ele de qualidade nula? Sua opinião sobre isto é muito valiosa.

Grato,

André Rutz

Em 27/08/2014 01:05, "walmes ." <walmeszeviani@gmail.com> escreveu:
O que você quer é abrir uma foto, ou um gráfico de barras por exemplo e ao clicar numa barra extrair uma string que representa cor? Isso pode ser feito. Acho que vi algo no R bloggers. Uma vez precisei adequar os meus gráficos para um periódico que exigia que as figuras tivessem cores numa escala em 5 tons de laranja. Ela fornecia um arquivo do ms excel com gráficos prontos que usavam a escala. Como não uso esse aplicativo pela praticamente nula qualidade e quantidade de recursos gráficos, tive que descobrir os tons de laranja para usar no R. Minha solução foi abrir o jpg dos gráficos no gimp e com a ferramenta "conta gotas" descobri a string que representa a cor e usei no R. Se a sua situação for semelhante, considere essa dica.
 
À disposição.
Walmes.


--
==========================================================================
Walmes Marques Zeviani
LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)
Departamento de Estatística - Universidade Federal do Paraná
fone: (+55) 41 3361 3573
skype: walmeszeviani
homepage: http://www.leg.ufpr.br/~walmes
linux user number: 531218
==========================================================================


_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.