Я бы добавил значения каждого маленького квадрата, как на рисунке ниже, но я не уверен, как это сделать. У меня есть следующий код, и мой набор данных называется freqNA0.
cp<-cor(data.matrix(na.omit(freqNA0)), method = "spearman")
ord<-rev(hclust(as.dist(1-abs(cp)))$order)
colPal<-colorRampPalette(c("blue","yellow"),space="rgb")(100)
levelplot(cp[ord,ord],
xlab="",
ylab="",
col.regions=colPal,
at=seq(-1,1,length.out = 100),
colorkey=list(space="top", labels=list(cex=1.5)),
scales=list(x=list(rot=45),
y=list(draw=FALSE),
cex=1.2)
)
Первое изображение - это мой сюжет, а второе - пример того, что я хотел бы получить. Мой сюжет
Пример цели