2.1 使用R自带的数据集 Titanic,绘制以下图形
(1)绘制Sex和 Survived的并列条形图和堆叠条形图,并为条形图添加频数标
tab=margin.table(Titanic,margin = c("Sex","Survived"))
par(mfrow=c(1,2),mai=c(0.7,0.7,0.8,0.7),cex=0.6)#设置一页两图
#绘制并列条形图
b1=barplot(tab,beside=T,xlab = "Survived",ylab="人数",ylim=c(0,1500),col=rainbow(7),
main ="并列条形图",legend.text=c("male","female"),
args.legend=list(x = 6,y=1400))
text(b1,tab,labels = tab,pos = 3)#设置频数标签
#绘制堆叠条形图
b2=barplot(tab,beside=F,xlab = "Survived",ylab="人数",ylim=c(0,1500),col=rainbow(7),
main = "堆叠条形图",legend.text=c("male&#