Опуская некоторые значения по оси X в ggplot

Question

Мой dataframe называется Finalcombined выглядит следующим образом: У меня есть следующий график:

И следующий код:

Labourproductivity<- ggplot(Finalcombined, aes(x = quarter, y = LabourProductivity, group=1))+geom_line(colour="black", size=0.5) + 
    labs(x="Time", y=("Labour Productivity"))+ 
    theme(axis.text.x = element_text(angle = 90, hjust = 1,))+ 
    geom_point(colour="black", size=2, shape=16)+ 
    geom_smooth(aes(group=1))+ 
    theme(axis.text=element_text(size=13),axis.title=element_text(size=16,face="bold"))+ 
    theme(panel.grid.major = element_line(colour = "white", size=0.50),panel.grid.minor = element_line(colour = "white", size=0.16)) 
Labourproductivity 

Мои вопрос в том, как можно избавиться от некоторых значений, указанных на оси х, но все равно иметь один и тот же граф. Я хотел бы включить (2004 Q1, 2005 Q1, 2006 Q1) и так далее. Как я могу это сделать? Спасибо за помощь!

Answer 1

Добавить ниже вашего ggplot

scale_x_discrete(breaks=Finalcombined$quarter[grepl("Q1",Finalcombined$quarter)]) 

Пример:

require("ggplot2") 

#dummy data 
Q <- paste(sort(rep(2004:2013,4)),paste0("Q",1:4)) 
Finalcombined <- 
    data.frame(quarter= Q, 
      LabourProductivity=runif(length(Q))) 

#plot 
ggplot(Finalcombined, 
     aes(x = quarter, 
      y = LabourProductivity, 
      group=1)) + 
    geom_line(colour="black", size=0.5) + 
    labs(x="Time", y=("Labour Productivity")) + 
    theme(axis.text.x = element_text(angle = 90, hjust = 1,)) + 
    geom_point(colour="black", size=2, shape=16) + 
    geom_smooth(aes(group=1)) + 
    theme(axis.text=element_text(size=13),axis.title=element_text(size=16,face="bold")) + 
    theme(panel.grid.major = element_line(colour = "white", size=0.50),panel.grid.minor = element_line(colour = "white", size=0.16)) + 
    #change X axis labels 
    scale_x_discrete(breaks=Finalcombined$quarter[grepl("Q1",Finalcombined$quarter)])