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

創(chuàng)新互聯(lián)建站專注于成都網(wǎng)站制作、成都網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站制作、網(wǎng)站開(kāi)發(fā)。公司秉持“客戶至上,用心服務(wù)”的宗旨,從客戶的利益和觀點(diǎn)出發(fā),讓客戶在網(wǎng)絡(luò)營(yíng)銷中找到自己的駐足之地。尊重和關(guān)懷每一位客戶，用嚴(yán)謹(jǐn)?shù)膽B(tài)度對(duì)待客戶，用專業(yè)的服務(wù)創(chuàng)造價(jià)值，成為客戶值得信賴的朋友，為客戶解除后顧之憂。

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

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

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

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

library(ggplot2)

library(reshape2)

library(ggthemes)

data<-data.frame(Name = c("蘋果","谷歌","臉書(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è)公司的銷售額均值以及單個(gè)公司銷售額與均值的對(duì)比情況，需要在圖表中添加一條平均線。

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圖層為柱形圖添加了均值輔助線，但是大家一定好奇為啥均值線那么低，低于所有公司的銷售額，因?yàn)榫凳羌径染?，而銷售額是年度累計(jì)銷售額。

接下來(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)然這種均值線在分面狀態(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)

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

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

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

以上散點(diǎn)圖沒(méi)有很明顯的分散趨勢(shì)，不過(guò)為了演示散點(diǎn)圖中的輔助線，我還是將散點(diǎn)像素畫處理，給散點(diǎ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")

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

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

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

這里可以使用輔助線來(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è)字段，從而在折線圖中繪制出多個(gè)時(shí)間點(diǎn)的輔助線。

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