breaks <- seq(-6000, 6000, length.out = 6) ## 生成统计节点
zuizhongjieguo.break = cut(zuizhongjieguo, breaks) ##按照统计节点归类数据
zuizhongjieguo.break
class(zuizhongjieguo.break)
length(zuizhongjieguo.break)
freq <- table(zuizhongjieguo.break)
fenbu <- freq / length(zuizhongjieguo)
fenbu
barplot(fenbu)