?datasets

library(help = "datasets")
?UKgas

Quarterly UK gas consumption from 1960Q1 to 1986Q4, in millions of therms.

df <- UKgas 

plot(df)

plot(log(df))

Fitting the best fit line through the logged time series gives a much better fit.