差异基因微生物OTUpearson相关性热图pheatmap包怎么加显著性符号

可以使用pheatmap包中的add_significance_stars函数来添加显著性符号。该函数可以根据所选择的P值阈值，在热图上添加星号表示差异显著性，以下是示例代码：

library(pheatmap)

# 生成随机数据
set.seed(123)
mat <- matrix(rnorm(100), ncol = 10)

# 生成随机P值
pvals <- matrix(runif(100, 0, 1), ncol = 10)

# 设置P值阈值
sig_threshold <- 0.05

# 生成热图
pheatmap(mat, cluster_col = FALSE)

# 添加显著性符号
add_significance_stars(pheatmap_object = last_plot(),
                       pvalue_matrix = pvals,
                       threshold = sig_threshold,
                       annotation_chr = TRUE,
                       annotation_names_col = FALSE)

在上述代码中，通过add_significance_stars函数将pheatmap对象和P值矩阵传入函数中，同时设定一个显著性阈值，如果P值小于该阈值，则在热图上标注差异显著性星号。annotation_chr参数指示是否在行注释上添加差异显著性，annotation_names_col参数指示是否在列名称上添加差异显著性。