按月分组的数据直方图

Question

如果我想按月汇总数据，方法如下：

library(dplyr)
library(lubridate)
set.seed(2017)
options(digits=4)

(expenses <- data_frame(
   date=seq(as.Date("2016-01-01"), as.Date("2016-12-31"), by=1),
   amount=rgamma(length(date), shape = 2, scale = 20)))

然后我按月总结如下：

expenses %>% group_by(month=floor_date(date, "month")) %>%
summarize(amount=sum(amount))

我想为每个月绘制变量 amount 的直方图。我该怎么做？

Answer 1

从 date 中提取月份值并使用构面，您可以在单独的图中显示每个月的直方图。

library(dplyr)
library(ggplot2)

expenses %>%
  arrange(date) %>%
  mutate(month = format(date, '%b %Y'), 
         month = factor(month, unique(month))) %>%
  ggplot() + aes(amount) + 
  geom_histogram(bins = 10) + 
  facet_wrap(~month)

按月分组的数据直方图

Histogramns of the data grouped by month

r

histogram