分组条形图自定义颜色

Question

我有以下数据，并希望创建一个分组的条形图，如下所示：

data<-as.data.frame(c("a","b","c","a","b","c"))
colnames(data)<-"Y"

data$X<-c("x","x","x","y","y","y")

data$Z<-c(1,2,3,1,2,3)

ggplot(data, aes(x=X, y=Z, fill=Y) +
  geom_bar(stat="identity", colour="black", position="dodge", size=0.25, width=0.8, alpha=0.8) +
  scale_fill_manual(values=c("red","red","red","blue","blue","blue"))

在代码的最后一行中，我希望更改条形的颜色-我希望组“ x”的所有条都被染成红色，而组“ y”的条被染成蓝色。但是，如以下结果所示，我无法使用进行操作scale_fill_manual。

Answer 1

您需要获取group并fill映射到正确的变量：

ggplot(data, aes(x=X, y=Z, group=Y, fill=X)) +
         geom_bar(stat="identity", colour="black", position="dodge", size=0.25, width=0.8, alpha=0.8) + 
  scale_fill_manual(values=c("red","blue"))