Shiny 发光体中的交互关联热图

我想在以下位置复制该示例：

基本上，我有一个300乘300调整的相关矩阵和一个300乘300未调整的相关矩阵，并希望通过放大和缩小功能以交互方式显示它们。文本描述应显示点估计值和置信区间

---

有什么模板我可以快速参考吗？

我认为plotly可以很好地做到这一点。这些是文件：

下面是一个小模板示例（借用Porkchop的最小闪亮模板来回报Porkchop的好感），其中包含一些虚假数据：

library(shiny)
n1 <- 100
n2 <- 100
nr <- 30
nc <- 30
set.seed(1)
x <- matrix(rnorm(n1), nrow=nr, ncol=nc)
y <- matrix(rnorm(n2), nrow=nr, ncol=nc)
cmat <- cor(x,y)
plot_ly(z = cmat, type = "heatmap")
ui <- fluidPage(
  mainPanel(
    plotlyOutput("heatmap", width = "100%", height="600px")
  )
)

## server.R
server <- function(input, output) {
  output$heatmap <- renderPlotly({plot_ly(z = cmat, type = "heatmap")})
}
shinyApp(ui,server)

库（闪亮）
n1基于Mike提供的数据，您可以使用
d3heatmap
库

library(d3heatmap)
library(shiny)
n1 <- 100
n2 <- 100
nr <- 30
nc <- 30
set.seed(1)
x <- matrix(rnorm(n1), nrow=nr, ncol=nc)
y <- matrix(rnorm(n2), nrow=nr, ncol=nc)
MAT <- cor(x,y)
ui <- fluidPage(
  mainPanel(
    d3heatmapOutput("heatmap", width = "100%", height="600px")
  )
)

## server.R
server <- function(input, output) {
  output$heatmap <- renderD3heatmap({d3heatmap(MAT)})
}

shinyApp(ui = ui, server = server)

你可以试试热图吗？有几个问题你可以用谷歌“热图”和“R”，看看图片。你想要的是足够接近大多数人会称之为热图的热图。我可以很容易地复制热图，但我想要的是放大功能，因为它是一个巨大的相关矩阵。你看过闪亮的例子了吗？是的，有一点。但是如果你想放大，你可以仔细看看。美好的我没注意到他想要一个闪亮的例子。。。但是这个图表中的数字和层次结构是什么？它们是否自动带有
cor（）
输出？@MikeWise，我添加了适当的颜色并删除了当前的排序
Colv=F
。它按默认值对他们进行分组，奇怪的是他没有投你一票。很好的答案-将记住该函数。事实上，我想我很快就可以使用它了……有没有什么功能可以帮助我们将热图链接到另一个图表或数据。比如，如果我在热图中的某个特定位置单击，它会在新位置输出该特定框的详细信息。像是公司的老板还是什么的？或者也可以工作。我后来发现了。有没有什么功能可以帮助我们将热图链接到另一个图表或数据。比如，如果我在热图中的某个特定位置单击，它会在新位置输出该特定框的详细信息。像是公司的老板还是什么的？
output$heatmap <- renderD3heatmap({d3heatmap(MAT, colors = "Blues", Colv = FALSE)})