Sabem se é possível obter a paleta de cores usada no scale_color_*? Gostaria de obter as cores específicas (hex color codes) usadas com o pacote paletteer
em cada caso para depois usa-la em outras aplicações (por exemplo, fazendo join desse desses dados com outros). O que tentei foi o seguinte:
library(ggplot2)
library(dplyr)
library(paletteer)
dados <- data.frame(x = sample(seq(0,100), 100, replace = T),
y = sample(seq(0,10), 100, replace = T),
valor = sample(seq(-10,10), 100, replace = T))
plot.1 <- dados %>%
ggplot(aes(x = x, y = y, color = valor))+
geom_point()+
paletteer::scale_color_paletteer_c("ggthemes::Classic Red-White-Green") +
theme_minimal()
Depois de criar o objetio plot.1, tentei verificar se o ggplot2 guardava as cores nos dados com plot.1$data
, mas isso não acontece. Depois tentei verificar no mapping
com plot.1$mapping$colour
, que retorna o seguinte resultado:
<quosure>
expr: ^cor
env: 000002299B6E1FD0
Não sei se é possível extrair os hex codes daí. No final, eu gostaria de ter um conjunto com as colunas x, y, valor e hex, este último obtido com as cores do gráfico acima gerado.
Desde já, obrigado aos que puderem ajudar.