在同一rnw代码块中的不同图形中指定不同的高度

Question

我正在生成任意数量的保存为列表的图形。然后，我将它们全部打印出来。不幸的是，这些图具有不同数量的类别变量，并且使所有图具有相同的大小会浪费大量空间或使某些图难以辨认。有办法吗？

我尝试向代码块中输入一个高度矢量，就像我输入标题一样，但是突出显示一个并应用于所有

RepEx：

\documentclass{article}
\usepackage{hyperref}
\usepackage{cleveref}
\begin{document}

<<echo=FALSE>>=
library(knitr)
library(ggplot2)
library(markdown)
library(rmarkdown)

opts_chunk$set(tidy.opts=list(width.cutoff=40),tidy=TRUE, warning=FALSE, messages=FALSE, comment = NA, error = FALSE, results = FALSE, echo=FALSE, fig.height=4, fig.align = "center", fig.width=7.5)
opts_knit$set(eval.after = "fig.cap", fig.pos="H")
@


<<echo=FALSE>>=
## Plot 1
listOfPlots <- list(ggplot(data = diamonds) +
  geom_point(aes(carat, price)),
## Plot 2
  ggplot(data = diamonds) +
    geom_point(aes(carat, depth))
)

names(listOfPlots) <- c("This is caption 1", "This is caption 2")
figname <- "zefigures"
@



<<zefigures, fig.cap = c("This is caption 1", "This is caption 2"), echo=FALSE, fig.width=c(4,8) >>=
listOfPlots
@


\end{document}