gridArrange in Shiny - манипулирование индивидуальным размером сюжета - PullRequest
Новая
       7

gridArrange in Shiny - манипулирование индивидуальным размером сюжета

0 голосов
/ 23 июня 2018

Я изо всех сил стараюсь увеличить размер графиков при использовании gridArrange в Shiny.Я включил пример проблемы.Я хотел бы, чтобы участки заполняли доступное пространство, которое намного больше.Когда я увеличиваю окно браузера до полного экрана, промежутки между графиками увеличиваются, но размер графиков не изменяется.Я пытался добавить параметры widths и heights, но затем получаю сообщение об ошибке: only 'grobs' allowed in "gList".Кроме того, это работает нормально, когда не запускается в реактивном контексте.

Вот фрагмент моего кода, используемого для визуализации графика: 

observeEvent(input$enter_symb,{
    req(length(input$enter_symb) > 0)
    lista_g <- list()
    output$bar_out <- renderPlot({
    for (i in unique(input$enter_symb)){
                            a <- GLAST_RT_TPM_app[Symbol %in% i]
                            a$ENSEMBL <- NULL 
                            a <- melt(a, id.vars = colnames(a)[1])
                            a$IP_or_S1 <- ""
                            a$IP_or_S1[a$variable %like% "S1"] <- "Total Tissue"
                            a$IP_or_S1[a$variable %like% "IP"] <- "Ribo-Tag IP"
                            a$region <- ""
                            a$region[a$variable %like% "cerebellum"] <- "Cerebellum"
                            a$region[a$variable %like% "cerebrum"] <- "Cerebrum"
                            tutul <- unique(a$Symbol)
                            lista_g[[i]] <- a
                             }
                            ploty <- lapply(lista_g, plot_universal)
                            do.call(grid.arrange, c(ploty, ncol=3))


    })
})

Примеры

Я боролся часами, поэтому любые подсказки приветствуются:)

Обновление: вот весь код:

UI 

library(shiny)

shinyUI(tagList(
  fluidPage(
    title = "test",
    absolutePanel(
      bottom = 400,
      right = 30,
      width = 380,
      draggable = TRUE,
      wellPanel(
        actionButton("go", "Go!")

  ),
  # end of well panel
  style = "opacity: 0.70"
),
# end of absolute panel
    imageOutput(outputId = "bar_out")

  )
))

Сервер 

library(shiny)
library(data.table)
library(ggplot2)
library(dplyr)
library(DT)

data <- data.frame(replicate(3,sample(0:30,6,rep=TRUE)))

plot_universal <- function(x){
  g <- ggplot(data=x, aes(y=value, x=variable)) +
    geom_bar(stat = "identity", position=position_dodge(width = 0.3), width = 0.6) +
    scale_fill_manual(guide = FALSE, values=alpha(c('#e89900',"#69ff65",'#e89900' , "#69ff65"), 0.8))+
    # geom_text(aes(label = round(value, digits = 0)), vjust = -1, size = 4) +
    labs(y = '', 
         x = '') +
    # scale_colour_manual(name = NULL, values = c("black", "black"), labels = c('c2','c1'))+
    # guides(color = guide_legend(override.aes = list(shape = 15, size = 10))) +
    theme(title = element_text(size = 16, face = "plain"),
          axis.title = element_text(size = 22),
          text = element_text(size = 12),
          axis.text.x = element_text(size = 16, face = "plain"),
          axis.text.y = element_text(size = 18, face = "plain"),
          legend.title.align = 0.5,
          strip.text.x = element_text(size = 20, face = "plain"),
          legend.position = "top",
          legend.direction = "horizontal",
          aspect.ratio = 1.5) +
    ggtitle(unique(x[[1]]))
  return(g)
}

server <- function(input, output, session) {

  choose_rows <- c(1,2,3,4,5,6)  

  observeEvent(input$go,{
    lista_g <- list()
    output$bar_out <- renderPlot({
      for (i in unique(choose_rows)){
        a <- data[choose_rows,]
        a$ENSEMBL <- NULL 
        a <- melt(a, id.vars = colnames(a)[1])
        lista_g[[i]] <- a
      }

      ploty <- lapply(lista_g, plot_universal)
      do.call(grid.arrange, c(ploty, ncol=3, nrow=2))

    })
  })   

  session$onSessionEnded(function(){
    stopApp()
  })
}
...