闪亮的交互式相关热图

Question

我想在https://scip.shinyapps.io/scip_app/

重现该示例

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

我可以快速参考哪些模板？

Answer 1

根据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)

编辑：如果需要指定颜色并按原样显示数据，默认情况下请注意Colv = T，这意味着它会将相关项目组合在一起

output$heatmap <- renderD3heatmap({d3heatmap(MAT, colors = "Blues", Colv = FALSE)})

Answer 2

我认为情节可以做得很好。以下是文档https://plot.ly/r/heatmaps /：

这是一个小模板示例（通过借用他的最小闪亮模板返回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)

这是Shiny输出。请注意，它完全可以缩放：