r - ggplot 图例键颜色和项目

Question

使用以下数据框:

sdf<-data.frame(hours=gl(n=3,k=1,length=9,labels=c(0,2,4)),    
                count=c(4500,1500,2600,4000,800,200,1500,50,20),
                machine=gl(n=3,k=3,length=9,labels=c("A","B","C")))

下图可以使用这些脚本中的任何一个生成:

ggplot(data=sdf,aes(x=hours,y=count,group=machine,fill=machine))+
  geom_area(data=sdf[sdf$machine=="A",])+
  geom_area(data=sdf[sdf$machine=="B",])+
  geom_area(data=sdf[sdf$machine=="C",])

ggplot(data=sdf,aes(x=hours,y=count,group=machine,fill=machine))+
  geom_area(position="dodge")

但是，当填充颜色改变时，图例中的项目消失了。

ggplot(data=sdf,aes(x=hours,y=count,group=machine,fill=machine))+
  geom_area(data=sdf[sdf$machine=="A",])+
  geom_area(data=sdf[sdf$machine=="B",],fill="darkorchid")+
  geom_area(data=sdf[sdf$machine=="C",])

理想情况下，图例应显示颜色变化。

问题:什么脚本可以在图例中创建项目并为这些项目提供颜色控制？

Answer 1

您可以使用 scale_ 调整分配给任何美学的值X _manual(values= (随便)) .给你scale_fill_manual .

ggplot(data=sdf,aes(x=hours,y=count,group=machine,fill=machine))+
  geom_area(position="dodge") + 
  scale_fill_manual(values=c("red", "darkorchid", "green"))

请注意，通常，您要让 ggplot为您分组数据，就像您在第二个 ggplot 中所做的那样调用(这就是 group 参数的作用)。正如您在第一个示例中所做的那样，分别提供每个“切片”数据，这几乎违背了 ggplot2 的目的。 , 应该避免。