什么样的人能逃离泰坦尼克号？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

Details (English): Social Class and Survival on the Titanic

1912年4月15日，英国皇家邮轮泰坦尼克号（RMS Titanic）在北大西洋撞上冰山沉没，1500多名乘客遇难，成为和平时期死亡人数最多的海难之一。这个沉船故事不断地为作家、电影制作人和歌曲作者提供创作灵感。1997年末，大导演詹姆斯·卡梅隆耗资2.5亿美元打造的《泰坦尼克号》在全球各地掀起观影狂潮，影片运用最先进的数字技术在银幕上逼真还原了泰坦尼克号沉没的全过程，搭配上男女主人公杰克与露丝生死不渝的伟大爱情，令无数观众如痴如醉，狂揽18亿美元的全球票房，成为影史至尊。2012年4月，在泰坦尼克号沉船事件百年之际，全新打造的3D《泰坦尼克号》将在全球各地重映。

当时搭乘泰坦尼克号的乘客都留下了详细的资料，本文试图利用这个资料来建立各种图表，以回答这样一个问题：在当时什么样的人存活率最高？涉及的数据集中包括了四个变量：是否获救Survived，所在舱Class，年龄Age，性别Sex。我们首先从网络上读取数据文件，进行简单的统计描述。

1. # Get Data
   
2. url <- "http://stats.math.uni-augsburg.de/Mondrian/Data/Titanic.txt"
   
3. data <- read.csv(url,T,sep="\t")
   
4. 
   
5. library(ggplot2)
   
6. p <- ggplot(data,aes(x=Class,fill=Survived))
   
7. p + geom_bar(position="stack")+ coord_flip() + facet_wrap(~Sex)
   
8. 
   
9. library(vcd)
   
10. plot(1)
    
11. mosaic(Survived~ Class+Sex, data = data,shade=T, highlighting_direction = "right")
    
12. # Survival
    
13. fx <- function(x) length(x[x=="Yes"])
    
14. table1 <- data.frame(with(data,aggregate(x=Survived,by=list(Class,Sex,Age),FUN=length)))
    
15. table2 <- data.frame(with(data,aggregate(x=Survived,by=list(Class,Sex,Age),FUN=fx)))
    
16. table1$y <- table2$x
    
17. table1$survived <- round(table1$y /table1$x,digits=2)
    
18. table1[order(table1$survived,decreasing=T),]
    
19. # Decision Tree Model
    
20. library(rpart)
    
21. formula <- Survived~ Class+Sex+Age
    
22. fit <- rpart(formula,data)
    
23. library(maptree)
    
24. draw.tree(fit)

复制代码

来源：什么样的人能逃离泰坦尼克号？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：泰坦尼克号 泰坦尼克 Survival Titanic Survive 泰坦尼克

记得当时上课学R的时候这就是一个作业题，呵呵。

看看学习下，哈哈

厉害，大侠可以帮我借个方程吗/ 已经向您发出邀请，请您帮忙