具有刻面ggplot2的计数直方图

Question

我们说我有以下数据框

*text*

如何通过刻面创建三个直方图，每个类别一个，在x轴上有几个月，在y轴上计数？ 我试图得到这样的东西： example-image

这是我迄今为止的最佳尝试：

category = c( "A", "B", "C", "B", "A", "B")
Jan.10 = c(20,10,30,20,15,46)
Feb.10 = c(10,10,40,20,25,46)
Mar.10 = c(40,10,80,20,25,56)
Jan.11 = c(50,10,20,20,45,56)
Feb.11 = c(70,10,30,20,35,46)
Mar.11 = c(60,10,50,20,25,66)
df <- data.frame(category, Jan.10, Feb.10, Mar.10, Jan.11, Feb.11, Mar.11)

但它不能正常工作。

非常感谢任何帮助！

Answer 1

我想你想要这样的东西：

df_melt <- df %>% melt()
df_melt$variable <- as.yearmon(df_melt$variable, "%b.%y") 

ggplot(df_melt, aes(x=variable, y=value)) + 
  geom_bar(stat='identity') +
  xlab("Year and Month") +
  ylab("Sales") + 
  facet_wrap(~category, ncol = 1) +
  theme_bw()