event record
心理学の観察法でよく用いられるグラフです。
| x1<-c(1,2,3,4,4,5,5,6,7,7,8,9,10,10,11,12,13,14) y1<-c(1,1,1,1,2,2,1,1,1,2,2,2,2,1,1,1,1,1) x2<-c(1,2,3,4,5,5,6,6,7,8,9,10,10,11,12,13,13,14) y2<-c(3,3,3,3,3,4,4,3,3,3,3,3,4,4,4,4,3,3) x3<-c(1,2,3,4,4,5,5,6,7,7,8,8,9,10,11,12,13,14) y3<-c(5,5,5,5,6,6,5,5,5,6,6,5,5,5,5,5,5,5) yaxt="n", bty="n") lines(x2,y2) lines(x3,y3) text(rep(17, 6), 1:6, rep(c("0(反応なし)", "1(反応あり)"), 3)) text(rep(-1.7, 3), c(5.5, 3.5, 1.5), c("1. 1人遊び :", "2. 共同遊び :", "3. 平行遊び :")) |
