Rmarkdown: почему графика внутри цикла пропускает страницы? - PullRequest
Новая
       79

Rmarkdown: почему графика внутри цикла пропускает страницы?

0 голосов
/ 01 января 2019

Я пишу отчет в Rmarkdown и обнаружил некоторые проблемы с отображением графики ggplot2 внутри цикла for.Проблема в том, что я получаю пропуск страницы между изображениями в своем выводе PDF.

Мой код работает отлично, и я уже протестировал несколько альтернатив: я нарисовал две копии некоторой графики вне цикла, и проблема была в том, чторешена.Кроме того, печать некоторого случайного сообщения в начале и в конце итерации предполагает, что при увеличении переменной цикла происходит автоматический разрыв страницы.кто-нибудь знает, как решить эту проблему?

Заранее спасибо

РЕДАКТИРОВАТЬ: ДОБАВЛЕНИЕ КОДА 

library(dplyr)
library(ggwordcloud)

for(i in 1:7){
  aux <- arrange(as.data.frame(extrai_palavras(dados[i, ], "count")), desc(Freq))
  med <- mean(aux$Freq)
  sd <- sd(aux$Freq)
  aux <- aux %>% filter(Freq - med > 2 * sd)
  ggwordcloud2(aux) %>% print()
}

Я не могу загрузить свои данные здесь, но это фрейм данных с двумя столбцами, один первыйявляется токеном слова, а вторая - частотой слова (Freq).

РЕДАКТИРОВАТЬ 2: ВОСПРОИЗВОДИМЫЙ ПРИМЕР

Вот воспроизводимый пример, который не имеет абсолютно никакого смысла, но порождает мою проблему, когдаPDF генерируется из него. 

library(tidyverse)
treshold <- c(0, 10, 20, 30, 40)
for(i in 1:(length(treshold)-1)){
  plot <- mtcars%>%
    filter(mtcars$mpg > treshold[i] && mtcars$mpg < treshold[i+1]) %>%
    ggplot(aes(x = disp, y = hp, fill = as.factor(cyl)))+
    xlab("") + 
    ylab("Total de ocorr?ncias") + 
    ggtitle("Palavras mais frequentes") +
    coord_flip() + 
    geom_point()
  print(plot)
}
...