R語言繪制數(shù)據(jù)可視化Dumbbell?plot啞鈴圖
又是一年春來到,小仙祝大家在新的一年開開心心、順順利利!
今天給大家分享的圖是啞鈴圖(Dumbbell plot)。

Step1. 繪圖數(shù)據(jù)的準備
首先要把你想要繪圖的數(shù)據(jù)調(diào)整成R語言可以識別的格式,建議大家在excel中保存成csv格式。
作圖數(shù)據(jù)格式如下:

Step2. 繪圖數(shù)據(jù)的讀取
data <- read.csv(“your file path”, header = T, check.names=F) #注釋:header=T表示數(shù)據(jù)中的第一行是列名,如果沒有列名就用header=F #注釋:R讀取數(shù)據(jù)的時候,默認會把列名里的空格變成 ".",check.names=F就不會變了
Step3. 繪圖所需package的安裝、調(diào)用
library(ggplot2) library(reshape2) # 注釋:package使用之前需要調(diào)用
Step4. 繪圖
data_melt <- melt(data,id.vars = "Gene")
# 注釋:將原始的寬數(shù)據(jù)變成長數(shù)據(jù),方便畫圖
p <- ggplot(data_melt,aes(x = value, y = Gene)) +
geom_line(aes(group = Gene)) +
geom_point(aes(fill = variable), size = 3)
p

注意改變點顏色的語句fill = variable沒有發(fā)揮作用,為什么呢?

還是跟geom_point()中的shape有關(guān)系,默認是16號實心原點,只有color參數(shù)

p <- ggplot(data_melt,aes(x= value, y= Gene)) + geom_line(aes(group = Gene)) + geom_point(aes(color = variable), size = 3) p


改變size的大小
p <- ggplot(data_melt,aes(x= value, y= Gene)) + geom_line(aes(group = Gene)) + geom_point(aes(color = variable, size = value)) p


調(diào)整順序
order <- c("Gene1","Gene2","Gene3","Gene4","Gene5","Gene6","Gene7","Gene8","Gene9","Gene10")
p <- ggplot(data_melt,aes(x= value, y= Gene)) +
geom_line(aes(group = Gene)) +
geom_point(aes(fill=variable), shape = 21, size = 3) +
scale_y_discrete(limits = order)
p


Gene1放在y軸最上面
order <- rev(order) p <- ggplot(data_melt,aes(x= value, y= Gene)) + geom_line(aes(group = Gene)) + geom_point(aes(fill=variable), shape = 21, size = 3) + scale_y_discrete(limits = order) p


以上就是R語言繪制Dumbbell plot啞鈴圖的詳細內(nèi)容,更多關(guān)于R語言繪制啞鈴圖的資料請關(guān)注腳本之家其它相關(guān)文章!
相關(guān)文章
R語言數(shù)據(jù)可視化包ggplot2畫圖之散點圖的基本畫法
散點圖主要用于描述兩個連續(xù)變量之間的關(guān)系,通過散點圖發(fā)現(xiàn)變量之間的相關(guān)性強度、是否存在線性關(guān)系等,下面這篇文章主要給大家介紹了關(guān)于R語言數(shù)據(jù)可視化包ggplot2畫圖之散點圖的基本畫法,需要的朋友可以參考下2022-11-11
R語言學(xué)習(xí)筆記缺失數(shù)據(jù)的Bootstrap與Jackknife方法
這篇文章主要為大家介紹了R語言學(xué)習(xí)筆記關(guān)于缺失數(shù)據(jù)的Bootstrap與Jackknife的方法,有需要的朋友可以借鑒參考下,希望能夠有所幫助,祝大家多多進步2021-11-11
R語言編程數(shù)學(xué)分析重讀微積分理解極限算法
這篇文章主要為大家介紹了R語言編程重讀微積分數(shù)學(xué)分析理解極限算法的詳細過程,有需要的朋友可以借鑒參考下,希望能夠有所幫助,祝大家多多進步2021-10-10
R語言數(shù)可視化Split?violin?plot小提琴圖繪制方法
這篇文章主要為大家介紹了R語言數(shù)可視化Split?violin?plot小提琴圖繪制方法,有需要的朋友可以借鑒參考下,希望能夠有所幫助,祝大家多多進步2022-02-02
R語言科學(xué)計數(shù)法介紹:digits和scipen設(shè)置方式
這篇文章主要介紹了R語言科學(xué)計數(shù)法介紹:digits和scipen設(shè)置方式,具有很好的參考價值,希望對大家有所幫助。一起跟隨小編過來看看吧2021-04-04

