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)