Chọn các màu riêng lẻ từ bảng màu RColorBrewer dưới dạng giá trị scale_colour_manual() trong ggplot2

Question

Sử dụng scale_colour_manual(), người ta có thể chọn các màu cụ thể từ RColorBrewer để sử dụng làm giá trị màu không?

Ví dụ, trong:

scale_colour_manual(breaks=c("A","B","C","D","E"), 
    values=c("green","orange","blue","pink","yellow")) 

Tôi muốn sử dụng màu đầu tiên từ bảng scale_colour_brewer(type = "qual", palette = 7) thay vì, sau đó màu sắc thứ tư "xanh" của bảng scale_colour_brewer(type = "qual", palette = 2) thay vì "màu da cam", và Sớm.

Answer 1

Tôi thường làm như sau,

library(RColorBrewer) 
my_palette = c(brewer.pal(5, "Set1")[c(1,3,4,5)], brewer.pal(5, "Pastel1")[c(2,5,1,3)]) 
#grid::grid.raster(my_palette, int=F) 

scale_colour_discrete = function(...) scale_colour_manual(..., values = palette()) 

dsamp <- diamonds[sample(nrow(diamonds), 1000), ] 
(p <- qplot(carat, price, data = dsamp, colour = clarity)) # default palette 

palette(my_palette) 
p # custom colors