R 更改减淡条形图的默认绘图颜色

我有以下数据框：

   from variable               value
1   ASM cent.degree         0.208333333
2   AUS cent.degree         0.958333333
3   COK cent.degree         0.166666667
4   FJI cent.degree         0.916666667
5   FSM cent.degree         0.208333333
6   GUM cent.degree         0.208333333
26  ASM cent.betweenness    0.000000000
27  AUS cent.betweenness    0.588500000
28  COK cent.betweenness    0.000000000
29  FJI cent.betweenness    0.509333333
30  FSM cent.betweenness    0.001666667
31  GUM cent.betweenness    0.001666667

以及以下代码：

  geom_bar(stat='identity', position='dodge') +
  theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
  theme(legend.position="bottom") +
  ggtitle("Központiság mutatók") +
  #scale_y_continuous(trans = "log2") +
  scale_x_discrete(name = "Származás") +
  scale_fill_discrete(name = NULL, labels = c("Degree centrality (Népszerűség)", 
                                              "Closeness centrality (Befolyás)",
                                              "Betweenness centrality (Alkuerő)",
                                              "Sajátvektor központiság (Státusz)"))

它提供了一个共有四个变量的并排条形图，根据变量区分颜色。我遇到的问题是改变颜色（换成四种新颜色）。我尝试添加

scale\u fill\u manual（values=oc.color[1:4]）+

（其中

oc.color

是一个六边形代码向量），但它表示“已存在“fill”的比例。为“fill”添加另一个比例，它将替换现有的比例”，并继续使用默认的ggplot颜色。

---

谢谢您的帮助。

您可能在

缩放填充离散
之前添加了
缩放填充。这样，
scale\u fill\u discrete
将用默认颜色替换您的颜色。最好的和推荐的方法是每个美学只使用一个尺度。试试这个：

library(ggplot2)

oc.color <- c("red", "blue", "green", "pink")

ggplot(df, aes(from, value, fill = variable)) +
  geom_bar(stat='identity', position='dodge') +
  theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
  theme(legend.position="bottom") +
  ggtitle("Központiság mutatók") +
  scale_x_discrete(name = "Származás") +
  scale_fill_manual(name = NULL, labels = c("Degree centrality (Nepszerűség)", 
                                            "Closeness centrality (Befolyás)",
                                            "Betweenness centrality (Alkuerő)",
                                            "Sajátvektor központiság (Státusz)"), values = oc.color[1:4])

库（ggplot2）
oc.color这在我的系统中工作：

oc.color <- c("#999999", "#E69F00", "#56B4E9","#56B0E9");

df %>% ggplot(aes(from, value)) + 
    geom_bar(stat='identity', position='dodge', aes(fill = variable)) +
    theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
    theme(legend.position="bottom") +
    ggtitle("Központiság mutatók") +
    #scale_y_continuous(trans = "log2") +
    scale_x_discrete(name = "Származás") +
    scale_fill_discrete(name = NULL, labels = c("Degree centrality (Népszerűség)", 
                                                "Closeness centrality (Befolyás)",
                                                "Betweenness centrality (Alkuerő)",
                                                "Sajátvektor központiság (Státusz)")) + 
    scale_fill_manual(values = oc.color[1:4]);

oc.color%ggplot（aes（从，值））+
几何图形条（stat='identity'，position='dodge'，aes（fill=变量））+
主题（axis.text.x=元素\文本（角度=90，hjust=1））+
主题（legend.position=“bottom”）+
ggtitle（“Központiság mutatóK”）+
#连续缩放（trans=“log2”）+
比例x离散（name=“Származás”）+
刻度填充离散（名称=NULL，标签=c（“度中心（Népszerűség）”，
“亲密中心性（Befolyás）”，
“中间性中心性（阿尔库尔ő）”，
“Sajátvektor központiság（Státusz）”）+
刻度-填充-手动（值=摄氏度颜色[1:4]）；
将
缩放填充离散
替换为
缩放填充手册
欢迎使用。如果你想帮我一个忙，就把问题记下来。除了给我一些信任外，它还向其他有类似问题的人展示了解决方案的有效性，并将问题从等待答案的问题队列中移除。