2.1 使用R自带的数据集 Titanic,绘制以下图形
(1)绘制Sex和SurQ的并列条形图和堆叠条形图,并为条形图添加频数标签
# 计算并列和堆叠条形图的频数
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)
# 绘制并列条形图
barplot1 <- 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(barplot1, tab, labels = tab, pos = 3) # 设置频数标签
# 绘制堆叠条形图
barplot2 <- barplot(tab, beside = F, xlab = "Survived", ylab =