我尝试在 R 上制作热图,并在我的 excel 文件中有四个值(1,2,3,4),如下所示
数据 | Allgemein | 方法 | 埃尔格布尼斯 | 讨论 | 安德烈 |
---|---|---|---|---|---|
1 | 4 | 3 | 2 | 4 | 4 |
2 | 4 | 3 | 2 | 4 | 4 |
3 | 4 | 3 | 2 | 4 | 4 |
4 | 4 | 3 | 2 | 4 | 4 |
5 | 2 | 3 | 2 | 4 | 4 |
6 | 4 | 2 | 3 | 4 | 4 |
7 | 4 | 2 | 2 | 4 | 4 |
8 | 4 | 2 | 1 | 4 | 4 |
我在“Methode”类别中有不同的值(五乘以 3 和三乘以 2),但它仍然只为其中之一提供了不同的颜色:
pheatmap(df_num,
main = "Einhaltung von Items der CHEERS 2022 Checkliste nach Kategorien",
col=brewer.pal(4,"Greens"),
breaks = seq(1,4),
fontsize = 12,
cluster_rows=F,
cluster_cols=F,
cellwidth=20,
cellheight=20,
border_color="black",
legend_breaks = 1:4,
legend_labels = c("100 % erfüllt",
"zwischen > 75% und < 100% der Items",
"zwischen >50% und ≤75% der Punkte",
"≤50% der Punkte"))```
使用您的代码,我可以正确地可视化您的数据矩阵。
library(pheatmap)
library(RColorBrewer)
# Load data
df_num <- read.table(text="
data Allgemein Methode Ergebnisse Diskussion Andere
1 4 3 2 4 4
2 4 3 2 4 4
3 4 3 2 4 4
4 4 3 2 4 4
5 2 3 2 4 4
6 4 2 3 4 4
7 4 2 2 4 4
8 4 2 1 4 4", header=T, sep=" ")
# Delete the first column; it is only a raw counter
df_num <- df_num[,-1]
pheatmap(df_num,
main = "Einhaltung von Items der CHEERS 2022 Checkliste nach Kategorien",
col=brewer.pal(4,"Greens"),
breaks = seq(1,4),
fontsize = 12,
cluster_rows=F,
cluster_cols=F,
cellwidth=20,
cellheight=20,
border_color="black",
legend_breaks = 1:4,
legend_labels = c("100 % erfüllt",
"zwischen > 75% und < 100% der Items",
"zwischen >50% und ≤75% der Punkte",
"≤50% der Punkte"))