Plotting ts in rstudio

The original plot you posted is not , at least to my knowledge, an out-of-the-can plot. It can be achieved in few minutes, 3-5 I reckon, but that' a matter of aesthetics. @Leon gave you good example that you could adapt., because you are looking for a customised plot.
I'd recommend yo check a bit pars function, but specially, a bit on customising the plots and make us get a Reproducible example , check Andres post FAQ: How to do a minimal reproducible example ( reprex ) for beginners