中国・G7
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))#白黒印刷のため黒にしています。
p <- read.table("gdp_current_price.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（単位：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))#白黒印刷のため黒にしています。
