相关疑难解决方法(0)

可重现的数据：

data(crabs, package = "MASS")
df <- crabs[-(1:3)]
set.seed(12345)
df$GRP <- kmeans(df, 4)$cluster
df.order <- dplyr::arrange(df, GRP)

数据说明：

df有 5 个数值变量。我根据这 5 个属性进行了 K-means 算法，并生成了一个GRP具有 4 个级别的新分类变量。接下来，我订购了它GRP并命名了它df.order。

我做了什么pheatmap：

## 5 numerical variables for coloring
colormat <- df.order[c("FL", "RW", "CL", "CW", "BD")]

## Specify the annotation variable `GRP` shown on left side of the heatmap
ann_row <- df.order["GRP"]

## gap indices
gapRow <- cumsum(table(ann_row$GRP))

library(pheatmap)
pheatmap(colormat, cluster_rows = F, show_rownames = F, …