|||
学生的作业
准备文件data.txt
c<-read.table(file("data.txt"))
x<-as.numeric(unlist(strsplit(gsub(" +","",as.character(c[[1]])),",")))#读取数据
n<-10#修改n就可以得到不同组数
zj<-ceiling((max(x)-min(x))/n)
zx<-seq(from=min(x)-zj/2,by=zj,length.out = n+2)
zjz<-seq(from=min(x),by=zj,length.out = n+1)
temp<-as.data.frame(table(cut(x,breaks=zx)))
frequency.table<-data.frame('组限'=temp[,1],'中间值(y)'=zjz,'频数(f)'=temp[,2])
View(frequency.table)
hist(x,breaks=zx,main = "140行水稻产量次数分布直方图",xlab = "y(每行产量,g)",col=red, ylab = "频数f",xlim=c(50,300),ylim=c(0,40))
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-10-19 22:02
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社