使用ggplot针对单个变量针对因素（季度日期）绘制数字（价格指数）

Question

我有一个非常简单的问题：

我的数据如下：

dateq equal.weighted 2000q1 100 2000q2 103 2000q3 105 2000q4 108

我使用以下代码绘制了这些数据，但是该图形内部没有显示任何线条，请您帮我，谢谢！！

ggplot(GlobalPriceData, aes(dateq, equally.weighted)) + geom_line() +
theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.5))

Answer 1

您应该以适当的日期格式转换日期列：

library(zoo) # for as.yearqtr() and scale_x_yearqtr()
d$dateq <- as.yearqtr(d$dateq)

ggplot(d, aes(x = dateq, y = equal.weighted)) +
  geom_line() +
  scale_x_yearqtr(limits = c(min(d$dateq), max(d$dateq)),
                  format = "%YQ%q") # this sets the proper scale format for the ax

数据：

tt <- "dateq     equal.weighted
2000q1     100
2000q2     103
2000q3     105
2000q4     108"

d <- read.table(text=tt, header = T)