У вас есть два варианта:
1) Используйте renderPlot
и plotOutput
для вашего объекта ggplot
2) оберните ваш объект ggplot в ggploty
, а затем используйте renderPlotly
и plotlyOutput
звонков. С этой опцией ваш пробег будет очень большим, так как не вся эстетика ggplot переводится на сюжет.
library(ggcorrplot)
library(shiny)
library(plotly)
ui <- bootstrapPage(
#numericInput('n', 'Number of obs', n),
plotOutput('plot'),
plotlyOutput('plotly')
)
# Define the server code
server <- function(input, output) {
output$plot <- renderPlot({
cor <- cor(matrix(rnorm(100), ncol = 10))
ggcorrplot(cor)
})
output$plotly <- renderPlotly({
cor <- cor(matrix(rnorm(100), ncol = 10))
ggplotly(ggcorrplot(cor))
})
}
shinyApp(ui, server)