使用以下数据框:
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",])
理想情况下,图例应显示颜色变化。
问题:什么脚本可以在图例中创建项目以及为这些项目提供颜色控制?
答案 0 :(得分:5)
您可以使用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
的目的,应该避免使用。