Rでバーコード状のグラフを書く（ラグプロット）

データ，
data<-c(0,1,1,1,0,1,0)
1の部分だけ黒い縦線を引く．
バーコード状のプロット．
1がクラスタしているか確かめられる．
rug関数を用いる．

#data<-rbinom(size=1,prob=0.5,1000)
plot(data,col=0)
rug(which(data==1),ticksize=1)