在 ggthemes 中為 scale_colour_colorblind() 選擇顏色

Question

我想從ggthemes選擇ggthemes colorblind_pal()特定顏色

這有效：

library(ggplot2)
library(ggthemes)

p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg,
                                     colour = factor(gear))) + facet_wrap(~am)
p + theme_igray() + scale_colour_colorblind()

現在我想為我的情節選擇colorblind_pal()特定顏色。 我該如何選擇它們？

我嘗試了以下但沒有成功：

my_palette <- palette(c("#000000","#F0E442","#D55E00"))
p + theme_igray() + scale_colour_colorblind(my_palette)

Answer 1

您可以使用scale_color_manual來手動指定要使用的顏色：

library(ggplot2)
library(ggthemes)

p <- ggplot(mtcars) +
  geom_point(aes(x = wt, y = mpg, colour = factor(gear))) +
  facet_wrap(~am) +
  theme_igray() +
  scale_color_manual(values = c("#000000","#F0E442","#D55E00"))
p

Answer 2

因為你已經有了顏色，你可以只使用scale_color_manual ：

library(ggthemes)
library(ggplot2)
COLS=colorblind_pal()(8)

COLS = COLS[c(1,5,7)]

p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg,
                                     colour = factor(gear))) + facet_wrap(~am)
p + theme_igray() + scale_colour_manual(values=COLS))