绘制季度数据并使用rstudio中的GGPLOT指定季度

Question

我想绘制季度数据，其中将信息保存在变量yq中为：yyyy Q（e..g 2007 Q1），我是通过结合年份和季度（1，2，2，3，4）创建的：

df$yq = as.yearqtr(paste(df$Year, df$Quarter), "%Y %q")

环顾四周在线示例，我编写了此代码，但问题是它不能让我指定要在X轴上显示的几年 - 或者我似乎找不到一种方法来应用此类数据的休息时间。我有15年的数据，只想每3年显示一次标签，因此唯一的标签是2005.Q1，2008.Q1，2011.Q1，2014.Q1，2017.Q1。

感谢提示！

plot = ggplot(df, aes(x = yq, y = rate, color = "red")) +
  geom_point() +
  geom_line(aes(y = lin, color = "green"), size = 1) +
  geom_line(aes(y = quad, color = "brown"), size = 1) +
  geom_line(aes(y = cube, color = "blue"), size = 1) +
  geom_line(aes(y = log, color = "pink"), size = 1) +
  geom_line(aes(y = power_corr, color = "black"), size = 1) +
  geom_line(aes(y = exp_corr, color = "yellow"), size = 1) +
  scale_color_identity(name = "Models",
                       breaks = c("red", "green", "brown", "blue", "pink", "black", "yellow"),
                       labels = c("Observed", "Linear", "Quadratic", "Cubic", "Log", "Power", "Exponential"),
                       guide = "legend")

plot + 
theme(panel.grid.major = element_blank(), 
      panel.grid.minor = element_blank(), 
      panel.background = element_blank(), 
      axis.line = element_line(colour = "black"))+
  theme(axis.text.x = element_text(size = 8, angle=-45, hjust = 0.001), 
        legend.key = element_rect(color = NA, fill = NA))+
  labs(title="", x = "Year/quarters", y = "Smoking prevalence")+
  scale_x_yearqtr(format='%Y.Q%q')

Answer 1

没有提供数据，因此我们将使用一个简单的X和Y向量示例，并使用指示的断点和格式参数使用Scale_x_yearqtr。

library(ggplot2)
library(zoo)

# inputs
x <- as.yearqtr(2000) + 0:29
y <- 1:30

qplot(x, y) + 
  scale_x_yearqtr(breaks = seq(min(x), max(x), by = 3), format = "%Y.Q%q")