1

我正在使用 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))

带有 facet_wrap 的日历

但是,我注意到 10 月份的图块比其他月份要小 - 10 月份的天数比其他月份多一排。我想让所有单元格的大小相同。我可以使用facet_col参数 inggforce而不是facet_wrap这样做:ggforce::facet_col(vars(Month), scales = "free_y", space = "free") + ......但随后我松开了我的 x 轴标签(见下图),这很重要 - 我希望每个月都显示一周中的几天。

是否有任何“简单”的解决方案可以让我的网格单元格我的 x 轴标签保持相同的大小?

带有 facet_col 的日历

4

1 回答 1

2

facet_col()方法;不改变scales = "free_y"scales = "free"解决问题?

library(tidyverse)
library(lubridate)
#> 
#> Attaching package: 'lubridate'
#> The following objects are masked from 'package:base':
#> 
#>     date, intersect, setdiff, union
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_col(~ Month, scales = "free", space = "free",
             strip.position = "top") +
  theme_void() +
  theme(axis.text.x = element_text(size = 9),
        strip.placement = "outside",
        strip.text = element_text(size = 13))

reprex 包于 2021-06-16 创建(v1.0.0)

于 2021-06-16T13:53:02.990 回答