У меня есть цикл R, который создает граф леса в каждой итерации, используя метафору. Граф леса имеет одну строку на выборку, а каждая итерация имеет разное количество выборок, поэтому мне нужно, чтобы высота значительно варьировалась (в настоящее время от 2,5 до 8 дюймов).

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

Я также нашел заметку на пользовательских графических устройствахВот, но я не знаю, как изменить графическое устройство в середине куска. Я пытался просто использоватьopts_chunk$set(fig.width=fheight) в каждой итерации цикла, но не повезло.

MWE

\documentclass{article}

\begin{document}

 <<Mwe, echo=FALSE, results = 'asis', message='FALSE', fig.width=7,warning='FALSE'>>=

 heights <- c(2.5, 8)

 for(counter in 1:length(heights)) {
  opts_chunk$set(fig.height=heights[counter]) #This doesn't appear to change anything
  par(fin=c(7, heights[counter]) #this makes the plot have the correct height, but I get a 2.5 inch high plot vertically centered in a 7 inch high pdf. 
  hist(rnorm(100))

  cat("Some long text which describes a lot of stuff about this graphic before making a new subsection for the next one")
 }

@

\end{document}