r - 计算每月和每年有特定日期的日期

Question

我想绘制具有特定日期的日期，以便分别计算具有相同日期的不同日期。例如，我写了以下内容：

dates <-  c("2018-01-03", "2018-01-17", "2018-02-03", "2018-02-03", "2018-02-16", 
            "2018-02-26", "2018-03-03")
data <- as.data.frame(dates)

ggplot(data) +
  geom_bar(aes(x = day(dates)), 
           stat = "count")

然而，这给了我 4 天 3、1 天 16、1 天 17 和 1 天 26（见图）。但是，我想要得到的是：对于 2018-01：1 天 3 和 1 天 17 对于 2018-02：2 天 3、1 天 16 和 1 天 26 2018-03：1 天 3

我不知道我是否清楚

标签： rggplot2

Answer 1

或者你可能正在寻找这个？（我不确定）

data %>%mutate(dates = as.Date(dates)) %>% group_by(dates) %>% summarise(Freq = n()) %>%
  ggplot() + geom_col(aes(x=dates, y=Freq, fill = Freq)) +
  scale_x_date(date_labels = "%m-%d")

输出