> plot(x1,x2, + main=‘两门课成绩关系‘, #图标题 + xlab=‘数学‘,#x轴标签 + ylab=‘语文‘,#y轴标签 + xlim=c(0,100),#x轴范围 + ylim=c(0,100),#y轴范围 + xaxs=‘i‘,#x轴类型 + yaxs=‘r‘, + col=‘red‘,#颜色 + pch=19)#点的大小
> qqnorm(x1) #测试x1是否是正态分布。会出现一个散点图 > qqline(x1)#上面画出的散点图不能关闭。画出一条直线，点越靠近这条线，越接近正态分布。
> num=seq(1,100) #创建学号 > x1=round(runif(100,80,100))#创建成绩，均匀分布，100个数，最小80，最大100. > x2=round(rnorm(100,80,7))#创建成绩，正态分布，100个数，平均数80，标准差为7 > #创建成绩，正态分布，100个数，平均数为83，标准差为18 > x3[which(x3>100)]=100#把x3中大于100的数字变为100 > x=data.frame(num,x1,x2,x3) >write.table(x,file=‘C:\\Users\\qjtsj\\Desktop\\R working file\\mark.txt‘)#写入文件，需要事先创建 > colMeans(x)#对列求平均值
> hist(x$x1) #频率分布图 > plot(x$x1,x$x2)#散点图 > table(x$x1)#列联函数，单变量的频次 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 5 7 4 6 9 3 3 3 2 4 3 6 6 5 5 3 3 7 6 99 100 7 3 > barplot(table(x$x1))#柱状图 > pie(table(x$x1))#饼图 > boxplot(x$x1,x$x2,x$x3)#箱体图 > stars(x[c(‘x1‘,‘x2‘,‘x3‘)])#星象图 注意, stars的对象‘x‘要么是矩阵，要么是数据框。x$x1,x$x2,x$x3并不行。 > stars(x[c(‘x1‘,‘x2‘,‘x3‘)],full=T,draw.segment=T)#另外的效果
时间： 2024-10-12 07:55:02