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])
第二章 多元统计图与特征
于 2023-02-13 13:42:06 首次发布