作者：丁點(diǎn)helper 

來源：丁點(diǎn)幫你

上篇文章利用泰坦尼克號(hào)沉船事件中乘客的存活情況介紹了描述性數(shù)據(jù)分析，計(jì)算了不同艙位乘客的幸存率，今天我們來看看如何用圖像來直觀表達(dá)。

我們先來簡(jiǎn)單復(fù)習(xí)一下titanic.csv的內(nèi)容。

# 導(dǎo)入數(shù)據(jù)
titanic <- read.csv("http://Users//Desktop//titanic.csv"，header = TRUE) 
names(titanic) # 查看titanic中的變量名
head(titanic)  # 查看titanic前6行

上篇文章計(jì)算的不同艙位乘客的死亡與幸存人數(shù)如下：

table(titanic$survived,titanic$pclass)
                1st 2nd 3rd  
died         123 158 528  
survived   200 119 181

不同艙位生存率：

survpct=paste(round(tab1[2, ]/apply(tab1,2,sum)*100,2),"%",sep="")
survpct
[1] "61.92%" "42.96%" "25.53%"

如果我們想直觀地描述不同艙位乘客的幸存率，可以用下面的做法：

繪制柱狀圖

barplot(table(titanic$survived,titanic$pclass))

barplot()是繪制柱狀圖的函數(shù)，該函數(shù)括號(hào)中的命令為繪圖所需的數(shù)據(jù)，就是前面我們計(jì)算過的不同艙位死亡及幸存者人數(shù)。

柱狀圖的顏色也可調(diào)整，下面的代碼中，col是更改柱狀圖顏色的命令：

barplot(table(titanic$survived,titanic$pclass), 
        col=c("yellow","dark blue"))

每個(gè)艙位死亡與幸存人數(shù)柱子的排列方式也可調(diào)整，beside為改變柱狀圖排列方式的命令；beside=T意為兩個(gè)柱子并排，beside=F意為兩個(gè)柱子上下疊放。

barplot(table(titanic$survived,titanic$pclass),
        col=c("yellow","dark blue"), beside=T)

至此，我們已經(jīng)可以將數(shù)字轉(zhuǎn)變?yōu)橹庇^的圖像了，但是黃色和藍(lán)色的柱子分別代表幸存者還是死亡者呢？此外，圖像的標(biāo)題等重要信息也未標(biāo)示出來，圖像的可讀性還需要通過下面的步驟來提升：

設(shè)置圖例、標(biāo)題、坐標(biāo)軸標(biāo)簽等

做法比較簡(jiǎn)單，在上面代碼的基礎(chǔ)上，增加一些命令即可：

barplot(table(titanic$survived,titanic$pclass), 
        col=c("yellow","dark blue"),
        beside=T, legend=T, args.legend=list(x="topleft"),
        main="Survival (Pct) by Passenger Class", 
        xlab="Class",ylab="Count",
        ylim=c(0,600))

legend為設(shè)置圖例的命令；args.legend為設(shè)置圖例位置的命令；

main為設(shè)置圖標(biāo)題的命令；

xlab、ylab分別為設(shè)置x軸和y軸名稱的命令；

ylim為設(shè)置y軸范圍的命令。

從這個(gè)圖像可以清晰地看出，一等艙的幸存者人數(shù)為三個(gè)艙位中最多的，而三等艙的死亡者人數(shù)遠(yuǎn)高于其他兩個(gè)艙位。但是這個(gè)圖像還缺少一個(gè)信息，就是各艙位的存活率，我們可以在每個(gè)艙位的柱子上面標(biāo)記一下：

text(c(2,5,8),c(250,250,570),survpct, cex=1.2)

text()為給圖片中增加文字的函數(shù)。

其中前兩個(gè)命令為文字的位置信息，第一個(gè)命令為文字設(shè)置x軸方向的位置信息，c(2,5,8)表示將文字分別放置在x取值為2，5，8處。

第二個(gè)命令為文字增加y軸方向的位置信息，c(250,250,570)表示將其分別放置在y取值為250，250，570處。

第三個(gè)命令為文字的具體內(nèi)容，survpct是之前程序的運(yùn)行結(jié)果，為一、二、三等艙乘客的幸存率。

第四個(gè)命令cex為文字字號(hào)，默認(rèn)值為1，此處設(shè)置為1.2，意為比默認(rèn)字號(hào)大20%。

以上代碼默認(rèn)標(biāo)題、x軸、y軸的文字均為英文，但有時(shí)我們也需要將其設(shè)置為中文，此時(shí)只需在上面這段代碼中增加一個(gè)『字體 (family)』命令：將圖片中的文字設(shè)置成中文。

barplot(table(titanic$survived,titanic$pclass), col=c("red","blue"),
        beside=T, legend=T, args.legend=list(x="topleft"), 
        main="不同艙位乘客幸存數(shù)（率）", xlab="艙位",ylab="人數(shù)",family = "SimHei",
        ylim=c(0,600))

family命令需要賦值字體的英文名稱，本文將字體設(shè)置為"SimHei"，即黑體。

此處還可設(shè)置其他字體，以下鏈接中總結(jié)了常見中文字體的英文名，大家可根據(jù)自己的需要選擇。

部分字體中英文名稱，資料來源于下面的鏈接

http://guangzheng.name/2017/12/18/%E5%A6%82%E4%BD%95%E8%B0%83%E6%95%B4R%E8%AF%AD%E8%A8%80%E7%BB%98%E5%9B%BE%E7%9A%84%E5%AD%97%E4%BD%93/

想從事業(yè)務(wù)型數(shù)據(jù)分析師，您可以點(diǎn)擊>>>“數(shù)據(jù)分析師”了解課程詳情；

想從事大數(shù)據(jù)分析師，您可以點(diǎn)擊>>>“大數(shù)據(jù)就業(yè)”了解課程詳情；

想成為人工智能工程師，您可以點(diǎn)擊>>>“人工智能就業(yè)”了解課程詳情；

想了解Python數(shù)據(jù)分析，您可以點(diǎn)擊>>>“Python數(shù)據(jù)分析師”了解課程詳情；

想了解更多優(yōu)質(zhì)課程，請(qǐng)點(diǎn)擊>>>