我將數(shù)據(jù)和映射從ggplot()移動到geom_heatmap()并添加了geom_text()也許這更接近您想要的結(jié)果? A <- c(1,4,5,6,1)B <- c(4,2,5,6,7)C <- c(3,4,2,4,6)D <- c(2,5,1,4,6)E <- c(6,7,8,9,1)df <- data.frame(A,B,C,D,E)CorMat <- cor(df[ ,c("A","B","C","D","E")])get_upper_tri <- function(CorMat){ CorMat[upper.tri(CorMat)]<- NA return(CorMat)}get_lower_tri <- function(CorMat){ CorMat[lower.tri(CorMat)]<- NA return(CorMat)}reorder <- function(CorMat){ dd <- as.dist((1-CorMat)/2) hc <- hclust(dd) CorMar <- CorMat[hc$order, hc$order]}library(reshape2)CorMat <- reorder(CorMat)upper_tri <- get_