R语言实验课堂记录二

最新推荐文章于 2023-01-27 16:26:07 发布

kmjyccc

最新推荐文章于 2023-01-27 16:26:07 发布

阅读量220

点赞数

分类专栏： R语言初级学习文章标签： r语言

本文链接：https://blog.csdn.net/m0_57988018/article/details/120738084

版权

R语言初级学习专栏收录该内容

2 篇文章 0 订阅

订阅专栏

这篇博客探讨了数学与语文成绩之间的相关性，通过R语言进行描述性统计和可视化处理。首先生成了一组包含学生ID、性别、数学成绩和语文成绩的数据，然后使用while循环确保成绩不超过100分。接着，绘制了性别比例的扇形图，并展示了语文和数学成绩的平均分和标准差。最后，进行了性别对数学成绩差异的t检验，揭示可能存在的性别差异。

摘要由CSDN通过智能技术生成

前面与上节课相同，研究数学成绩与语文成绩的相关性，主要是做相关性分析，通过描述性统计，如利用初级绘图的基本语句来进行可视化的相关处理。

#输入数据
id<-seq(1,100,1)
sex <- sample(c(0,1),100,replace=TRUE)
mathematics<-rnorm(100,70,20)
chinese<- rnorm(100,65,10)

#while循环
i=1
while(i<101){
  if(mathematics[i]>100){mathematics[i]=100}
  if(chinese[i]>100){chinese[i]=100}
  i=i+1
}

#输出数据框
Student<-data.frame(id,sex,mathematics,chinese)
Student

#输入数据
id<-seq(1,100,1)
sex <- sample(c(0,1),100,replace=TRUE)
mathematics<-rnorm(100,70,20)
chinese<- rnorm(100,65,10)

#while循环
i=1
while(i<101){
  if(mathematics[i]>100){mathematics[i]=100}
  if(chinese[i]>100){chinese[i]=100}
  i=i+1
}

#输出数据框
Student<-data.frame(id,sex,mathematics,chinese)
Student


#性别扇形图
sex1 <- ifelse(sex==1,"女","男")
isex <- table(sex1)
pie(isex)

#计算语文、数学成绩的平均分和标准差
y <- c(mean(chinese),sd(chinese),mean(mathematics),sd(mathematics))
name <- c("语文平均分","语文标准差","数学平均分","数学标准差")
barplot(y,names.arg=name,beside=T,main="学生成绩均值和标准差",col=c("blue","grey50"))

#男女同学数学成绩差异
t.test(mathematics~sex,data=Student)