我如何简化X轴等级（年度季度R）

Question

第三年的大学生在这里，我有一个经济学项目可以在15日回去。我们必须与RMD合作，但我并不真正熟悉该工具...因此，任何帮助都将不胜感激！ 我的问题是我想在多年来在比利时的GGPLOT上展示GDP的演变。这是我的数据的样子（您可以看到时间列与四分之一

ggplot(data = PIB, aes(x=PIB$Time, y=PIB$Belgium, group=1))  + geom_line() + labs(x="Time", y="Belgian PIB")

[

！ ] [2]] [2]

我对图形的外观非常满意，除了X轴外观。 想显示在线4/5时间戳，因此读者可以理解演变从2001年到2021年，并且GDP每季度都会更改

该列的格式确实使我失望了。我 这可能是一个愚蠢的问题，但欢迎任何帮助！ [1]： https://i.sstatic.net/xvynw.png [2]： https://i.sstatic.net/1f1ll.1f1ll.png

Answer 1

您必须将时间列从字符向量转换为时间。

library(zoo)
PIB$Time = as.yearqtr(PIB$Time,format="%YQ%q")
PIB$Time = as.Date(PIB$Time)

然后尝试GGPLOT。

Answer 2

将时间转换为YearQtr类，并与 scale_x_yearqtr 一起使用。请参阅？scale_x_yearqtr 如果默认不是您想要的，请查看其各种参数。

请注意 r 标记页面的信息特别是r问题应该提供文本输入，以便其他人可以将其复制并粘贴到他们的会话中。如果不将其全部重新播放，则不能轻易使用图像。在没有的情况下，我使用了末尾注释中显示的可重复输入。使用以下任何一个：

library(ggplot2)
library(zoo)

# 1
qplot(as.yearqtr(Time), Belgium, data = PIB, geom = "line", xlab = "") +
  scale_x_yearqtr()

# 2 - will default to scale_x_yearqtr even if not specified
qplot(as.yearqtr(Time), Belgium, data = PIB, geom = "line", xlab = "")

# 3 - convert to zoo series and plot that
Belgium <- read.zoo(PIB, FUN = as.yearqtr)
autoplot(Belgium) + xlab("")

注释

PIB <-
structure(list(Time = c("2001Q1", "2001Q2", "2001Q3", "2001Q4", 
"2002Q1", "2002Q2", "2002Q3", "2002Q4"), Belgium = 1:8), 
class = "data.frame", row.names = c(NA, -8L))