R 刻面计数直方图ggplot2

假设我有以下数据框

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)

category=c（“A”、“B”、“c”、“B”、“A”、“B”）
1月10日=c（20,10,30,20,15,46）
2月10日=c（10,10,40,20,25,46）
3月10日=c（40,10,80,20,25,56）
1月11日=c（50,10,20,20,45,56）
2月11日=c（70,10,30,20,35,46）
3月11日=c（60,10,50,20,25,66）
df我想你想要这样的东西：

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()

df_熔体%melt（）
df_melt$variable我想你想要这样的东西：

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()

df_熔体%melt（）
df_melt$变量在这里出现错误：“不知道如何自动为yearmon类型的对象选择比例。默认为continuous。”我的图形有一个很大的间隙，日期显示为数字“2010.0 2010.4…”我在ggplot2_2.1.0上。我在SaleYxxAuthMon（）中添加了，现在它工作了，但是中间仍然有间隙。我会再花点时间弄清楚的。谢谢你的回答@sandipan。这一次真的伤了我的头！这里出现了一个错误：“不知道如何自动选择yearmon类型对象的比例。默认为continuous。”我的图形有一个很大的间隙，日期显示为数字“2010.0 2010.4…”我在ggplot2_2.1.0上。我在SaleYxxAuthMon（）中添加了，现在它工作了，但是中间仍然有间隙。我会再花点时间弄清楚的。谢谢你的回答@sandipan。这一次真的伤了我的头！