How do I plot fitted data over actual data for VAR model in R, and how I can use window to see only the last obs in plots for predictions?

Question

I\'m having a problem trying to plot the fitted values of my VAR model over the actual data.

I wish to:

(I) - visualize a plot for all the time series variables in