r - 如何在 ggplot 中绘制条形图，其中我的垃圾箱是年月

Question

mydates<-data.frame(effectiveDate=as.Date(c("2012-1-1","2012-1-1","2012-2-1","2012-10-1","2012-4-1","2012-8-1","2013-1-1")))

如何使用 ggplot 绘制条形图，其中条形是年月？在这种情况下，将有 13 个条形图：“2012 年 1 月”到“2013 年 1 月”，每个条形图的高度代表该月每个日期的计数。

Answer 1

我认为这有效：

编辑：根据下面的评论

mydates$months <- month.abb[as.numeric(format(mydates[, 1], format = "%m"))]
mydates$Months <- paste(mydates$months, format(mydates[, 1], format = "%y"))
mydates$Months <- factor(mydates$Months, levels = paste(month.abb, c(rep(12, 12), 13)))

ggplot(mydates, aes(Months)) + geom_bar()+ scale_x_discrete(drop=FALSE) +
    theme(axis.text.x = element_text(angle=90, vjust=.3)) 

coord_flip()可以通过使用或使用使横条水平来调整标签theme(axis.text.x = element_text(angle=90, vjust=.3))

Answer 2

这工作正常：

ggplot(data = mydates, aes(x = effectiveDate)) + geom_bar() 
ggsave(filename = "~/temp/temp.png", width = 6, height = 3, dpi = 150)