ggplot2 繪制相關系數(shù)熱圖

加顯著性 * 和 Pvaue 值

• 參考：哪里不會搜哪里，哈哈哈
• 其實歸根到底就是全文要敲用判斷和 paste() 或者 paste0()
• tidyverse::case_when()
• factor(): 重定義因子順序
• takecolor 下載鏈接
• 也可以看我簡書 可能是 R 語言最全調(diào)色板：Paletteer 包 和 自己慢慢收集 的詳細關于配色的操作

library(tidyverse) library(reshape2) a <- matrix(rnorm(90), 9, 10) colnames(a) <- letters[1:10] rownames(a) <- letters[1:9] data <- melt(a) data <- data %>%mutate(text = case_when( # 一定要 get 到 case_when() 函數(shù)奧秘value > 0 ~ paste(round(value, 2), "n*"), # round() 只保留兩位小數(shù)value <= 0 ~ paste(round(value, 2), "n**"))) data$new_Var1 <- factor(data$Var1, levels = c("a", "b", "c", "d", "e", "f", "g", "h", "i")) # 重新排序因子，決定坐標軸出圖順序 data$new_Var2 <- factor(data$Var2, levels = rev(c("a", "b", "c", "d", "e", "f", "g", "h", "i", "j"))) # 同上 ggplot(data, aes(new_Var1, new_Var2)) + geom_tile(aes(fill = value), colour = "grey", size = 1)+scale_fill_gradient2(low = "#5C5DAF",mid = "white",high = "#EA2E2D") + # 這里可以用 windowns 小工具 takecolor 取色，看中哪個文章就吸哪個文章# 比如這篇 https://www.nature.com/articles/nmeth.1902 geom_text(aes(label=text),col ="black",size = 5) +theme_minimal() + # 不要背景theme(axis.title.x=element_blank(), # 去掉 titleaxis.ticks.x=element_blank(), # 去掉x 軸axis.title.y=element_blank(), # 去掉 y 軸axis.text.x = element_text(angle = 45, hjust = 1, size = 14, face = "bold"), # 調(diào)整x軸文字，字體加粗axis.text.y = element_text(size = 14, face = "bold")) + #調(diào)整y軸文字labs(fill =paste0(" * p < 0","nn","** p > 0","nn","Correlation")) + # 修改 legend 內(nèi)容scale_x_discrete(position = "top") # 將 X 軸放置在最上面

總結

以上是生活随笔為你收集整理的语言相关系数显著性_ggplot2 绘制带星号和 Pvalue 值的相关系数热图的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。