GDPの動き - waseda2bun @ ウィキ

GDPの動き（ソース：IMF）

• Rによる計算
  • データーソース：IMF・WEO
  • 期間：1980-2015
    • 予測値を含む
  • Gross domestic product, constant prices(Base Year=2000,National currency)
  • Gross domestic product, current prices
  • 及びMS-EXCELより各対数値、前年比、実質GDP成長率を計算
• Rのコード

---

J <- read.table("JPNGDP8015.csv",sep=",",skip=1)#ファイルの読み込み
T <- ts(J,start=c(1980),frequency=1)
x1　<- T[,2]#Gross domestic product, constant prices(Base Year=2000,National currency)
x2　<- T[,3]#Gross domestic product, current prices
x3　<- T[,4]#Gross domestic product, constant pricesの対数値
x4　<- T[,5]#Gross domestic product, current pricesの対数値
x5 <- T[,6]#Gross domestic product, constant pricesの前年比
x7 <- T[,8]#Gross domestic product, constant pricesの成長率

#実行1

ts.plot(x3,x4,xlab="yr",ylab="LN(GDP)",main="GDP,JPN -constant prices and current prices",lty=c(1:2),col=c(1:2))
legend(locator(1),c("2000yr constant prices(対数値)","current prices(対数値)"),lty=c(1:2),col=c(1:2))

#実行2

par(mfrow=c(1,2))
ts.plot(x5,xlab="yr",ylab="前年比",main="Gross domestic product,constant pricesの前年比")
ts.plot(x7,xlab="yr",ylab="成長率",main="Gross domestic product,constant pricesの成長率")

---

• 結果1
• 結果2

• 対数をとる場合
  • グラフの傾き：経済変数の変化率の成長率に対応する

---

参考文献

• 斎藤他「マクロ経済」
• IMF・WEO

---