changed 4 years ago  
Published Linked with GitHub

ggplot2邊緣圖_ggExtra

LHB阿好伯, 2021/04/26

Image Not Showing Possible Reasons
  • The image file may be corrupted
  • The server hosting the image is unavailable
  • The image path is incorrect
  • The image format is not supported
Learn More →

tags: R ggplot2 可視化

今天來介紹ggplot2的邊緣圖的相關套件ggExtra
使用鳶尾花iris數據集來做範例
其數據集包含了150個樣本，都屬於鳶尾屬下的三個亞屬，分別是山鳶尾(setosa)、變色鳶尾(versicolor)和維吉尼亞鳶尾(virginica)分別包含了花萼和花瓣的長度和寬度資料

Sepal.Length Sepal.Width Petal.Length Petal.Width Species
5.1 3.5 1.4 0.2 setosa
4.9 3.0 1.4 0.2 setosa
4.7 3.2 1.3 0.2 setosa
4.6 3.1 1.5 0.2 setosa
5.0 3.6 1.4 0.2 setosa
5.4 3.9 1.7 0.4 setosa
4.6 3.4 1.4 0.3 setosa

載入所需套件





#install.packages("ggExtra")  #第一次使用需安裝
#install.packages("ggplot2")
library(ggplot2) 
library(ggExtra)

基本圖形

首先先繪製最基本的散佈圖





p1 <- ggplot(data = iris, 
             mapping = aes(x = Sepal.Length, y = Sepal.Width, colour = Species)) +  #設定資料集與映射資料
  geom_point()  
p1

使用ggExtra的ggMarginal函數繪製邊緣圖

ggMarginal(p1)

預設是繪製密度圖

可以以添加變數 type = "histogram" or type = "boxplot" or type = "violin"更改為直方圖、箱型圖或小提琴圖



p3 <- ggMarginal(p1, type = "histogram")
p3




p4 <- ggMarginal(p1, type = "boxplot")
p4




p5 <- ggMarginal(p1, type = "violin")
p5

或是type = "densigram"
可以繪製直方圖與密度圖的結合



p6 <- ggMarginal(p1, type = "densigram")
p6

邊緣圖美化

顏色修改

添加groupColour = TRUE, groupFill = TRUE變數可以使的邊緣圖與散佈圖有一樣的顏色



p7 <- ggMarginal(p1,type = "boxplot",groupColour = TRUE, groupFill = TRUE)
p7

額外參數

添加xparams = list(bins=10), yparams = list(bins=10)參數可以修改直方圖的組數



p8 <- ggMarginal(p1, type = "histogram",xparams = list(bins=10), yparams = list(bins=10))
p8

更改圖例位置

我們可以將圖利更改為下方這樣就可以騰出位置給邊緣圖




p8 <- p1 + theme(legend.position="bottom")
p9 <-  ggMarginal(p8,type = "boxplot",groupColour = TRUE, groupFill = TRUE)
p9

更進一步我們也可以自訂圖例位置與外觀








p10 <- p1 + theme(legend.position = c(0.75, 0.95), #自訂圖例位置
                 legend.background = element_rect(fill = NA),  #去除圖例背景
                 legend.title = element_blank(),  #刪除圖例標籤
                 legend.direction = "horizontal")  #將圖例設定為水平
p10
p11 <-  ggMarginal(p10,type = "boxplot",groupColour = TRUE, groupFill = TRUE)
p11

🌟若是有興趣有可以到這下面的網站玩玩看
https://daattali.com/shiny/ggExtra-ggMarginal-demo/

🌟全文可以至下方連結觀看或是補充

全文分享至

https://www.facebook.com/LHB0222/

https://www.instagram.com/ahb0222/

有疑問想討論的都歡迎於下方留言

喜歡的幫我分享給所有的朋友 \o/

有所錯誤歡迎指教

Image Not Showing Possible Reasons
  • The image file may be corrupted
  • The server hosting the image is unavailable
  • The image path is incorrect
  • The image format is not supported
Learn More →
全部文章列表

Select a repo