修改ggplot中facet_calendar的日期标签

Question

我有一个问题，我自己无法解决，尽管寻找解决方案很长时间。

我根据数据准备图表并使用facet_calendar。

df1 <- read.table(text = "DT   odczyt.1 odczyt.2
'2023-08-14 00:00:00'   362 1.5
'2023-08-14 23:00:00'   633 4.3
'2023-08-15 05:00:00'   224 1.6
'2023-08-15 23:00:00'   445 5.6
'2023-08-16 00:00:00'   182 1.5
'2023-08-16 23:00:00'   493 4.3
'2023-08-17 05:00:00'   434 1.6
'2023-08-17 23:00:00'   485 5.6
'2023-08-18 00:00:00'   686 1.5
'2023-08-18 23:00:00'   487 6.8
'2023-08-19 00:00:00'   566 1.5
'2023-08-19 05:00:00'   278 7.9
'2023-08-19 17:00:00'   561 11.5
'2023-08-19 18:00:00'   365 8.5
'2023-08-19 22:00:00'   170 1.8
'2023-08-19 23:00:00'   456 6.6
'2023-08-20 00:00:00'   498 1.5
'2023-08-20 03:00:00'   961 1.54
'2023-08-20 05:00:00'   397 1.6
'2023-08-20 19:00:00'   532 6.6
'2023-08-20 23:00:00'   493 3.8
'2023-08-21 01:00:00'   441 9.2
'2023-08-21 07:00:00'   793 8.5
'2023-08-21 13:00:00'   395 5.5", header = TRUE) %>% 
  mutate (
    DT = as.POSIXct(DT),
    Rok = year (DT),
    Msc = month (DT),
    Godz = hour (DT),
    Dzien = day (DT),
    Date = as.Date (paste0 (Rok, "-", Msc, "-", Dzien))
          )

ggplot (df1 %>% filter (Rok == 2023 & Msc == 8)) +
  geom_col (aes (x = Godz, y = odczyt.1)) +
  facet_calendar(~Date)

实际数据比较复杂，包含很多年的数据。

我希望能够控制标签并将月份名称设置为全名（目前是3个字母的缩写）

Answer 1

假设您正在使用

facet_calendar

包中的

sugrrants

函数，如果您检查

?facet_calendar

帮助页面，您会看到它提供了

format=

参数。要获取完整的月份名称，请使用

facet_calendar(~Date, format="%B %d")