国際比較003 - waseda2bun_r @ ウィキ

 

 

#data <- read.table("C:/tochnex3.csv",sep=",",skip=2,header=FALSE) data <- read.table("tochnex3.csv",sep=",",skip=2,header=FALSE) ts.data <- ts(data,start=c(1999),frequency=1) tyoku <- ts.data[,2] kougyou <-  ts.data[,3] shion  <- ts.data[,9] hitai <- ts.data[,13] tai <- ts.data[,15] #ぷらすになっているもの max1　<-　max(kougyou,hitai,tyoku) min1　<-　min(kougyou,hitai,tyoku) ttl1　<-　"日本の対中国貿易　品目ごとの輸入額-輸出額の推移" yl="単位：１０００ドル" plot(hitai,ylab=yl,ylim=c(min1,max1),lty=1,main=ttl1) lines(tyoku,lty=2);lines(kougyou,lty=3) hanrei1 <- c("非耐久消費財","食糧・直接消費財"," 工業用原料") legend(locator(1),legend=hanrei1,lty=c(1,2,3)) #マイナスのもの max2　<-　max(shion,tai) min2　<-　min(shion,tai) plot(shion,ylab=yl,ylim=c(min2,max2),lty=1,main=ttl1) lines(tai,lty=2) hanrei2 <- c("資本財","耐久消費財") legend(locator(1),legend=hanrei2,lty=c(1,2))   kohbu <- ts.data[,5]#鉱物性燃料 car <- ts.data[,18]#乗用車 max3　<-　max(car,kohbu) min3　<-　min(car,kohbu) plot(kohbu,ylab=yl,ylim=c(min3,max3),lty=1,main=ttl1) lines(car,lty=2)  abline(h=0) hanrei3 <- c("鉱物性燃料","乗用車") legend(locator(1),legend=hanrei3,lty=c(1,2))

 

____

#data <- read.table("C:/tochnex3.csv",sep=",",skip=2,header=FALSE)

data <- read.table("tochnex3.csv",sep=",",skip=2,header=FALSE)
ts.data <- ts(data,start=c(1999),frequency=1)
tyoku <- ts.data[,2]
kougyou <-  ts.data[,3]
shion  <- ts.data[,9]
hitai <- ts.data[,13]
tai <- ts.data[,15]

#ぷらすになっているもの

max1　<-　max(tai,hitai,tyoku)
min1　<-　min(tai,hitai,tyoku)
ttl1　<-　"日本の対中国貿易　品目ごとの輸入額-輸出額の推移"
yl="単位：１０００ドル"
plot(hitai,ylab=yl,ylim=c(min1,max1),lty=1,main=ttl1)
lines(tyoku,lty=2);lines(tai,lty=3)
hanrei1 <- c("非耐久消費財","食糧・直接消費財","耐久消費財")
legend(locator(1),legend=hanrei1,lty=c(1,2,3))

#マイナスのもの
max２　<-　max(shion,kougyou)
min２　<-　max(shion,kougyou)
matplot(1999:2009,shion,kougyou,main=ttl1,ylab=yl)

____