資産増減グラフ改良(R言語自分用メモ)
(2016/3/7 改定)
簡単に資産増減グラフのようなものを描かせるR言語ソース(部分的)を改良
横軸問題をある程度解決
#自作関数で利益を計算
sk2a<-sashi3a0(p$hjm1,p$yas1,p$owa1,p$tak2,p$tak3,kai_k,uri_k,p$owa0,p$owa3,tsry)
#計算結果ベクトルをデータフレームに追加
p$sk2<-sk2a
#p$jをキーにして(=日付indexごとに)tapplyで集計(sum)
sspr0<-tapply(p$sk2,p$j,sum)
#ひっくり返す
sspr1<-rev(sspr0)
#累計加算(y)
sspr<-cumsum(sspr1)
##日付indexベクトルをtapplyで作成(meanで裏ワザ的に) わかりにくい?
#pj<-tapply(p$j,p$j,mean)
#neme属性を抜き出し数値化
pj<-as.numeric(names(sspr0))
##日付indexのmaxを検出 この方式は中止
#maxj<-max(p$j)
#コマンドライン引数でmaxを与える
maxj<-as.numeric(args[7])
#値も並びもひっくり返す(x)
rpj<-rev(maxj-pj)
#plotする(x,y)
plot(rpj,sspr,type="b")
こんな感じ