выбрал цвета для scale_colour_colorblind () в ggthemes

Question

Я хотел бы выбрать определенные c цвета colorblind_pal() из ggthemes

Это работает:

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()

Теперь я хотел бы выбрать определенные c цвета 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))