对于ggplot
,tidyverse
,lubridate
,我觉得这应该是一项简单的任务,但我似乎无法找到一个优雅的解决方案。
目标:根据年份和月份创建汇总/汇总/分组数据的条形图。
#Libraries
library(tidyverse)
library(lubridate)
# Data
date <- sample(seq(as_date('2013-06-01'), as_date('2014-5-31'), by="day"), 10000, replace = TRUE)
value <- rnorm(10000)
df <- tibble(date, value)
# Summarise
df2 <- df %>%
mutate(year = year(date), month = month(date)) %>%
unite(year_month,year,month) %>%
group_by(year_month) %>%
summarise(avg = mean(value),
cnt = n())
# Plot
ggplot(df2) +
geom_bar(aes(x=year_month, y = avg), stat = 'identity')
当我创建year_month变量时,它自然会变成一个字符变量而不是一个日期变量。我还尝试按year(date), month(date)
进行分组,但后来我无法弄清楚如何在ggplot
中使用两个变量作为x轴。也许这可以通过将日期安排到本月的第一天来解决......?
答案 0 :(得分:7)
你真的很亲密。缺失的部分是floor_date()
和scale_x_date()
:
library(tidyverse)
library(lubridate)
date <- sample(seq(as_date('2013-06-01'), as_date('2014-5-31'), by = "day"),
10000, replace = TRUE)
value <- rnorm(10000)
df <- tibble(date, value) %>%
group_by(month = floor_date(date, unit = "month")) %>%
summarize(avg = mean(value))
ggplot(df, aes(x = month, y = avg)) +
geom_bar(stat = "identity") +
scale_x_date(NULL, date_labels = "%b %y", breaks = month)