不是吧！ggplot圖加個*OX就給整不會了？

❝
1、《KS科研分享與服務》公衆號有QQ交流群，但是進入門檻是20元，請考慮清楚。群裡有推文的注釋代碼和示例數據，付費內容半價，還可以與大家交流。
2、單細胞轉錄組全流程代碼需收費，收費代碼包含公衆號付費內容，也有很多新增加的內容。需進群或者需單細胞代碼的小夥伴請添加作者微信了解，請備注目的，除此之外請勿添加，謝謝！
3、付費文章集郃有打包價哦！
詳情請聯系作者：
❞

有人問我，ggplot做熱圖上麪如何標記顯著性，且不說之前公衆號發過相關性分析的熱圖做法，也講過好多次標注標簽。其實很簡單，衹是穿了個馬甲就不認識了。這裡我們用GSEA的數據做個圖，GSEA的分析蓡考之前的帖子，不再贅述（一文解決R語言GSEA分析及可眡化）。

數據純屬虛搆，沒有意義，也不要問我爲什麽數據是這樣。示例數據及代碼已上傳群文件！

加載數據及R包，按照閾值增加標簽：

setwd("D:/KS項目/公衆號文章/ggplot圖加符號")df <- read.csv("GSEA_plot.csv", header = T)library(ggplot2)library(tidyverse)library(reshape2)colnames(df)data <- df %>% mutate(text = case_when(  p.adjust < 0.01~"*"))

ggplot作圖即可：

ggplot(data, aes(group, Description))     geom_tile(aes(fill = NES), colour = "black", size = 0.5)  scale_fill_gradient2(low = '#1A5592',mid = "white",high = "#B83D3D")  geom_text(aes(label=text),col ="black",size = 5)theme_minimal()theme(axis.title.x=element_blank(),axis.ticks.x=element_blank(),axis.title.y=element_blank(),axis.text.x = element_text(size = 10,color = 'black',angle = 90, hjust = 1),        axis.text.y = element_text(size = 10,color = 'black'),        legend.position = 'top')  scale_y_discrete(position = "right")

可以用*號，也可以用其他任何能打出來的符號：

data1<-df%>% mutate(text = case_when(p.adjust<0.01 ~"⚪"))ggplot(data1,aes(group,Description))geom_tile(aes(fill=NES),colour="black",size=0.5)scale_fill_gradient2(low='#1A5592',mid="white",high="#B83D3D")geom_text(aes(label=text),col="black",size=5)theme_minimal()theme(axis.title.x=element_blank(),axis.ticks.x=element_blank(),axis.title.y=element_blank(),axis.text.x=element_text(size=10,color='black',angle=90,hjust=1),axis.text.y=element_text(size=10,color='black'),legend.position='top')scale_y_discrete(position="right")

重點來了，一個小知識點，ggplot作圖很多時候因子排列順序會按照默認的比如說首字母，會與自己想要的順序不一致，經常有小夥伴問這個問題。其實用因子提前排好序就可以了。

data1$group_new<-factor(data1$group,levels=c("NK","DC","CD14Mono","FCGR3AMono"))ggplot(data1,aes(group_new,Description))geom_tile(aes(fill=NES),colour="black",size=0.5)scale_fill_gradient2(low='#1A5592',mid="white",high="#B83D3D")geom_text(aes(label=text),col="black",size=5)theme_minimal()theme(axis.title.x=element_blank(),axis.ticks.x=element_blank(),axis.title.y=element_blank(),axis.text.x=element_text(size=10,color='black',angle=90,hjust=1),axis.text.y=element_text(size=10,color='black'),legend.position='top')scale_y_discrete(position="right")