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

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