R ggplot geom_tile x axis year quarter labeling

Question

I have some time series data with quarterly frequency, as below.

I\'m using geom_tile to create a heatmap of these time series data, but the issue I have