我需要创建一个闪亮的应用程序,用户可以在其中决定要显示多少个图以及通过滑块显示多少列。为了合并我使用Patchwork的图,以便我可以使用光标控制图之间的空间。地块必须使用coord_fixed()
.
这是一个小的可执行示例:
library(shiny)
library(shinythemes)
library(readr)
library(ggplot2)
library(dplyr)
library(tidyr)
library(grid)
library(ggforce)
library(patchwork)
ui <- fluidPage(
navbarPage("MotorBrain",
tabsetPanel(id = "inTabset",
tabPanel("Configurazione",
sidebarLayout(
sidebarPanel(
sliderInput("input1", "N. utenti",
min = 1, max = 133,
value = 3),
sliderInput("nCol1", "Ncols",
min = 1, max = 32,
value = 1),
sliderInput("h_space", "top bottom space (pt)",
min = 1, max = 100,
value = 1),
sliderInput("v_space", " left right space (pt)",
min = 1, max = 100,
value = 1),
actionButton("goButton1", "Visualizza")),
fluidRow())),
tabPanel("Visualizzazione",
fluidRow(
uiOutput("outputTest1"))
))))
server <- function(input, output,session) {
observeEvent(input$goButton1, {
updateTabsetPanel(session, "inTabset", selected = "Visualizzazione")
})
input1<-eventReactive(input$goButton1,{
input$input1
})
output$outputTest1 <- renderUI({
pl <- vector("list", length = input1())
for(t in 1: input1()) {
p<-ggplot() +
geom_point(x=runif(10000,0, 1),y=runif(500,0, 1))+
coord_fixed() +
# the space is added to both sides, so we need to reduce by half
theme(plot.margin = unit(c(
input$h_space/2,
input$v_space/2,
input$h_space/2,
input$v_space/2
), "pt"))
pl[[t]] <-p
}
output$plot_test1<- renderPlot({
Reduce(`+`, pl) +
plot_layout(ncol = input$nCol1)
})
plotOutput(outputId = "plot_test1")
})
}
shinyApp(ui = ui, server = server)
我的问题是:如何控制网格中各个图的大小,以便它们占据页面上的所有可用空间?