Как я могу построить несколько участков с плотно - PullRequest
Новая
       7

Как я могу построить несколько участков с плотно

0 голосов
/ 21 января 2020

У меня есть plot_list с почти 300 участками. Есть ли способ построить все участки из массива с помощью сюжета? Я не знаю, как создать участок с таким количеством участков.

Вот мой код: 

plot_list = list()
for(i in 2:length(colnames.no.na.work.df.worldbank.2009)){

  # Create columns for buffer.data.frame to plot
  first.column.buffer <- no.na.work.df.worldbank.2009$`country name`
  second.column.buffer <- round(as.numeric(unlist(no.na.work.df.worldbank.2009[134])))
  third.column.buffer <- round(as.numeric(unlist(no.na.work.df.worldbank.2009[i])))
  colnames.no.na.work.df.worldbank.2009 <- colnames(no.na.work.df.worldbank.2009)

  # Create buffer.data.frame to plot
  buffer.data.frame <- cbind.data.frame(first.column.buffer, second.column.buffer, third.column.buffer, stringsAsFactors = FALSE)
  colnames(buffer.data.frame) <- (c("c", "b", "a"))

  # Safe plot in array
  p <- ggplot(buffer.data.frame, aes(a, b, name = c)) + ggtitle("Title") + theme(plot.title = element_text(hjust = 0.5)) +
    xlab(colnames.no.na.work.df.worldbank.2009[i]) + ylab(colnames.no.na.work.df.worldbank.2009[134]) + geom_point() 
  plot_list[[i-1]] = p
}

1 Ответ

0 голосов
/ 21 января 2020

Вы можете поместить все элементы в список, заключенный в div, чтобы вы могли контролировать стиль. Отобразите это с помощью uiOutput () 

# You have to provide the plotly plot_list to the function
output$all_plots <- shiny::renderUI({
    all_plots <- list()
    for (n in seq_along(plot_list)) {
        all_plots[[n]] <- div(style="padding:5px; margin: 5px;",plot_list[[n]])
    }
    return(all_plots)
})
...