月-年組合的 stat_count

Question

我想要 plot 數據框中某個日期的出現次數。 我寫了以下內容：

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) +
  stat_count(aes(x = (dates)))

基本上，代碼繪制了日期中每個日-月-年組合的出現次數。 現在，我想創建一個 plot 來計算日期中每個月-年組合的出現次數。 基本上，考慮到圖片，具有相同月份-年份的條柱應該一個在另一個之上。 有人有什么主意嗎？

Answer 1

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

data <- mutate(data,
               dates = lubridate::as_date(dates),
               year_month=paste(lubridate::year(dates),
                                str_pad(lubridate::month(dates), width = 2, pad = 0),
                                sep="-"))

ggplot(data) +
  stat_count(aes(x = year_month))

如果您希望日期可以區分（不確定這對現實世界的示例有多大用處），您可以使用fill ，注意factor(dates)以便將dates視為一個因素。

ggplot(data) +
  stat_count(aes(x = year_month, fill=factor(dates)))