r语言titanic列联表
时间: 2023-10-01 21:11:17 浏览: 69
Titanic数据集中的列联表是根据乘客的性别、年龄、乘客等级和是否生存这四个变量进行的。通过运行以下代码可以提取Sex和Survived的列联表,并绘制并列条形图和堆叠条形图:
```R
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 = TRUE, xlab = "Survived", ylab = "人数", ylim = c(0, 1500), col = rainbow(7),
main = "图1.1 并列条形图", legend.text = c("male", "female"), args.legend = list(x = 6, y = 1400))
text(b1, tab, labels = tab, pos = 3) # 设置频数标签
# 绘制堆叠条形图
b2 <- barplot(tab, beside = FALSE, xlab = "Survived", ylab = "人数", ylim = c(0, 1500), col = rainbow(7),
main = "图1.2 堆叠条形图", legend.text = c("male", "female"), args.legend = list(x = 3, y = 1400))
text(b2, tab, labels = tab, pos = 3) # 设置频数标签
```
以上代码运行结果会得到两个图像,一个是并列条形图,一个是堆叠条形图,用来展示乘客的性别和是否生存之间的关系。
相关推荐
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)