有没有一种方法可以使用我的配色方案通过ggplot填充条形图？

Question

我正在使用ggplot2绘制条形图。

到目前为止，我所有的图表都以我期望的方式出现。但是，我有一个图或一组图没有。 我已经尝试过所有关于将配色方案添加到barplot的stackoverflow问题，但似乎没有一个起作用。

我尝试使用之前制作的代码，只是更改了要查看的变量。由于某些原因，即使存在完全相同的分组，这也不起作用。

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