library(fpp2)
library(ggplot2)

Reading the data into R with the following script:

tute1 <- read.csv("tute1.csv", header=TRUE)

Converting the data to time series:

mytimeseries <- ts(tute1[,-1], start=1981, frequency=4)

Constructing time series plots of each of the three series:

autoplot(mytimeseries, facets=TRUE)

Checking what happens when facets=TRUE is not included:

autoplot(mytimeseries)