Growth Rate graph from nominal data

[steve202020]

Hi everyone!

Just getting started with R so quite unfamiliar, I've got a dataset that looks like this:

Date	GDP Level
2010Q1	457
2010Q2	487
2010Q3	538
2010Q4	589
2011Q1	627
2011Q2	672.2
2011Q3	716.4
2011Q4	760.6
2012Q1	804.8
2012Q2	849
2012Q3	893.2
2012Q4	937.4

Essentially, I have been able to plot each year on the x and each corresponding level of GDP on the y

However, I was wondering how to plot:

quarter to quarter % growth: i.e. gdp growth rate for (2012Q3-2012Q2)/2012Q2

year on year % growth: i.e. gdp growth rate for (2012Q3-2011Q3)/2011Q3

just not really sure how to ggplot % changes, really trying to learn R but finding it hard, any help would be greatly appreciated!

[nirgrahamuk]

library(tidyverse)
# example data
(df_0 <- data.frame(
  stringsAsFactors = FALSE,
  quarters = c("a","b","c","d","e","f",
               "g","h","i","j","k","l","m","n","o","p","q","r",
               "s","t","u","v","w","x","y","z"),
  val = c(50,116,142,217,318,337,
          387,435,460,532,633,723,761,782,809,813,855,945,
          973,1010,1106,1112,1197,1232,1325,1329)
))

#calculate changes
(df_1 <- mutate(df_0,
                qtq = val/lag(val,n=1), # lag is to get a value n entries previous
                yoy = val/lag(val,n=4))
                )

#plot them

ggplot(data=df_1) +
  aes(x=quarters,group=1) + 
  geom_line(aes(y=qtq,color="qtq")) + 
  geom_line(aes(y=yoy,color="yoy")) +
  scale_color_manual(values = c("black","blue"))+
  scale_y_continuous(labels = scales::percent_format())