Rでイールドカーブをグラフ描画してみる

Excelでは、グラフ印刷の場合、1行目、1列目が座標軸になる。
ビジネス系の場合、案外ｘ軸は非数値である場合がある。
そういう時のテクニック。
やや、冗長ですねえ、、もう少し、シンプルになると思います、、、
ポイントは、plotで「xaxt="n"」、 axis(1, at=<x軸の目盛り位置>, labels=＜その時のラベル＞, pos=0)

x <-read.csv("c:/test/test1.csv",header=T)
x.data<-data.frame(x[,2:14],row.names=x[,1])
x.data
lavel <-c(paste(c(1,3,6),"m",sep=""),paste(c(1:10),"y",sep=""))
plot(1:13,x.data[2,],lty=1,type="l",xaxt="n",xlab="イールド",ylab="利率（％）")
for(i in 1:13){
axis(1, at=i, labels=lavel[i], pos=0)
if (i>2){
lines(1:13,x.data[i,],lty=3,col=i)
}
}

> x.data
１ヶ月 ３ヶ月 ６ヶ月 １年 ２年 ３年
金利１ 0.100000000 0.30000000 0.50000000 0.70000000 0.90000000 1.10000000
金利２ 0.027877606 0.21092763 0.41189755 0.01992961 0.48301959 0.99195173
金利３ 0.072876887 0.04525560 0.35576517 0.08349966 0.40879922 0.95565290
金利４ 0.036667735 0.25436784 0.29419797 0.20294919 0.04106208 0.56739820
金利５ 0.005569511 0.25768794 0.36511799 0.35520448 0.44750703 0.61493886
金利６ 0.039964086 0.00021958 0.33824404 0.35769531 0.73470825 0.83909638
金利７ 0.085460670 0.04345718 0.08710587 0.62109500 0.05257187 0.29153159
金利８ 0.089940628 0.03554693 0.25882839 0.22154714 0.12280772 0.70943057
金利９ 0.072437949 0.24836105 0.28228370 0.46638298 0.68881066 0.08428973
金利１０ 0.009525149 0.01667500 0.07742818 0.30676718 0.37501316 0.83389939
４年 ５年 ６年 ７年 ８年 ９年
金利１ 1.3000000 1.5000000 1.7000000 1.90000000 2.1000000 2.30000000
金利２ 0.6803378 1.3745004 0.5135321 1.85668185 1.8031573 1.95940218
金利３ 0.2805778 0.6336938 0.1442276 0.34588735 0.5009916 0.46885884
金利４ 0.8763258 1.0030744 1.2785844 0.65323567 1.1720169 0.93684936
金利５ 0.2531363 0.9277034 0.1598404 0.16635548 2.0411710 0.02640765
金利６ 0.8336032 1.2527894 1.2140475 1.84418647 2.0969549 0.73039513
金利７ 0.9223572 0.5911564 0.9323400 0.40266169 0.2741270 0.11215907
金利８ 1.0514676 0.4819668 0.7789621 0.05189584 1.5780077 0.48349885
金利９ 0.4702907 0.1383999 0.6809487 0.64755723 0.1941831 0.43439839
金利１０ 1.1814694 0.7459063 0.2013630 1.74521164 1.3455539 2.22703265
１０年
金利１ 2.5000000
金利２ 1.1260667
金利３ 0.8738908
金利４ 0.4824346
金利５ 0.2104674
金利６ 0.7593693
金利７ 0.7010074
金利８ 0.8558189
金利９ 1.6905044
金利１０ 1.9910796