Question

目前，下方条形图的默认颜色为Apct = Red，BPct = Green，CPct = Blue。

如何更改颜色以使Apct =紫色，BPct =黑色，CPct =红色？

以下是工作代码：

library(reshape)
Time<-data.frame(Time = c(as.POSIXct("2015-02-05 14:35:00"), as.POSIXct("2015-02-05 14:40:00")))
APct<-c(.1,.2,.7)
BPct<-c(.2,.4,.4)
Time
data<-cbind(Time, rbind(APct, BPct))
data
colnames(data)<-c("Time", "APct","BPct","CPct")
rownames(data)<- NULL
data
data<-melt(data, measure.vars =c("APct","BPct","CPct") )
  ggplot(data=data, aes( x = Time,  y=value, fill=variable))   +  
  geom_bar(stat="identity") +
  ggtitle("% ") +  xlab("Time") +
  ylab("Percentage") +theme(axis.text.x = element_text(angle = 90, hjust = 1))

另外 -

我怎么知道紫色会与Apct一起出现？它是按字母顺序排列还是我可以手动设置一些谎言Apct = Purple？

也有办法让Cpct始终是底栏，BPCt中间栏和APct顶栏？

谢谢。

Answer 1

您可以使用scale_fill_manual来控制颜色。

所以你对ggplot的调用变为

ggplot(data=data, aes( x = Time,  y=value, fill=variable))   +  
geom_bar(stat="identity") +
ggtitle("% ") +  xlab("Time") +
ylab("Percentage") +theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
scale_fill_manual(values=c("purple","black","red"))

如何在条形图中手动设置颜色

1 个答案: