R語(yǔ)言可視化ggplot圖表系統(tǒng)中的輔助線(xiàn)有什么用

這篇文章主要講解了“R語(yǔ)言可視化ggplot圖表系統(tǒng)中的輔助線(xiàn)有什么用”，文中的講解內(nèi)容簡(jiǎn)單清晰，易于學(xué)習(xí)與理解，下面請(qǐng)大家跟著小編的思路慢慢深入，一起來(lái)研究和學(xué)習(xí)“R語(yǔ)言可視化ggplot圖表系統(tǒng)中的輔助線(xiàn)有什么用”吧！

在之前的推送中，曾經(jīng)有過(guò)一篇介紹excel圖表輔助線(xiàn)的制作方法，其中用到的技巧五花八門(mén)、令人眼花繚亂。

而ggplot圖表系統(tǒng)中的輔助線(xiàn)添加起來(lái)卻異常簡(jiǎn)單，非常易于操作。

這主要得益于ggplot函數(shù)系統(tǒng)的圖層控制理念以及該包的開(kāi)發(fā)者很早就意識(shí)到圖表輔助線(xiàn)這一層面的圖表元素需求。

接下來(lái)我以幾個(gè)案例的形式對(duì)圖表輔助線(xiàn)操作進(jìn)行演示：

library(ggplot2)

library(reshape2)

library(ggthemes)

data<-data.frame(Name = c("蘋(píng)果","谷歌","臉書(shū)","亞馬遜","騰訊"),Conpany = c("Apple","Google","Facebook","Amozon","Tencent"),Sale2013 = c(5000,3500,2300,2100,3100),Sale2014 = c(5050,3800,2900,2500,3300),Sale2015 = c(5050,3800,2900,2500,3300),Sale2016 = c(5050,3800,2900,2500,3300))

mydata<-melt(data,id.vars=c("Name","Conpany"),variable.name="Year",value.name="Sale")

ggplot(mydata,aes(reorder(Conpany,-Sale),Sale,fill=Conpany))+geom_bar(stat="identity")

以上柱形圖中，我們?nèi)绻胍私馕鍌€(gè)公司的銷(xiāo)售額均值以及單個(gè)公司銷(xiāo)售額與均值的對(duì)比情況，需要在圖表中添加一條平均線(xiàn)。

ggplot(mydata,aes(reorder(Conpany,-Sale),Sale,fill=Conpany))+geom_bar(stat="identity")+geom_hline(aes(yintercept=mean(Sale)),linetype=5,col="red")

以上通過(guò)geom_hline圖層為柱形圖添加了均值輔助線(xiàn)，但是大家一定好奇為啥均值線(xiàn)那么低，低于所有公司的銷(xiāo)售額，因?yàn)榫凳羌径染担N(xiāo)售額是年度累計(jì)銷(xiāo)售額。

接下來(lái)我們制作一個(gè)分季度的柱形圖。

ggplot(mydata,aes(reorder(Conpany,-Sale),Sale,fill=Year))+geom_bar(stat="identity",position="dodge")+geom_hline(aes(yintercept=mean(Sale)),linetype=5,col="red")

當(dāng)然這種均值線(xiàn)在分面狀態(tài)下也是可以添加的。

ggplot(mydata,aes(reorder(Conpany,-Sale),Sale,fill=Year))+geom_bar(stat="identity",position="dodge")+geom_hline(aes(yintercept=mean(Sale)),linetype=5,col="red")+facet_grid(.~Year)

輔助線(xiàn)在散點(diǎn)圖中也是經(jīng)常使用的一種圖表元素，它可以幫助我們對(duì)分布形態(tài)進(jìn)行分割和歸納，使得數(shù)據(jù)分布形態(tài)及趨勢(shì)更加明顯。

接下來(lái)使用diamond數(shù)據(jù)集來(lái)展示散點(diǎn)圖中的輔助線(xiàn)。

ggplot(diamonds,aes(carat,price))+geom_point()

以上散點(diǎn)圖沒(méi)有很明顯的分散趨勢(shì)，不過(guò)為了演示散點(diǎn)圖中的輔助線(xiàn)，我還是將散點(diǎn)像素畫(huà)處理，給散點(diǎn)圖加上均值十字線(xiàn)。

ggplot(diamonds,aes(carat,price))+geom_point(shape=".")+geom_hline(aes(yintercept=mean(price)),linetype=5,col="red")+geom_vline(aes(xintercept=mean(carat)),linetype=5,col="red")

像素畫(huà)處理之后，再加上均值十字線(xiàn)，你可以清晰地看到，數(shù)據(jù)分布形態(tài)中，左下角最為密集。

輔助線(xiàn)的另外一種常見(jiàn)的用途就是在時(shí)間序列數(shù)據(jù)中。

ggplot(economics,aes(date,unemploy))+geom_line()

這里可以使用輔助線(xiàn)來(lái)標(biāo)注我們最感興趣的時(shí)間點(diǎn)數(shù)據(jù)：

ggplot(economics,aes(date,unemploy))+geom_line()+geom_vline(aes(xintercept=as.numeric(start)),data=presidential)

> head(presidential)

        name      start        end      party

1 Eisenhower 1953-01-20 1961-01-20 Republican

2    Kennedy 1961-01-20 1963-11-22 Democratic

3    Johnson 1963-11-22 1969-01-20 Democratic

4      Nixon 1969-01-20 1974-08-09 Republican

5       Ford 1974-08-09 1977-01-20 Republican

6     Carter 1977-01-20 1981-01-20 Democratic

presidential數(shù)據(jù)集是一個(gè)美國(guó)歷屆總統(tǒng)的任期截止時(shí)間，通過(guò)添加總統(tǒng)任期時(shí)間點(diǎn)，我們甚至可以從經(jīng)濟(jì)波動(dòng)數(shù)據(jù)中觀察到經(jīng)濟(jì)指標(biāo)變波動(dòng)與政治周期的關(guān)系。

start是一個(gè)代表日期的字段，也就是說(shuō)我們可以賦值給geom_vline函數(shù)一個(gè)字段，從而在折線(xiàn)圖中繪制出多個(gè)時(shí)間點(diǎn)的輔助線(xiàn)。

感謝各位的閱讀，以上就是“R語(yǔ)言可視化ggplot圖表系統(tǒng)中的輔助線(xiàn)有什么用”的內(nèi)容了，經(jīng)過(guò)本文的學(xué)習(xí)后，相信大家對(duì)R語(yǔ)言可視化ggplot圖表系統(tǒng)中的輔助線(xiàn)有什么用這一問(wèn)題有了更深刻的體會(huì)，具體使用情況還需要大家實(shí)踐驗(yàn)證。這里是億速云，小編將為大家推送更多相關(guān)知識(shí)點(diǎn)的文章，歡迎關(guān)注！