r-ggplot geom_bar组合在一个图中

Question

我想将两个相邻的ggplot barchart组合成一个图：

ggplot(data, aes(Year,lossratio1)) + geom_bar(stat="identity", colour="blue", fill="blue") 
ggplot(data, aes(Year, lossratio2) + geom_bar(stat="identity", colour="red", fill="red")

注：

• x轴是year
• y轴是CCD_ 3和CCD_

Barchart填充分别遵循lossratio。

Answer 1

你需要先融化你的数据，然后你可以设置position="dodge"，就像这样：

library(reshape)
data.m <- melt(data, id.vars='Year')
ggplot(data.m, aes(Year, value)) + geom_bar(aes(fill = variable), position = "dodge", stat="identity")