読者です 読者をやめる 読者になる 読者になる

53歳限界プログラマの憂鬱

SU/CAR-ST-APplication-cellsから派生したプログラマのブログ

本家はこちら↓
f:id:sucar:20151115183011p:plain

SU/CAR-ST-APplication-cellsの安倍野ミックスと申します
来訪ありがとうございます
シストレツールを自作してます

f:id:sucar:20150414193802p:plain

にほんブログ村 IT技術ブログ プログラム・プログラマーへ
にほんブログ村 IT技術ブログ C/C++へ
にほんブログ村 株ブログ 株日記(アフィリなし)へ
←ランキングに
1票お願いします

資産増減グラフ改良(R言語自分用メモ)

開発日記 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")

f:id:sucar:20160307060515p:plain

こんな感じ