在R中更改我的图表上的x轴值

Question

我的图表在我的数据的y轴数值上是凹陷的水平，在x轴上我有顺序（数字来自1-40因为我有40个观察结果）但这些实际上是四分之一因为我的数据是每季度（2008-2013）。所以我想将x轴从1-40的顺序改为年和季（例如2008年Q1,2008 Q2，...）。但我不知道怎么能这样做。任何帮助是极大的赞赏！

Answer 1

以下是您的40个季度并从2008年开始的一个例子：

quarter       <- seq(40)
starting.year <- 2008

#create a function
convertToQ <- function(qs, s) {
  d <- c()
  for(q in qs){
    qtr <- (q-1)%%4 +1
    d <- c(d, (paste(s, " Q", qtr, sep = "")))
    if(qtr == 4) s <- s +1
  }
  return(d)
}

# generate data frame
data <- data.frame(depression = runif(40, -5.0, 5.0),
                   quarters   = convertToQ(quarter, starting.year),
                   stringsAsFactors=FALSE)

# plot
ggplot(data, aes(x = quarters, y = depression)) +
  geom_point() +
  theme(axis.text.x = element_text(angle = 90, hjust = 1))

这会产生以下情节：