par(mfrow=c(2,2)) hist(subset(myakari3d0,V1< 72 & V2< -72 & V2> -184)[,3]) # 左 hist(subset(myakari3d0,V1> 184 & V2< -72 & V2> -184)[,3]) # 右 hist(subset(myakari3d0,V2> -72 & V1> 72 & V1< 184)[,3]) # 上 hist(subset(myakari3d0,V2< -184 & V1> 72 & V1< 184)[,3]) # 下 |
clPairs(rbind(subset(myakari3d0,V1< 72 & V2< -72 & V2> -184), subset(myakari3d0,V1> 184 & V2< -72 & V2> -184), subset(myakari3d0,V2> -72 & V1> 72 & V1< 184), subset(myakari3d0,V2< -184 & V1> 72 & V1< 184))) |