更改 R 中 ggplot 条形图中条形的颜色

Question

我正在尝试将条形图更改为以下颜色：“#dda832”“#165e70”“#d5927c”“#4f9694”，但由于某些原因，当我使用 scale_fill_manual(values=c("#dda832" "#165e70" "#d5927c" "#4f9694")) 时它不起作用。我认为这是因为我使用的是“平均”而不是“身份”。有谁知道如何改变这个？ :)

我的数据如下：

structure(list(`video number` = 1:40, category = c("neutral", 
"neutral", "neutral", "neutral", "neutral", "neutral", "neutral", 
"neutral", "neutral", "neutral", "pleasant", "pleasant", "pleasant", 
"pleasant", "pleasant", "pleasant", "pleasant", "pleasant", "pleasant", 
"pleasant", "unpleasant", "unpleasant", "unpleasant", "unpleasant", 
"unpleasant", "unpleasant", "unpleasant", "unpleasant", "unpleasant", 
"unpleasant", "painful", "painful", "painful", "painful", "painful", 
"painful", "painful", "painful", "painful", "painful"), frequency = c(55, 
56, 90, 104, 47, 38, 48, 52, 43, 38, 162, 139, 137, 131, 143, 
177, 151, 117, 164, 82, 116, 75, 105, 67, 75, 61, 133, 109, 123, 
150, 196, 191, 182, 141, 151, 148, 181, 77, 134, 128), intensity = c(2.8, 
2.7, 3.2, 3.2, 3.5, 2.6, 3.2, 2.9, 3.4, 2.8, 3.6, 3.6, 3.7, 3.5, 
3.7, 3.9, 3.6, 3.6, 3.6, 3.4, 3.8, 3.2, 3.7, 3.7, 3.3, 3.6, 4.4, 
3.7, 3.8, 4.2, 5, 4.8, 4.4, 4, 4.1, 3.9, 4.8, 3.7, 4, 4), threat = c("1.4", 
"1.5", "1.6", "1.5", "1.9", "1.4", "1.8", "1.8", "1.3", "1.5", 
"1.3", "1.2", "1.3", "1.2", "1.2", "1.5", "1.5", "1.4", "1.5", 
"1.2", "5.6", "3.2", "5.2", "2.9", "4.0", "3.4", "5.6", "3.5", 
"5.5", "6.6", "8.0", "7.8", "7.1", "4.5", "6.3", "6.7", "6.2", 
"5.0", "6.5", "5.4"), arousal = c("1.7", "1.9", "2.2", "2.1", 
"1.8", "2.0", "2.0", "2.3", "2.2", "2.0", "5.3", "4.8", "4.5", 
"3.9", "4.0", "4.5", "4.6", "3.3", "4.2", "3.2", "4.7", "3.2", 
"4.2", "3.0", "3.4", "3.1", "5.2", "3.8", "4.4", "5.3", "6.6", 
"6.2", "6.0", "4.9", "5.2", "6.5", "4.8", "4.0", "5.1", "4.6"
)), row.names = c(NA, -40L), class = "data.frame")

intensity_plot<- ggplot(freq_intensity, aes(x= reorder (category, -intensity), y=intensity))+
  stat_summary(fun.y="mean", geom="bar") +
  stat_summary(fun.data = mean_cl_normal, fun.args = list(mult=1), geom = "errorbar", width=0.3, size=0.7) +
  geom_jitter(colour="limegreen",shape=16,size=1, position=position_jitter(0.2))+
  #facet_wrap(~groups_all)+
  ggtitle("") +
  xlab("") + ylab("Mean intensity") +
  theme_bw(base_size = 10) +
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
  panel.border = element_blank(),
  axis.line = element_line())

print(intensity_plot)

Answer 1

添加 fill = category，然后使用 scale_fill_manual。

library(ggplot2)

ggplot(freq_intensity, aes(x = reorder(category, -intensity),
                          y=intensity, fill = category))+
  stat_summary(fun.y="mean", geom="bar") +
  stat_summary(fun.data = mean_cl_normal, fun.args = list(mult=1), 
               geom = "errorbar", width=0.3, size=0.7) +
  geom_jitter(colour="limegreen",shape=16,size=1, position=position_jitter(0.2))+
  ggtitle("") +
  xlab("") + ylab("Mean intensity") +
  theme_bw(base_size = 10) +
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        axis.line = element_line()) +
  scale_fill_manual(values=c("#dda832", "#165e70", "#d5927c", "#4f9694"))