国際比較002 - waseda2bun_r @ ウィキ

・データ

『World Economic Outlook Database October 2010』（http://www.imf.org/external/ns/cs.aspx?id=28：非リンク）

・GDP成長率

p <- read.table("gpd_constant prices_change.csv",sep=",",skip=1) ts.p <- ts(p,start=c(1980),frequency=1) rownames(ts.p) <- c(1980:2015)#つける意味はないと思いますが念のため colnames(ts.p) <- c("yr","CND", "FRN", "GER","ITL","JPN","UK","US","CHN") matplot(1980:2015,ts.p[,-c(1)], type = "b",pch=c(1:8),ylab = "GDP", xlab = "yr", main = "GDP変化率 1980-2015",col="black")#白黒印刷のため黒にしています。 legend(locator(1),c("CND", "FRN", "GER","ITL","JPN","UK","US","CHN"),col="black",pch=c(1:8))#白黒印刷のため黒にしています。

 

・GDP

g <- read.table("gdp_current_price.csv",sep=",",skip=1) ts.g <- ts(g,start=c(1980),frequency=1) rownames(ts.g) <- c(1980:2015)#つける意味はないと思いますが念のため colnames(ts.g) <- c("yr","CND", "FRN", "GER","ITL","JPN","UK","US","CHN") matplot(1980:2015,ts.g[,-c(1)], type = "b",pch=c(1:8),ylab = "GDP（単位：Billions）", xlab = "yr", main = "GDP（米ドル換算、CurrentPrice）",col="black")#白黒印刷のため黒にしています。 legend(locator(1),c("CND", "FRN", "GER","ITL","JPN","UK","US","CHN"),col="black",pch=c(1:8))#白黒印刷のため黒にしています。