Рассмотрим следующий код, который делает гистограмму с пурпурной цветовой палитрыКак создать пользовательскую цветовую палитру для использования scale_fill_manual()
library(dplyr)
library(ggplot2)
dd <- mpg %>%
group_by(manufacturer, cyl) %>%
summarise(n = n()) %>%
ungroup()
mm <- dd %>%
group_by(manufacturer) %>%
summarise(mcyl = weighted.mean(cyl, n)) %>%
arrange(mcyl) %>%
ungroup()
dd %>% left_join(mm) %>%
ggplot(mapping = aes(x = reorder(manufacturer, mcyl), y = n, fill = factor(cyl))) +
geom_bar(stat = "identity", position = "fill") +
coord_flip() +
scale_fill_brewer(palette = "Purples")
Вопрос: Как я могу сделать палитра для Audi red («Reds») и для синего Ford («Blues»), при этом остальные пурпурные («Purples»)?
Какое наиболее удобное (предпочтительно обратный) способ поместить эти красные/синие/фиолетовые палитры в переменную и передать его scale_fill_manual()
(как объяснено in this related Q&A)?
Определить пользовательские, а затем использовать идентичность? – zx8754
@ zx8754 если бы вы могли расширить это до ответа ...? – TemplateRex
Извините, на данный момент не так много времени для полного ответа. Сделайте цветные паллеты красным, синим, пурпуровым, каждые 4, затем сопоставьте названиям автомобилей с новой колонкой myCol, используйте эту колонку для заполнения? – zx8754