【R語言】--- 山脊圖

基本簡介

山脊圖(Ridgeline plot,以前稱為 Joyplot)是比較新的一種圖形,其主要可以用來表示幾組數(shù)據(jù)變量分布的情況糯俗。簡單的講,就是用來進行多組數(shù)據(jù)間相互比較的一種圖形睦擂。在這個例子中得湘,我們根據(jù)不同的鉆石質量來比較其價格的分布情況。山脊圖是使用ggridges包繪制的顿仇,此包是ggplot2包的擴展淘正,因此符合ggplot2的語法。在我們的這個例子中臼闻, x軸指定為鉆石的價格鸿吆,y軸指定為鉆石的品質。

基本用法

geom_density_ridges {ggridges}  R Documentation
Create ridgeline plot
Description
geom_density_ridges arranges multiple density plots in a staggered fashion, as in the cover of the famous Joy Division album Unknown Pleasures.
Usage
geom_density_ridges(
  mapping = NULL,
  data = NULL,
  stat = "density_ridges",
  position = "points_sina",
  panel_scaling = TRUE,
  na.rm = FALSE,
  show.legend = NA,
  inherit.aes = TRUE,
  ...
)
geom_density_ridges2(
  mapping = NULL,
  data = NULL,
  stat = "density_ridges",
  position = "points_sina",
  panel_scaling = TRUE,
  na.rm = FALSE,
  show.legend = NA,
  inherit.aes = TRUE,
  ...
)

示例代碼

#清除環(huán)境
rm(list=ls())
#安裝需要用到的包
#install.packages("ggplot2")如果沒有安裝這里需要安裝
#install.packages("ggridges")如果沒有安裝這里需要安裝
#加載相關的包
library(ggplot2)
library(ggridges)
library(viridis)
library(hrbrthemes)
#查看數(shù)據(jù)格式
head(diamonds)#自帶的數(shù)據(jù)集
#基本繪圖
##第一種方式
ggplot(diamonds, aes(x = price, y = cut, fill = cut)) +
  geom_density_ridges() +
  theme_ridges() + 
  theme(legend.position = "none")

##第二種方式
ggplot(diamonds, aes(x = price, y = cut, fill = cut)) +
  geom_density_ridges(stat="binline", bins=20) +
  theme_ridges() + 
  theme(legend.position = "none")

對基本的山脊圖進行調整修改述呐。

##調整修改
ggplot(diamonds, aes(x = price, y = cut, fill = cut)) +
  geom_density_ridges(scale = 0.5) +
  theme_ridges() + 
  theme_bw()+
  xlab("Price")+ylab("Quality")+
  theme(legend.text=element_text(size=12))+
  theme(title=element_text(size=14))+
  theme(axis.text.x = element_text(size = 12, color = "black"))+
  theme(axis.text.y = element_text(size = 12, color = "black"))+
  theme(legend.position = "none")+
  geom_vline(aes(xintercept=1000), colour="#990000", linetype="dashed")

參考文獻

[1] https://r-graph-gallery.com/294-basic-ridgeline-plot.html
[2] http://www.reibang.com/p/092b373ef5bb

?著作權歸作者所有,轉載或內容合作請聯(lián)系作者
  • 序言:七十年代末惩淳,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子乓搬,更是在濱河造成了極大的恐慌思犁,老刑警劉巖代虾,帶你破解...
    沈念sama閱讀 218,682評論 6 507
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場離奇詭異激蹲,居然都是意外死亡棉磨,警方通過查閱死者的電腦和手機,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,277評論 3 395
  • 文/潘曉璐 我一進店門学辱,熙熙樓的掌柜王于貴愁眉苦臉地迎上來乘瓤,“玉大人,你說我怎么就攤上這事项郊∠诳郏” “怎么了斟赚?”我有些...
    開封第一講書人閱讀 165,083評論 0 355
  • 文/不壞的土叔 我叫張陵着降,是天一觀的道長。 經(jīng)常有香客問我拗军,道長任洞,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 58,763評論 1 295
  • 正文 為了忘掉前任发侵,我火速辦了婚禮交掏,結果婚禮上,老公的妹妹穿的比我還像新娘刃鳄。我一直安慰自己盅弛,他們只是感情好,可當我...
    茶點故事閱讀 67,785評論 6 392
  • 文/花漫 我一把揭開白布叔锐。 她就那樣靜靜地躺著挪鹏,像睡著了一般。 火紅的嫁衣襯著肌膚如雪愉烙。 梳的紋絲不亂的頭發(fā)上讨盒,一...
    開封第一講書人閱讀 51,624評論 1 305
  • 那天,我揣著相機與錄音步责,去河邊找鬼返顺。 笑死,一個胖子當著我的面吹牛蔓肯,可吹牛的內容都是我干的遂鹊。 我是一名探鬼主播,決...
    沈念sama閱讀 40,358評論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼蔗包,長吁一口氣:“原來是場噩夢啊……” “哼秉扑!你這毒婦竟也來了?” 一聲冷哼從身側響起气忠,我...
    開封第一講書人閱讀 39,261評論 0 276
  • 序言:老撾萬榮一對情侶失蹤邻储,失蹤者是張志新(化名)和其女友劉穎赋咽,沒想到半個月后,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體吨娜,經(jīng)...
    沈念sama閱讀 45,722評論 1 315
  • 正文 獨居荒郊野嶺守林人離奇死亡脓匿,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內容為張勛視角 年9月15日...
    茶點故事閱讀 37,900評論 3 336
  • 正文 我和宋清朗相戀三年,在試婚紗的時候發(fā)現(xiàn)自己被綠了宦赠。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片陪毡。...
    茶點故事閱讀 40,030評論 1 350
  • 序言:一個原本活蹦亂跳的男人離奇死亡,死狀恐怖勾扭,靈堂內的尸體忽然破棺而出毡琉,到底是詐尸還是另有隱情,我是刑警寧澤妙色,帶...
    沈念sama閱讀 35,737評論 5 346
  • 正文 年R本政府宣布桅滋,位于F島的核電站,受9級特大地震影響身辨,放射性物質發(fā)生泄漏丐谋。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點故事閱讀 41,360評論 3 330
  • 文/蒙蒙 一煌珊、第九天 我趴在偏房一處隱蔽的房頂上張望号俐。 院中可真熱鬧,春花似錦定庵、人聲如沸吏饿。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,941評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽猪落。三九已至,卻和暖如春敛滋,著一層夾襖步出監(jiān)牢的瞬間许布,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 33,057評論 1 270
  • 我被黑心中介騙來泰國打工绎晃, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留蜜唾,地道東北人。 一個月前我還...
    沈念sama閱讀 48,237評論 3 371
  • 正文 我出身青樓庶艾,卻偏偏與公主長得像袁余,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子咱揍,可洞房花燭夜當晚...
    茶點故事閱讀 44,976評論 2 355

推薦閱讀更多精彩內容