重塑数据以使用R中的ggplot进行堆叠条形图

Question

我想在ggplot2中制作一个堆积的条形图但是我没有在数据集中与类别对应的实际标签。例如：

require(ggplot2)
x <- c("oct", "nov")
oct <- c(2,4)           
nov <- c(5,1)           

qplot(x, oct, geom = "bar", stat = "identity")          
qplot(x, nov, geom = "bar", stat = "identity")      

在这里，我想制作一个条形图，其中第一个条形图（2,4）具有不同的颜色，然后（5,1）用于第二个条形图，具有不同的颜色，使得2和5具有相同的颜色， 4和1具有相同的颜色。谢谢。

Answer 1

试试这个

library(reshape2)
df <- melt(data.frame(x, oct, nov), id.vars="x")
ggplot(df, aes(x, value, fill=variable)) + 
  geom_bar(stat="identity")