發(fā)現(xiàn)一個功能強大的R包GGally，可以用于多維度呈現(xiàn)變量的屬性，以箱線圖、直方圖、密度圖等呈現(xiàn)出來，而且還可以展示變量間的相關(guān)關(guān)系，分組展示組間差異等等?？傊?，這個包可以看成是很多基礎(chǔ)繪圖的集成。值得學習一下。

1. 以iris數(shù)據(jù)集為例演示該包的功能特點

# install.packages("GGally")
library(GGally)

iris[1:4,]
#   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
# 1          5.1         3.5          1.4         0.2  setosa
# 2          4.9         3.0          1.4         0.2  setosa
# 3          4.7         3.2          1.3         0.2  setosa
# 4          4.6         3.1          1.5         0.2  setosa

ggpairs(iris[1:4]) 

image.png

假設(shè)只有一組：

iris$Group = "flower"
iris$Group = as.factor(iris$Group)

ggpairs(iris[,c(1:4,6)])

image.png

### 對這一個分組可視化，并添加顏色
ggpairs(iris[,c(1:4,6)],ggplot2::aes(color = Group)) # (顏色映射后，右上三角有個冗余信息，不曉得怎么去除)

image.png

美化邊框

ggpairs(iris[,c(1:4,6)],ggplot2::aes(color = Group)) + 
  theme(axis.text = element_text(colour = "black", size = 11),
        strip.background = element_rect(fill = "#d63d2d"),
        strip.text = element_text(colour = "white", size = 12,
                                  face = "bold"))

image.png

分組展示

ggpairs(iris[,c(1:4,5)]) 

image.png

三個分組，加顏色

ggpairs(iris[,c(1:4,5)],ggplot2::aes(color=Species)) 

image.png

三個分組，加顏色，繼續(xù)美化

ggpairs(iris[,c(1:4,5)],ggplot2::aes(color=Species)) +   # showStrips = T,  #用于顯示直方圖分組標簽
  theme(axis.text = element_text(colour = "black", size = 11),
        strip.background = element_rect(fill = "#d63d2d"),
        strip.text = element_text(colour = "white", size = 12,
                                  face = "bold"))

image.png

參考資料：

官網(wǎng): GGally: Extension to ggplot2
深度參考: 微信公眾號@‘育種數(shù)據(jù)分析之放飛自我’ :性狀相關(guān)可視化 | 小甜甜VS牛夫人