date/time数据的breaks、labels设置
复习：有三种date/time class：class 'Date'、class 'POSIXct'、class 'hms'。
这三种class默认的position scales分别是scale_*_date()、scale_*_datetime()、scale_*_time()。
与numeric数据相比，这些函数只是多个几个方便date/time数据的参数而已：
| numeric和date/time | date/time | 用法举例 | 用法举例等价于 |
|---|---|---|---|
breaks |
date_breaks--一个字符串，用于给定两个breaks之间的距离 |
date_breaks="1 month" |
breaks = scales::breaks_width("1 month") |
minor_breaks |
date_minor_breaks--一个字符串，用于给定两个次要Breaks之间的距离 |
date_minor_breaks="2 weeks" |
minor_breaks=scales::breaks_width("2 weeks") |
labels |
date_labels |
date_labels="%b %d"--格式化字符串，指定labels的格式 |
- |
上述表格中，第二列是第一列的补充，当两者同时存在时，第二列赢。
格式化字符串的列表：
举几个有趣的例子来说明这些参数的妙用：
# 1. scales::breaks_width() 接受一个二值向量，返回固定间隔的breaks
the_year <- as.Date(c("2021-01-01", "2021-12-31"))
set_breaks <- scales::breaks_width("1 month")
set_breaks(the_year)
# 返回值
# [1] "2021-01-01" "2021-02-01" "2021-03-01" "2021-04-01" "2021-05-01"
# [6] "2021-06-01" "2021-07-01" "2021-08-01" "2021-09-01" "2021-10-01"
#[11] "2021-11-01" "2021-12-01" "2022-01-01"
# 2. 返回每月的第7天
set_breaks <- scales::breaks_width("1 month",offset=6)
set_breaks(the_year)
# [1] "2021-01-07" "2021-02-07" "2021-03-07" "2021-04-07" "2021-05-07"
# [6] "2021-06-07" "2021-07-07" "2021-08-07" "2021-09-07" "2021-10-07"
#[11] "2021-11-07" "2021-12-07" "2022-01-07"
# 3. labels，年份只用后两位数字表示
base <- ggplot(economics, aes(date, psavert)) +
geom_line(na.rm = TRUE) +
labs(x = NULL, y = NULL)
base + scale_x_date(date_breaks = "5 years")
base + scale_x_date(date_breaks = "5 years", date_labels = "%y")
# 4. labels，月份用缩写，用与年份一起换行展示
lim <- as.Date(c("2004-01-01", "2005-01-01"))
base + scale_x_date(limits = lim, date_labels = "%b %y")
base + scale_x_date(limits = lim, date_labels = "%B\n%Y")
# 5. labels，date_labels默认调用的函数是scales::label_date()，显式调用label_date_short()可以设置更简洁友好的labels
base +
scale_x_date(
limits = lim,
labels = scales::label_date_short()
)
学习和使用Tips：记住主要参数的作用和用法，了解相关函数有哪些，使用的时候看查看帮助文档即可。
