使用r自带的数据集 titanic,绘制class、sex、age和survived4个变量的条形树状图和
时间: 2023-09-16 19:02:49 浏览: 332
要使用r自带的数据集titanic绘制class、sex、age和survived4个变量的条形树状图,可以按照以下步骤进行操作。
首先,我们需要加载titanic数据集。
```R
data(titanic)
```
接下来,我们可以使用`table`函数将数据集按照不同变量进行分组,并计算各个组的频数。
```R
class_freq <- table(titanic$class)
sex_freq <- table(titanic$sex)
age_freq <- table(titanic$age)
survived_freq <- table(titanic$survived)
```
然后,我们可以使用`barplot`函数将频数数据绘制成条形图。
```R
barplot(class_freq, main = "Passenger Class", xlab = "Class", ylab = "Frequency", col = "lightblue")
```
```R
barplot(sex_freq, main = "Passenger Sex", xlab = "Sex", ylab = "Frequency", col = "lightpink")
```
```R
barplot(age_freq, main = "Passenger Age", xlab = "Age", ylab = "Frequency", col = "lightgreen")
```
```R
barplot(survived_freq, main = "Survived", xlab = "Survived", ylab = "Frequency", col = "lightyellow")
```
最后,我们可以使用`legend`函数添加图例。
```R
legend("topright", legend = names(class_freq), fill = "lightblue", border = NA)
```
```R
legend("topright", legend = names(sex_freq), fill = "lightpink", border = NA)
```
```R
legend("topright", legend = names(age_freq), fill = "lightgreen", border = NA)
```
```R
legend("topright", legend = names(survived_freq), fill = "lightyellow", border = NA)
```
通过以上步骤,我们可以使用r自带的数据集titanic绘制class、sex、age和survived四个变量的条形树状图,并且每个图上都包含了相应的图例。
阅读全文
相关推荐
![zip](https://img-home.csdnimg.cn/images/20241231045053.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)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)