Industrial Production as of 06/2021

 

Industrial Production as of 06/2021

library(Quandl)

library(ggplot2)

library(tseries);library(timeseries);library(xts);library(forecast)

library (quantmod)

library(psych)

library(plotly) #install.package(plotly)

#Industrial Production (INDPRO)

#Industrial Production: Consumer Goods (IPCONGD)

#Industrial Production: Durable Consumer Goods (IPDCONGD)

#Industrial Production: Non-Durable Consumer Goods (IPNCONGD)

#Industrial Production: Equipment: Business Equipment (IPBUSEQ)

#Industrial Production: Materials (IPMAT)

#Industrial Production: Manufacturing (SIC) (IPMANSICS)

#Industrial Production: Durable Manufacturing (NAICS) (IPDMAN)

#Industrial Production: Non-Durable Manufacturing (NAICS) (IPNMAN)

start <- as.Date("1990-01-01")

getSymbols(c('INDPRO','IPCONGD','IPDCONGD','IPNCONGD','IPBUSEQ','IPMAT',

             'IPMANSICS','IPDMAN','IPNMAN'

             

             ), from=start, src='FRED')

IND<-merge (INDPRO,IPCONGD,IPDCONGD,IPNCONGD,IPBUSEQ,IPMAT,

            IPMANSICS,IPDMAN,IPNMAN)

            

Diff_IND <- (IND/lag(IND)-1)*100  

Diff_IND[1,] <- 0

Diff_INDPRO=Delt(INDPRO,k=12)*100

plot(Diff_INDPRO, main='Changes from previous year - Industrial Production',las=2, subset='2000-01-01/')

Diff_IPCONGD=Delt(IPCONGD,k=12)*100

plot(Diff_IPCONGD, main='Changes from previous year - Industrial Production: Consumer Goods (IPCONGD)',las=2, subset='2000-01-01/')

Diff_IPDCONGD=Delt(IPDCONGD,k=12)*100

plot(Diff_IPDCONGD, main='Changes from previous year - Industrial Production: Durable Consumer Goods (IPDCONGD)',las=2, subset='2000-01-01/')

Diff_IPNcONGD=Delt(IPNCONGD,k=12)*100

plot(Diff_IPNCONGD, main='Changes from previous year - Industrial Production: Non-Durable Consumer Goods',las=2, subset='2000-01-01/')

Diff_IPBUSEQ=Delt(IPBUSEQ,k=12)*100

plot(Diff_IPBUSEQ, main='Changes from previous year - Industrial Production: Equipment: Business Equipment (IPBUSEQ)',las=2, subset='2000-01-01/')

Diff_IPMAT=Delt(IPMAT,k=12)*100

plot(Diff_IPMAT, main='Changes from previous year - Industrial Production: Materials (IPMAT)',las=2, subset='2000-01-01/')

Diff_IPMANSICS=Delt(IPMANSICS,k=12)*100

plot(Diff_IPMANSICS, main='Changes from previous year - Industrial Production: Manufacturing (SIC) (IPMANSICS)',las=2, subset='2000-01-01/')

Diff_IPDMAN=Delt(IPDMAN,k=12)*100

plot(Diff_IPDMAN, main='Changes from previous year - Industrial Production: Durable Manufacturing (NAICS) (IPDMAN)',las=2, subset='2000-01-01/')

Diff_IPNMAN=Delt(IPNMAN,k=12)*100

plot(Diff_IPNMAN, main='Changes from previous year -Industrial Production: Non-Durable Manufacturing (NAICS) (IPNMAN)',las=2, subset='2000-01-01/')