从RColorBrewer调色板中拾取单个颜色，作为ggplot2中的比例\颜色\手动（）值

使用

scale\u color\u manual（）

，可以从RColorBrewer中选择特定颜色作为颜色值吗

例如，在：

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

---

我想用调色板

scale\u color\u brewer（type=“qual”，palete=7）

中的第一种颜色代替“绿色”，然后用调色板

scale\u color\u brewer（type=“qual”，palete=2）

中的第四种颜色代替“橙色”，依此类推

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

库（RColorBrewer）
my_palette=c（brewer.pal（5，“Set1”）[c（1,3,4,5）]，brewer.pal（5，“Pastel1”）[c（2,5,1,3）]）
#grid:：grid.graster（我的调色板，int=F）
比例\颜色\离散=功能（…）比例\颜色\手册（…，值=调色板（））
dsamp这看起来很棒，但是我很难将这个想法整合到我的代码中。我是否应该使用“缩放颜色离散=函数（…）缩放颜色手动（…，值=调色板（））”而不是“缩放颜色手动（中断=c（“r”、“A/b”、“ő/E”、“w/s（0.3）”、“w/s（0.2）”），值=c（“绿色”、“橙色”、“蓝色”、“粉色”、“黄色”）”？请随意尝试并使用最适合您的方法。其想法是定义您自己的首选颜色向量，并将其作为值提供给scale_color_手册。我使用palete（）技巧，这样无论脚本中是否忘记包含自定义颜色，代码都可以运行。