Ottenere codici colore esadecimali utilizzati nella funzione “scale_fill_grey”

Question

voglio ottenere i codici esadecimali dei colori che la funzione scale_fill_grey usa per riempire le categorie del barplot prodotta dai seguenti codici:

library(ggplot2) 

data <- data.frame(
    Meal = factor(c("Breakfast","Lunch","Dinner","Snacks"), 
    levels=c("Breakfast","Lunch","Dinner","Snacks")), 
    Cost = c(9.75,13,19,10.20)) 

ggplot(data=data, aes(x=Meal, y=Cost, fill=Meal)) + 
    geom_bar(stat="identity") + 
    scale_fill_grey(start=0.8, end=0.2) 

Answer 1

scale_fill_grey() utilizza grey_pal() dal pacchetto scales, che a sua volta utilizza grey.colors(). Quindi, è possibile generare i codici per la scala di quattro colori che avete usato come segue:

grey.colors(4, start = 0.8, end = 0.2) 
## [1] "#CCCCCC" "#ABABAB" "#818181" "#333333" 

Questo mostra un grafico con i colori

image(1:4, 1, matrix(1:4), col = grey.colors(4, start = 0.8, end = 0.2)) 

Answer 2

Uso ggplot_build() funzione:

#assign ggplot to a variable 
myplot <- ggplot(data=data, aes(x=Meal, y=Cost, fill=Meal)) + 
    geom_bar(stat="identity") + 
    scale_fill_grey(start=0.8, end=0.2) 

#get build 
myplotBuild <- ggplot_build(myplot) 

#see colours 
myplotBuild$data 

# [[1]] 
#  fill x  y PANEL group ymin ymax xmin xmax colour size linetype alpha 
# 1 #CCCCCC 1 9.75  1  1 0 9.75 0.55 1.45  NA 0.5  1 NA 
# 2 #ABABAB 2 13.00  1  2 0 13.00 1.55 2.45  NA 0.5  1 NA 
# 3 #818181 3 19.00  1  3 0 19.00 2.55 3.45  NA 0.5  1 NA 
# 4 #333333 4 10.20  1  4 0 10.20 3.55 4.45  NA 0.5  1 NA