这一段能解释一下吗？最好配合你参考的文章或者公式。谢谢！

差距怎么这么大，这个图是用了楼主给的数据，用前十个行业画的。
不过这种方法，说实在话，没有什么意义，应该是研究部门为了交差的 应付之作。

data = fread("E:/data/data.csv")
dat = data[-c(1,2),2:11,with=FALSE]

setDT(dat)[, names(dat) := lapply(.SD, function(x) diff(log(as.numeric(x))))]
setDT(dat)[, names(dat) := lapply(.SD, function(x) as.numeric(x))]

cp = sapply(1:nrow(dat),function(i) {dat = dat[1:i,]
                                      dat = cor(dat)
                                      dat = dat[upper.tri(dat)]
                                      return(mean(dat)/sd(dat))
                                      })
dat1 = data.frame(x = 1:nrow(dat),y = cp)
plot(dat1,type = 'l')

谢谢，辛苦啦。

你好，我发现你发给我的那个数据不是真的数据，无法用正常的R来看，我没有wind。所以能否麻烦你帮我下载一下里面你的这个wind一级行业指数以及二级行业指数的raw data？谢谢

貌似wind公司免费开发api接口了,可以弄个玩玩~
http://dajiangzhang.com/tool/download.action