Rで描くバタフライカーブ

Reference
https://twitter.com/Rbloggers/status/651904894895456256
http://danielmarcelino.com/the-butterfly-curve/
Script
#Reference
# https://twitter.com/Rbloggers/status/651904894895456256
# http://danielmarcelino.com/the-butterfly-curve/
library(ggplot2)
source("https://raw.githubusercontent.com/danielmarcelino/SciencesPo/master/R/butterfly.R")
plotDanielMarcelinoButterfly<-function(n,nb,title){
  plot(butterfly(n,nb,title))
}
n<-1000 #number of background points
nb<-5000
title<-paste(n,"×",nb,"\nhttp://danielmarcelino.com/the-butterfly-curve/")
plotDanielMarcelinoButterfly(n,nb,title)

2016年03月29日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第4週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月22日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第3週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月15日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第2週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移