今天查資料的時候發(fā)現(xiàn)的，好多漂亮的圖片，大部分都是借助ggplot2實現(xiàn)的。提供示例數(shù)據(jù)和代碼。很好的R語言畫圖學(xué)習(xí)資料。

這份學(xué)習(xí)資料里我比較感興趣的是以下兩幅圖，第一幅是

image.png

這個和之前圖文中 跟著Nature Couumincations學(xué)畫圖中的figure1很像。之前的figure1是借助基礎(chǔ)繪圖函數(shù)畫了散點圖和箱線圖，然后將圖拼接到一起。這個圖的實現(xiàn)辦法是直接用的一個函數(shù)。

使用到的R語言包時 ggpubr函數(shù)是ggscatterhist()

ggpubr這個包的參考鏈接
https://rpkgs.datanovia.com/ggpubr/index.html

安裝

install.packages("ggpubr")

上面的圖用到的是鳶尾花數(shù)據(jù)集

最基本的繪圖是

library(ggpubr)
ggscatterhist(iris,
              x = "Sepal.Length", 
              y = "Sepal.Width")

需要指定數(shù)據(jù)集合x,y。x,y對應(yīng)的數(shù)據(jù)需要用雙引號引起來，邊緣默認(rèn)添加的圖是密度圖，可以用margin.plot參數(shù)來修改，更改填充顏色用到的是palette參數(shù)
下面是參考鏈接里的代碼

ggscatterhist(iris,
              x = "Sepal.Length", 
              y = "Sepal.Width",
              color = "Species",
              size=4,
              palette = c("#00AFBB", "#E7B800", "#FC4E07"),
              margin.plot = "boxplot",
              ggtheme = theme_bw(),
              margin.params = list(fill="Species"))

最終的結(jié)果是

image.png

還有一個比較感興趣的是

image.png

非常適合來展示相關(guān)系數(shù)，比如用大小來展示相關(guān)系數(shù)的高低，用顏色來區(qū)分p值

下面重復(fù)參考鏈接中的代碼
還是借助 ggpubr這個包中的函數(shù)實現(xiàn)。用到的函數(shù)是 ggballoonplot()
讀入數(shù)據(jù)

畫圖

ggballoonplot(housetasks, 
              fill = "value",
              size.range = c(1,15))+
  scale_fill_viridis_c(option = "C")

image.png

好了今天的內(nèi)容就到這里，

歡迎大家關(guān)注我的公眾號
小明的數(shù)據(jù)分析筆記本