消除相关图中的对角线值

Question

我试图使用ggplot分析各种因素之间的相关性，如何摆脱具有相关值1的对角线值。

这是代码

data(attitude)
library(ggplot2)
library(reshape2)

M = cor(attitude,use="pairwise.complete.obs")
M = round(M,4)
M[lower.tri(M)] <- NA

dat2 <- melt(M, id.var = rownames(M)[1])
ggplot(dat2, aes(as.factor(Var1), Var2, group=Var2)) + geom_tile(aes(fill = value)) + 
geom_text(aes(fill = dat2$value, label = round(dat2$value, 1))) +
scale_fill_gradient(low = "yellow", high = "#D6604D", space = "Lab", 
na.value = "grey50")

这是情节，我的目标是摆脱对角线的价值。