小弟在这边向各位请教两个问题：

1  有下面的数据：     

      是  189

      否  176

      是  196

      是  206

      否  165

      否  170

               …..

这样的两组数据如何做相关

2由程序：

dat<-matrix(c(0.825,0.364,0.252,0.421,1.36,2.28,1.7,2.05,4.12,2.77,1.78,1.01), byrow=T, nrow=3)

colnames(dat) <- c("幼","中","近","成")

rownames(dat) <- c("差","中","好")

barplot(dat, beside=T, col=c("blue","red","green"), legend = rownames(dat), ylim=c(0, 5))

可以做出下图

但是如何做出类似下面的图（就是代表好的数量太大，中间截取一段）：

请大侠告诉一下程序，不胜感激