R 排除或设置相关矩阵热图底部三角形的唯一颜色

我已在plotly中创建了mtcars数据集的关联矩阵，包括：

# Load data
data("mtcars")
my_data <- mtcars[, c(1,3,4,5,6,7)]
# print the first 6 rows
head(my_data, 6)
res <- cor(my_data)
round(res, 2)
plot_ly(x=colnames(res), y=rownames(res), z = res, type = "heatmap") %>%
  layout(
    xaxis=list(tickfont = list(size = 30), tickangle = 45),
    margin = list(l = 150, r = 50, b = 150, t = 0, pad = 4))

#加载数据
数据（“mtcars”）
my_data一种选择是不使用完整的相关性数据集，而使用
upper.tri
只过滤掉矩阵的一半。您甚至可以考虑将其<代码> DIAG参数设置为<代码> Trime< /Cord>，以摆脱可能不必要的对角线。
下面的怎么样

# Load data
library(plotly)
data("mtcars")
my_data <- mtcars[, c(1,3,4,5,6,7)]
# print the first 6 rows
head(my_data, 6)
res <- cor(my_data)
res[upper.tri(res)] <- NA
round(res, 2)
plot_ly(x=colnames(res), y=rownames(res), z = res, type = "heatmap") %>%
  layout(
    xaxis=list(tickfont = list(size = 30), tickangle = 45),
    margin = list(l = 150, r = 50, b = 150, t = 0, pad = 4))

#加载数据
图书馆（绘本）
数据（“mtcars”）
我的_数据是否保持了相关性？@NelsonGon是的，从打印
res
对象可以看出，（唯一的）相关性没有被改变。我认为，通过将它们设置为“NA”，基本上就删除了它们。是的，但矩阵的另一半包含与NA'dI尝试过的数字完全相同的数字，但它失败了。也许你或其他人可以找到一种方法来调整它，并可能让我知道如何使它工作。这是所说的函数，但我似乎不知道如何调整它<代码>颜色函数