在x軸上繪制低於月份的年份

Question

我不是在尋找編碼方面的幫助，只是幫助我應該采取什么方向，即使用哪些功能。 我想知道是否有可能使用ggplot來繪制類似這樣的東西：

Answer 1

1）一種簡單的方法是將年份放在每年的1月份（或者使用6月，例如，如果你想讓年份居中 - 即在下面的代碼中將1替換為6）。 另一種方法是通過使用%Y代替%b\\n%Y來替換1月份。

首先介紹一些測試數據 - 這通常應該在問題中完成，但這次我提供了一些。 測試數據幀d的x列是"yearmon"類， y是數字。 我假設問題中X軸上的數字用於表示月份，但如果它們打算用季度，則從"yearqtr"類開始，然后使用scale_x_yearqtr相應調整。

library(ggplot2)
library(zoo)

d <- data.frame(x = as.yearmon("2000-1") + 0:23/12, y = 1:24) # test data

x <- d$x
autoplot(d) 
ggplot(d, aes(x, y)) + 
  geom_line() + 
  geom_point() + 
  scale_x_yearmon(breaks = x, lab = format(x, ifelse(cycle(x) == 1, "%b\n%Y", "%b")))

2）或者如果你開始使用動物園對象z ：

z <- read.zoo(d)
x <- time(z)
autoplot(z, geom = c("line", "point")) + 
  scale_x_yearmon(breaks = x, lab = format(x, ifelse(cycle(x) == 1, "%b\n%Y", "%b"))) + 
  xlab("")