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

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

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

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

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

f:id:sucar:20150414193802p:plain

同じ日付で集計(R言語自分用メモ)

簡単に資産増減グラフのようなものを描かせる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をキーにして(=日付ごとに)tapplyで集計(sum)
sspr0<-tapply(p$sk2,p$j,sum)

 

#ひっくり返す
sspr1<-rev(sspr0)

 

#累計加算
sspr<-cumsum(sspr1)

#plotする
plot(sspr)

f:id:sucar:20160306194632p:plain

この方法だとシグナルがない部分が飛ばされるので横軸がおかしいのだけど、形状はわかる

supercar.hatenablog.com