R y语言课后作业

这篇博客介绍了使用R语言进行数据可视化和统计分析的实例。包括基于Titanic数据集绘制的各种条形图、帕累托图、脊形图、马赛克图和不同类型的饼图。同时,文章探讨了如何利用R进行置信区间的计算,例如大学生平均上网时间的置信区间和银行顾客等待时间的统计分析。此外,还涉及了广告效果检验和商品潜在购买力的假设检验,以及销售量均匀分布和逃课情况与性别独立性的卡方检验。
摘要由CSDN通过智能技术生成

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&#
好的,下面是使用R语言绘制Titanic数据集中ClassSurvived两个变量的和线图和桑葚图的代码和图形。 首先,我们需要安装并加载ggplot2和ggalluvial包: ```R install.packages("ggplot2") install.packages("ggalluvial") library(ggplot2) library(ggalluvial) ``` 然后,我们加载Titanic数据集: ```R data(Titanic) ``` 接着,我们将数据集转换为适合绘制桑葚图的格式: ```R titanic_alluvial <- as.data.frame(Titanic) titanic_alluvial$Class <- rownames(Titanic) titanic_alluvial <- reshape2::melt(titanic_alluvial, id.vars = "Class") titanic_alluvial <- titanic_alluvial[titanic_alluvial$value > 0,] ``` 现在,我们可以绘制和线图: ```R ggplot(data = Titanic, aes(x = Class, y = Freq, fill = factor(Survived))) + geom_bar(stat = "identity", position = "stack") + labs(title = "Titanic: Class and Survived", x = "Class", y = "Frequency") + scale_fill_discrete(name = "Survived", labels = c("No", "Yes")) + theme_minimal() ``` 图形如下所示: ![Titanic: Class and Survived - Stacked Bar Chart](https://i.imgur.com/mZdHpD1.png) 接着,我们可以绘制桑葚图: ```R ggplot(data = titanic_alluvial, aes(y = value, axis1 = Class, axis2 = variable, fill = factor(Survived))) + geom_alluvium(aes(fill = factor(Survived)), width = 0.1) + geom_stratum(width = 1/4, fill = "grey", color = "black") + geom_text(aes(label = ifelse(is.na(value), "", value)), stat = "stratum", size = 3) + scale_fill_discrete(name = "Survived", labels = c("No", "Yes")) + theme_minimal() ``` 图形如下所示: ![Titanic: Class and Survived - Alluvial Diagram](https://i.imgur.com/2mP7K5G.png) 希望这可以帮助您!
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

Mrrunsen

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值