> 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)#另外的效果