r - 在 x 轴上绘制月份下方的年份

Question

我不是在寻求编码方面的帮助，只是在我应该采取的方向(即要使用的功能)方面寻求帮助。我想知道是否可以使用 ggplot 来绘制类似这样的东西:

Answer 1

1) 一种简单的方法是将年份放在每个 1 月下(或者使用 6 月，例如，如果您希望年份以年份为中心——即在下面的代码中用 6 替换 1)。另一种方法是使用 %Y 用年份替换一月代替 %b\n%Y .

首先介绍一些测试数据——这通常应该在问题中完成，但这次我提供了一些。 x测试数据框的列d属于 "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("")