统计学——基于R（第3版）（基于R应用的统计学丛书）作者：贾俊平 习题答案 第二章

2.1

data<-read.csv("D:/2020文件夹/《统计学素材—基于R》（第3版）—例题和习题数据（公开资源）/exercise/ch2/第2章  习题CSV格式数据/exercise2_1.csv")
data
summary(data)

d1<-table(data$行业)
d1
d2<-table(data$性别)
d2
d3<-table(data$满意度)
d3

data1<-table(data$行业,data$满意度)
data1
addmargins(data1)
addmargins(prop.table(data1))*100

data2<-ftable(data)
data2
data2_1<-ftable(data,row.vars=c("行业","满意度"),col.vars="性别")
data2_1

par(mfrow=c(1,3),mai=c(0.7,0.7,0.6,0.1),cex=0.7,cex.main=0.8)
barplot(d1,xlab="行业",ylab="频数",main="(a)垂直条形图")
barplot(d2,xlab="性别",ylab="频数",main="(a)垂直条形图")
barplot(d3,xlab="满意度",ylab="频数",main="(a)垂直条形图")

par(mai=c(0.7,0.7