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轴为lossratio1和lossratio2。

条形图填充分别在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")