溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊(cè)×
其他方式登錄
點(diǎn)擊 登錄注冊(cè) 即表示同意《億速云用戶服務(wù)條款》

怎么用R語(yǔ)言ggplot2畫氣泡圖來(lái)展示基因表達(dá)量

發(fā)布時(shí)間：2021-11-22 15:53:27 來(lái)源：億速云 閱讀：1776 作者：柒染 欄目：大數(shù)據(jù)

怎么用R語(yǔ)言ggplot2畫氣泡圖來(lái)展示基因表達(dá)量，相信很多沒有經(jīng)驗(yàn)的人對(duì)此束手無(wú)策，為此本文總結(jié)了問(wèn)題出現(xiàn)的原因和解決方法，通過(guò)這篇文章希望你能解決這個(gè)問(wèn)題。

怎么用R語(yǔ)言ggplot2畫氣泡圖來(lái)展示基因表達(dá)量  
image.png

今天重復(fù)的內(nèi)容是論文中的figure2f

怎么用R語(yǔ)言ggplot2畫氣泡圖來(lái)展示基因表達(dá)量  
image.png

今天的推文主要介紹其中的氣泡圖，明天的推文介紹如何向氣泡圖上疊加樹形圖

按照論文提供的代碼得到了畫圖用到的數(shù)據(jù)，部分?jǐn)?shù)據(jù)如下

怎么用R語(yǔ)言ggplot2畫氣泡圖來(lái)展示基因表達(dá)量  
image.png

但是用他提供的畫圖代碼沒有能夠畫出圖來(lái)。因?yàn)樗玫搅艘粋€(gè)dot_plot()函數(shù)，沒有找到這個(gè)函數(shù)是怎么來(lái)的。既然已經(jīng)拿到了數(shù)據(jù)，就用ggplot2自己來(lái)畫吧

 讀入數(shù)據(jù)
data.final<-read.csv("NM/figure2f.csv",header=T)
head(data.final)
 
怎么用R語(yǔ)言ggplot2畫氣泡圖來(lái)展示基因表達(dá)量  
image.png
 基本的散點(diǎn)圖
ggplot(data.final,aes(x=features.plot,y=id))+
  geom_point()
 
怎么用R語(yǔ)言ggplot2畫氣泡圖來(lái)展示基因表達(dá)量  
image.png
 用Average expression映射顏色，用Percent expressed映射點(diǎn)的大小
ggplot(data.final,aes(x=features.plot,y=id))+
  geom_point(aes(size=`Percent expressed`,
                 color=`Average expression`))
 
怎么用R語(yǔ)言ggplot2畫氣泡圖來(lái)展示基因表達(dá)量  
image.png
 接下來(lái)是設(shè)置主題的一些內(nèi)容

包括

  • 去掉灰色背景
  • 調(diào)整坐標(biāo)軸字體方向
  • 去掉坐標(biāo)軸標(biāo)題
  • 更改配色
ggplot(data.final,aes(x=features.plot,y=id))+
  geom_point(aes(size=`Percent expressed`,
                 color=`Average expression`))+
  theme_bw()+
  theme(panel.grid = element_blank(),
        axis.text.x=element_text(angle=90,hjust = 1,vjust=0.5))+
  scale_color_gradient(low="lightgrey",high="blue")+
  labs(x=NULL,y=NULL)
 
怎么用R語(yǔ)言ggplot2畫氣泡圖來(lái)展示基因表達(dá)量


看完上述內(nèi)容，你們掌握怎么用R語(yǔ)言ggplot2畫氣泡圖來(lái)展示基因表達(dá)量的方法了嗎？如果還想學(xué)到更多技能或想了解更多相關(guān)內(nèi)容，歡迎關(guān)注億速云行業(yè)資訊頻道，感謝各位的閱讀！

向AI問(wèn)一下細(xì)節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱：is@yisu.com進(jìn)行舉報(bào)，并提供相關(guān)證據(jù)，一經(jīng)查實(shí)，將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI
助
手