第二章 多元统计图与特征

load("D:/文件/2022下（大三上）/classR/学生成绩.RData")

score<-score[,-1]
head(score)
colnames(score)=c("Math1","Math2","Algebra","Prob","Stats")
head(score)

attach(score)

#-----第二章 多元统计图与特征

# 绘制散点图
plot(Math1,Math2)

plot(Math1,Math2,type="n")
text(Math1,Math2)

plot(score)

plot(Math1~Math2+Algebra)

#绘制气泡图
attach(score)
r=sqrt(Stats/pi)
symbols(Math1,Math2,circle=r,inches=0.2)
text(Math1,Math2,labels=rownames(score),cex=0.7)
detach(score)

#绘制箱线图
boxplot(score)
boxplot(score,notch=T)  

# 绘制雷达图
stars(score[1:16,],len=1,key.loc=c(12,6))
stars(score[1:16,]/100,scale=F,len=1,key.loc=c(12,6))     # ?????
stars(score[1:16,],draw.segments = T,len=1,key.loc=c(12,6))

# 样本均值、样本协方差阵、样本相关系数阵
colMeans(score)
apply(score,2,mean)

cov(score)

cor(score)

cor.test(score[,1],score[,2]) #相关系数显著性检验

install.packages("ppcor")   # 偏相关系数
library(ppcor)
pcor(score[,1:3])

pcor.test(score[,1],score[,2],score[,3:4])

# 正态分布与正态性检验   正态性的识别1,2
qqnorm(score[,5])
qqline(score[,5])

shapiro.test(score[,5])