Есть ли способ использовать мою цветовую схему для заполнения барплота с помощью ggplot?

Question

Я строю графики с помощью ggplot2.

Пока все мои графики выглядят так, как я ожидаю. Тем не менее, у меня есть график или набор графиков, которые не делают. Я попытался пройти через все вопросы, связанные с переполнением стека, в отношении добавления цветовой схемы к барплоту, но, похоже, ни один из них не работает.

Я попытался использовать предыдущий код и просто изменил переменную, на которую смотрю. По какой-то причине это не работает, даже если есть точно такие же группировки.

    ggplot(data = df, aes(status, fill = status)) +
      geom_bar() +
      labs(title = "Current Status", x = "status", y = "Count") +
      theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
      scale_x_discrete(labels = c("None", "current", "extra"))+
      scale_fill_mine(palette = "main", guide = "none")

Но я получаю график, который является просто оттенками серого. (У меня также возникают проблемы при добавлении моего графика сюда, чтобы показать вам, что я вижу)

Я ожидаю, что у вас будет столбчатая диаграмма частоты, которая имеет 3 столбца с тремя разными цветами.

Answer 1

Добро пожаловать в stackoverflow. Я не уверен, откуда взялся scale_fill_mine(). Посмотрите, предлагает ли этот пример метод, который вы можете использовать:

library(tidyverse)

df <-
  tibble(
    status = LETTERS[1:3],
    n = c(5,15,10)
  ) %>% 
  uncount(n)


main_colors <- c("grey70", "turquoise3", "coral2")


ggplot(data = df, aes(status, fill = status)) +
  geom_bar() +
  scale_fill_manual(values = main_colors, guide = "none") +
  scale_x_discrete(labels = c("None", "current", "extra")) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  labs(
    title = "Current Status", 
    x = "status", 
    y = "Count"
  )