barplot使用ggplot2

Question

我有这样的数据集:

cars    trucks  suvs
1          2    4
3          5    4
6          4    6
4          5    6
9          12   16

我正在尝试为这些数据绘制条形图.目前,我可以这样做barplot:

barplot(as.matrix(autos_data), main="Autos", 
         ylab= "Total",beside=TRUE, col=rainbow(5))

生成此图表:

所以我的问题是:我可以使用ggplot2绘制这样的图表吗？具体来说 - 如何使用分面或其他选项按周拆分图表？如果是的话,我该如何做到这一点？另外,如何使用facet生成不同的布局？

Answer 1

之前已经多次询问过这个问题.答案是,你必须使用stat="identity"在geom_bar告诉ggplot不要总结你的数据.

dat <- read.table(text="
cars    trucks  suvs
1   2   4
3   5   4
6   4   6
4   5   6
9   12  16", header=TRUE, as.is=TRUE)
dat$day <- factor(c("Mo", "Tu", "We", "Th", "Fr"), 
             levels=c("Mo", "Tu", "We", "Th", "Fr"))

library(reshape2)
library(ggplot2)

mdat <- melt(dat, id.vars="day")
head(mdat)
ggplot(mdat, aes(variable, value, fill=day)) + 
  geom_bar(stat="identity", position="dodge")