我正在尝试覆盖条形图ggplot2
我当前的代码生成一个条形图,但它们彼此堆叠。我不想要这个,我希望它们重叠,这样我就可以看到每个条形高度的差异。
代码:
library(ggplot2)
library(reshape)
x = c("Band 1", "Band 2", "Band 3")
y1 = c("1","2","3")
y2 = c("2","3","4")
to_plot <- data.frame(x=x,y1=y1,y2=y2)
melted<-melt(to_plot, id="x")
print(ggplot(melted,aes(x=x,y=value,fill=variable)) + geom_bar(stat="identity", alpha=.3))
堆叠输出: