R語言可視化ggplot圖表系統中的輔助線有什么用

這篇文章主要講解了“R語言可視化ggplot圖表系統中的輔助線有什么用”，文中的講解內容簡單清晰，易于學習與理解，下面請大家跟著小編的思路慢慢深入，一起來研究和學習“R語言可視化ggplot圖表系統中的輔助線有什么用”吧！

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

而ggplot圖表系統中的輔助線添加起來卻異常簡單，非常易于操作。

這主要得益于ggplot函數系統的圖層控制理念以及該包的開發者很早就意識到圖表輔助線這一層面的圖表元素需求。

接下來我以幾個案例的形式對圖表輔助線操作進行演示：

library(ggplot2)

library(reshape2)

library(ggthemes)

data<-data.frame(Name = c("蘋果","谷歌","臉書","亞馬遜","騰訊"),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")

以上柱形圖中，我們如果想要了解五個公司的銷售額均值以及單個公司銷售額與均值的對比情況，需要在圖表中添加一條平均線。

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

以上通過geom_hline圖層為柱形圖添加了均值輔助線，但是大家一定好奇為啥均值線那么低，低于所有公司的銷售額，因為均值是季度均值，而銷售額是年度累計銷售額。

接下來我們制作一個分季度的柱形圖。

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")

當然這種均值線在分面狀態下也是可以添加的。

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)

輔助線在散點圖中也是經常使用的一種圖表元素，它可以幫助我們對分布形態進行分割和歸納，使得數據分布形態及趨勢更加明顯。

接下來使用diamond數據集來展示散點圖中的輔助線。

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

以上散點圖沒有很明顯的分散趨勢，不過為了演示散點圖中的輔助線，我還是將散點像素畫處理，給散點圖加上均值十字線。

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")

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

輔助線的另外一種常見的用途就是在時間序列數據中。

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

這里可以使用輔助線來標注我們最感興趣的時間點數據：

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數據集是一個美國歷屆總統的任期截止時間，通過添加總統任期時間點，我們甚至可以從經濟波動數據中觀察到經濟指標變波動與政治周期的關系。

start是一個代表日期的字段，也就是說我們可以賦值給geom_vline函數一個字段，從而在折線圖中繪制出多個時間點的輔助線。

感謝各位的閱讀，以上就是“R語言可視化ggplot圖表系統中的輔助線有什么用”的內容了，經過本文的學習后，相信大家對R語言可視化ggplot圖表系統中的輔助線有什么用這一問題有了更深刻的體會，具體使用情況還需要大家實踐驗證。這里是億速云，小編將為大家推送更多相關知識點的文章，歡迎關注！