T2.某厂对 50 个计件工人某月份工资进行登记,获得以下原始资料(单位:元):
1465,1405,1355,1225,1000,1760,1755,1710,1605,1535,
1985,1965,1910,1845,1810,2270,2240,2190,2040,2010,
2980,2820,2600,2430,2290,1375,1295,1265,1175,1125,
1735,1645,1625,1595,1575,1940,1880,1865,1835,1815,
2220,2110,2095,2030,2030,2670,2550,2520,2370,2320
试按组距为 300 编制频数表,计算频数、频率和累积频率,并绘制直方图。
(1)写出R语言程序;
(2)用R语言进行基本统计分析;
(3)用R语言做正态概率图并分析之。
library(openxlsx)
T2=read.xlsx("E:/多元统计分析及R语言建模/mvexer5.xlsx",sheet ="E2.2")
T2
a=hist(T2$X,breaks = seq(0,3000,by=300),col=1:7)#组距为300绘制直方图
m=seq(0,3000,by=300)
hist(T2$X,m,freq = F,col=1:7)#求频率
hist(T2$X,m,freq = T,col=1:7)#求频数
cumsum(T2$X)#累积频率
#基本统计分析
summary(T2)
q1=table(T2$X);q1
barplot(T2$X)
#画正态概率图
qqnorm(T2$X)
qqline(T2$X)
T3.一份调查关于学生是否抽烟与每天学习时间关系的问题,具体数据见表
试用R语言对其做基本统计分析。
library(openxlsx)
T3=read.xlsx("E:/多元统计分析及R语言建模/mvexer5.xlsx",sheet ="E2.3")
#T3=read.table("clipboard",header = T)
T3
attach(T3)
summary(T3)
str(T3)
x1=table(是否抽烟);x1
barplot(x1,col=1:2)
x2=table(每天学习时间);x2
barplot(table(每天学习时间,是否抽烟),beside=T,col=1:2)
barplot(table(是否抽烟,每天学习时间),beside=T,col=1:6)
detach(T3)