使用 Knitr 超出 TeX 容量

Question

由于我认为 TeX 容量限制，我无法使用 RStudio 编织包含 LaTeX 和 R 代码的文档。有没有办法解决这个问题，而不必使用 knitr 不支持的 LuaLaTeX 进行编译？我希望文档尽可能便于移植。下面是最小代码块（没有实际数据）：

<<MyPlot, echo=FALSE, eval=TRUE, warning=FALSE, cache=TRUE, 
message=FALSE,include=TRUE>>=

library(ggplot2)
cbPalette <- c("#009E73", "#CC79A7")
pd <- position_dodge(0.4)

plot1<-ggplot(data=summary, aes(x=label, y=V10, colour=Adv, group=Adv)) +
  scale_colour_manual(values=cbPalette) +
  geom_errorbar(aes(ymin=V10-ci, ymax=V10+ci), width=.6, position=pd) +
  geom_line(position=pd, size = 1) +
  geom_point(position=pd, size = 3) +
  theme_bw() +
  theme(axis.text = element_text(size = 15)) +
  theme(axis.title = element_text(size = 25)) +
  theme(text = element_text(size = 20)) +
  theme(plot.margin=unit(c(0,0,0,0),"mm")) +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust=1)) +
  ylab("My y axis") + 
  xlab("My x axis") + 
  theme(legend.justification=c(0,1), legend.position=c(0,1)) +
  theme(plot.margin = unit(c(0.2,0.2,0.2,0.2), "cm")) +
  facet_grid(. ~ scale) +
  ggtitle("") 
plot1
@

我编译 pdf 时收到的错误消息是：

TeX capacity exceeded, sorry [parameter stack size=10000]

如果我省略上面代码的最后一行并且不需要打印图表，则代码可以正常运行。