gpt4 book ai didi

r - 不使用 Shiny 的链接图

转载 作者:行者123 更新时间:2023-12-04 10:12:06 25 4
gpt4 key购买 nike

我创建了一个 shiny应用程序来显示大型数据集的相关热图。按下热图图块时,会显示相应的散点图。

但是,我需要制作几个这样的应用程序,这超出了我在 shinyapps.io 上发布的限制。 .我的公司不愿意升级到付费计划。我曾尝试使用替代方法发布应用程序,例如 RInno , 无济于事(我认为该应用程序太复杂了?)。

如果有人可以请告诉我我如何用 plotly 生产同样的产品单独而不是与 shiny ,我将永远感激。我相信类似 crosstalk可能是将热图图块链接到散点图的路径?

谢谢

来自 here 的示例.

library(plotly)
library(shiny)

# compute a correlation matrix
correlation <- round(cor(mtcars), 3)
nms <- names(mtcars)

ui <- fluidPage(
mainPanel(
plotlyOutput("heat"),
plotlyOutput("scatterplot")
),
verbatimTextOutput("selection")
)

server <- function(input, output, session) {
output$heat <- renderPlotly({
plot_ly(x = nms, y = nms, z = correlation,
key = correlation, type = "heatmap", source = "heatplot") %>%
layout(xaxis = list(title = ""),
yaxis = list(title = ""))
})

output$selection <- renderPrint({
s <- event_data("plotly_click")
if (length(s) == 0) {
"Click on a cell in the heatmap to display a scatterplot"
} else {
cat("You selected: \n\n")
as.list(s)
}
})

output$scatterplot <- renderPlotly({
s <- event_data("plotly_click", source = "heatplot")
if (length(s)) {
vars <- c(s[["x"]], s[["y"]])
d <- setNames(mtcars[vars], c("x", "y"))
yhat <- fitted(lm(y ~ x, data = d))
plot_ly(d, x = ~x) %>%
add_markers(y = ~y) %>%
add_lines(y = ~yhat) %>%
layout(xaxis = list(title = s[["x"]]),
yaxis = list(title = s[["y"]]),
showlegend = FALSE)
} else {
plotly_empty()
}
})

}

shinyApp(ui, server)

enter image description here

最佳答案

最好的答案可能是使用 crosstalk结合 flexdashboard https://rmarkdown.rstudio.com/flexdashboard/ .

在这里可以找到使用两者的现场示例:http://rstudio-pubs-static.s3.amazonaws.com/209203_02f14fea3274448bbbf8d04c99c6051b.html .

最终结果只是一个易于共享和使用的 html 页面。根据您的示例,您不应该需要 Shiny 的,并且您应该能够在此用例中使用串扰。否则,您需要跳出 R 才能获得该功能。祝你好运!

关于r - 不使用 Shiny 的链接图,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/50323179/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com