R語(yǔ)言數(shù)據(jù)可視化繪圖Slope chart坡度圖畫(huà)法
今天小仙給大家分享一下Slope chart(坡度圖)的畫(huà)法，我在paper中看到的圖是這樣的
這個(gè)圖的意思大概是Nasal Tissue比Brochial Tissue的ACE2表達(dá)量高(ACE2就是新冠病毒的受體啦) 。為了復(fù)刻這張圖，小仙捏造了一組差不多的數(shù)據(jù)，竟然感覺(jué)比原圖好看！
廢話不多說(shuō)，進(jìn)入正題。
Step1. 繪圖數(shù)據(jù)的準(zhǔn)備
首先要把你想要繪圖的數(shù)據(jù)調(diào)整成R語(yǔ)言可以識(shí)別的格式，建議大家在excel中保存成csv格式。
作圖數(shù)據(jù)格式如下：
Step2. 繪圖數(shù)據(jù)的讀取
data<-read.csv(“your file path”, header = T, check.names=F) #注釋：header=T表示數(shù)據(jù)中的第一行是列名，如果沒(méi)有列名就用header=F #注釋：R讀取數(shù)據(jù)的時(shí)候，默認(rèn)會(huì)把列名里的空格變成 "."，check.names=F就不會(huì)變了
Step3. 繪圖所需package的安裝、調(diào)用
library(ggplot2) library(reshape2) # 注釋：package使用之前需要調(diào)用
Step4. 繪圖
data_melt<-melt(data,id.vars = "Sample") # 注釋：將原始的寬數(shù)據(jù)變成長(zhǎng)數(shù)據(jù)，方便畫(huà)圖 p<-ggplot(data_melt,aes(x=variable,y=value,group=Sample))+ geom_line(color="gray", size=1)+ geom_point(aes(fill=Sample),shape=21, size=3)+ theme_bw()+labs(x="",y="Relative expression") p
直接畫(huà)出來(lái)的圖就是下面這樣子的，線段和圓圈都是鋸齒狀的，對(duì)圖片質(zhì)量要求比較高、想讓直線變平滑的朋友，可以參考我之前的分享《R語(yǔ)言作圖技巧——導(dǎo)出高清圖》。
如果把geom_point()語(yǔ)句跟geom_point()語(yǔ)句顛倒一下會(huì)發(fā)生什么呢？
p<-ggplot(data_melt,aes(x=variable,y=value,group=Sample))+ geom_point(aes(fill=Sample),shape=21, size=3)+ geom_line(color="gray", size=1)+ theme_bw()+labs(x="",y="Relative expression") p
語(yǔ)句顛倒，連線就會(huì)覆蓋點(diǎn)的一部分，如果你想讓哪個(gè)形狀放在最上層，就把相應(yīng)的畫(huà)圖語(yǔ)句放在后面就可以啦。
以上就是R語(yǔ)言數(shù)據(jù)可視化繪圖Slope chart坡度圖畫(huà)法的詳細(xì)內(nèi)容，更多關(guān)于R語(yǔ)言數(shù)據(jù)可視化繪圖坡度圖的資料請(qǐng)關(guān)注腳本之家其它相關(guān)文章！
- R語(yǔ)言兩組變量特征相關(guān)關(guān)系熱圖繪制畫(huà)法
- R語(yǔ)言數(shù)據(jù)可視化繪圖bar chart條形圖實(shí)現(xiàn)示例
- R語(yǔ)言繪圖數(shù)據(jù)可視化pie?chart餅圖
- R語(yǔ)言數(shù)據(jù)可視化繪圖Dot plot點(diǎn)圖畫(huà)法示例
- R語(yǔ)言繪圖數(shù)據(jù)可視化Ridgeline plot山脊圖畫(huà)法
- R語(yǔ)言繪圖時(shí)輸出希臘字符上下標(biāo)及數(shù)學(xué)公式實(shí)現(xiàn)方法
- R語(yǔ)言繪制corrplot相關(guān)熱圖分析美化示例及詳細(xì)圖解
相關(guān)文章
R語(yǔ)言利用barplot()制作條形圖的各種實(shí)例
這篇文章主要給大家介紹了關(guān)于R語(yǔ)言利用barplot()制作條形圖的相關(guān)資料，文中通過(guò)示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧2021-03-03
在本篇文章里小編給大家分享的是一篇關(guān)于R語(yǔ)言處理JSON文件的方法，有興趣的朋友們可以參考下。2021-05-05
R語(yǔ)言dplyr包之高效數(shù)據(jù)處理函數(shù)（filter、group_by、mutate、summarise）詳解
這篇文章主要介紹了R語(yǔ)言dplyr包之高效數(shù)據(jù)處理函數(shù)（filter、group_by、mutate、summarise）的相關(guān)知識(shí)，本文給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2021-03-03
在本篇文章里小編給大家整理的是一篇關(guān)于R語(yǔ)言繪制散點(diǎn)圖實(shí)例分析內(nèi)容，有需要的朋友們可以學(xué)習(xí)下。2021-04-04
R語(yǔ)言在散點(diǎn)圖中添加lm線性回歸公式的問(wèn)題
這篇文章主要介紹了R語(yǔ)言在散點(diǎn)圖中添加lm線性回歸公式的問(wèn)題,本文通過(guò)實(shí)例代碼給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2022-09-09
這篇文章主要介紹了R語(yǔ)言讀取csv文件出錯(cuò)的解決方案，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過(guò)來(lái)看看吧2021-04-04
R語(yǔ)言 實(shí)現(xiàn)將1對(duì)多數(shù)據(jù)與1對(duì)1數(shù)據(jù)互換
這篇文章主要介紹了R語(yǔ)言 實(shí)現(xiàn)將1對(duì)多數(shù)據(jù)與1對(duì)1數(shù)據(jù)互換的操作，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過(guò)來(lái)看看吧2021-03-03
這篇文章主要介紹了R語(yǔ)言編碼問(wèn)題的解決，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過(guò)來(lái)看看吧2021-04-04
R語(yǔ)言-解決處理矩陣遇到內(nèi)存不足的問(wèn)題
這篇文章主要介紹了R語(yǔ)言-解決處理矩陣遇到內(nèi)存不足的問(wèn)題，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過(guò)來(lái)看看吧2021-04-04
這篇文章主要介紹了R、RStudio下載與安裝方法,本文通過(guò)圖文圖文并茂的方法給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2021-03-03