R 语言画成绩饼图

最新推荐文章于 2024-07-04 07:24:03 发布

Sandyzz

最新推荐文章于 2024-07-04 07:24:03 发布

阅读量1.1k

点赞数

分类专栏： R 文章标签： r语言

本文链接：https://blog.csdn.net/Sandyzz/article/details/115619001

版权

R 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

本文展示了如何使用R语言生成随机成绩数据，并通过pie函数细致划分，为语文、数学和化学成绩创建直观的饼状图，帮助理解各科表现分布。通过实例解析，学习者可以掌握如何根据不同分数区间划分及格、良好和优秀等级。

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

使用R语言画成绩饼图

随机生成成绩数据


```r
stu=seq(from=210222001,length.out=100)#生成学号
chinese=round(runif(100,min=50,max=100))#生成语文成绩，50到100的随机数
math=round(rnorm(100,mean=80,sd=7))#生成数学成绩，平均值为80，方差为7
chemical=round(rnorm(100,mean=70,sd=18))#生成化学成绩，平均值为70，方差为18
chemical[which(chemical>100)]=100
x=data.frame(stu,chinese,math,chemical)

### 用pie()函数画饼图

```r
win.graph(width=9, height=10,pointsize=12) #单独显示图像
par(mfrow=c(2,2))#将画布分为2行2列
#将成绩分为三个阶段，60以下，60-80，80以上
c1=chinese[which(chinese>0&chinese<=60)];c2=chinese[which(chinese>60&chinese<=80)];c3=chinese[which(chinese>80)]
m1=math[which(math>0&math<=60)];m2=math[which(math>60&math<=80)];m3=math[which(math>80)]
ch1=chemical[which(chemical>0&chemical<=60)];ch2=chemical[which(chemical>60&chemical<=80)];ch3=chemical[which(chemical>80)]
#用pie()函数开始画饼图，60分以下记为不及格；60-80分为良好；80以上为优秀
pie(c(length(c1),length(c2),length(c3)),main="语文成绩饼图",labels = c("不及格","良好","优秀"))
pie(c(length(m1),length(m2),length(m3)),main="数学成绩饼图",labels = c("不及格","良好","优秀"))
pie(c(length(ch1),length(ch2),length(ch3)),main="化学成绩饼图",labels = c("不及格","良好","优秀"))