我正在使用 ggplot2 制作日历。我希望日历看起来像这样:
library(tidyverse)
library(lubridate)
library(ggforce)
datedb <- tibble(date = seq(as.Date("2021-09-01"),
as.Date("2021-12-31"), by = 1),
day = day(date),
week_no = epiweek(date),
Month = month(date, label = TRUE, abbr = FALSE),
Wday = wday(date, label = TRUE, abbr = TRUE))
ggplot(datedb, aes(Wday, week_no)) +
geom_tile(color = "black", fill = NA) +
geom_text(aes(label = day), size = 3) +
scale_y_reverse() +
scale_x_discrete(position = "top") +
facet_wrap(~ Month, ncol = 1, scales = "free",
strip.position = "top") +
theme_void() +
theme(axis.text.x = element_text(size = 9),
strip.placement = "outside",
strip.text = element_text(size = 13))
但是,我注意到 10 月份的图块比其他月份要小 - 10 月份的天数比其他月份多一排。我想让所有单元格的大小相同。我可以使用facet_col
参数 inggforce
而不是facet_wrap
这样做:ggforce::facet_col(vars(Month), scales = "free_y", space = "free") +
......但随后我松开了我的 x 轴标签(见下图),这很重要 - 我希望每个月都显示一周中的几天。
是否有任何“简单”的解决方案可以让我的网格单元格和我的 x 轴标签保持相同的大小?