相关性检验
#"kendall"spearman相关系数中出现错误：无法给连结计算精確p值，是因为rank后的因变量出现重复值
cor.test(a$pic_num,a$ave_reposts_count,method="pearson") #相关性检验
cor(x,y,method=c("pearson","kendall","spearman")) #计算相关系数
相关系数矩阵图，可用于主成分分析
library（corrplot)
M <- cor(data1)
corrplot(M,order = 'hclust')
#散点图矩阵
scatterplotMatrix(data1[,c("user_statuses_count","user_follow_count","user_urank")],diagonal = 'histogram',ellipse=TRUE,cex.main="0.5")#cex.main="0.5"表示把标题字体大小缩小为原来的50%
