ggplot R 中 geom_bar 中离散值的自定义颜色

Question

我正在将带有计数的直方图转换为比例图。我想让左边的七列为绿色（x 值 0-6），接下来的两列为橙色（7,8），右边的列（9 和 10）为红色。

我尝试按照 thread 中的方法进行操作，但颜色对我来说似乎有点随意。

我在尝试使用其他方法将连续变量应用于离散变量时遇到错误。有任何想法吗？

df <- df <- data_frame( x = c(0,1,2,3,4,5,6,7,8,9,10), n = c(754, 300, 304, 390, 460, 1550, 1450, 4500, 6100, 9000, 14000))

#data
df<-df
 group_by(x) %>%
  summarise(n = n()) %>% 
  mutate(
    freq=(n/sum(n)),
    freq=round(100*freq, 2))

#set colors
colors <- c(rep("green",7), rep("orange",2), rep("red",2))

#plot
bar1<- ggplot(data=df, aes(x=x, y=freq, fill=colors))+
    geom_bar(stat="identity")+
    scale_y_continuous(labels=scales::percent) +
 geom_text(aes(label = scales::percent(freq)), vjust= -0.25, size=4)+
  ylab("Proportion")+
   xlab("X")+
    scale_x_discrete(limits=0:11)+
  ggtitle("Title")+
   theme_minimal()+
     theme(legend.position = "none")+
theme(plot.title = element_text(hjust = 0.5))

bar1

Answer 1

您可以使用 scale_fill_manual() 并更改初始 aes() 调用中的填充：

#plot
ggplot(data=df, aes(x=x, y=freq, fill=as.factor(x)))+
  geom_bar(stat="identity")+
  scale_y_continuous(labels=scales::percent) +
  geom_text(aes(label = scales::percent(freq)), vjust= -0.25, size=4)+
  ylab("Proportion")+
  xlab("X")+
  scale_x_discrete(limits=0:11)+
  scale_fill_manual(values = colors) +
  ggtitle("Title")+
  theme_minimal()+
  theme(legend.position = "none")+
  theme(plot.title = element_text(hjust = 0.5))

ggplot R 中 geom_bar 中离散值的自定义颜色

Custom colors for discrete values in geom_bar in ggplot R

r

ggplot2

aesthetics

geom-bar

scale-color-manual