在 R 中将 LaTeX 与 TikZDevice 结合使用：是否可以将 Tikzfigures 的字体设置为 10，而将文本的字体设置为 12？

Question

编辑

（完全重写原始答案，因为问题显示的代码可以更好地理解问题。）

A) 首先，您的 R 代码有问题。您似乎创建了一个“文档无关”的 tikz 图片，但没有使用选项standAlone=TRUE，所以我猜这tikzDocumentDeclaration没有效果，并且该图形是按默认值（10pt）计算的。12pt latex 文本中用于 10pt 的 tikz 图片可能会产生此标签溢出。

但即使制作一个添加此选项的独立 TeX 文档，tkiz 的字体指标调整似乎也会以这种方式失败（下面的 R 脚本，在 12pt 文档中制作了错误的图片，的输出trialfigure.tex包含在下图 1 中MWE.Rnw）：

剧本MWE.R：

require(ggplot2)
require(tikzDevice)

options(tikzDocumentDeclaration = "\\documentclass[12pt]{article}")
    
trialfigure <- ggplot(mpg, aes(y = class)) +
  geom_bar(aes(fill = drv)) +
  scale_fill_discrete(labels = c("4" = "really long label")) +
  theme(legend.position = "bottom")

trialfigure
tikz('trialfigure.tex', 
     width = 6.5, height = 4.875, 
     standAlone=TRUE,
     sanitize = TRUE) 
print(trialfigure)
dev.off()

现在你有几种解决这个问题的方法：

不要问我为什么，但是将源代码中的标签“非常长的标签”更改为“非常长的标签”（只需将“o”替换为“a”）就可以解决这个问题。这似乎是一个错误，无法用这个确切的标签测量 12pt 的正确尺寸，但用 10pt 或 11pt 则不行。我认为使用明显更长的 12 pt 标签作为“非常长的长标签”没有任何问题。但想想其他计算错误的情况：
大概是，将pointsize=12选项添加到tikz()函数中。如果无法生成具有有效 Latex 字体大小的数学运算，则将其用作基本字体大小tikzDocumentDeclaration。但它不适用于该死的“非常长的标签”。
将图像设为默认的 10 pt，保存 pdf，然后在最终文档中将图像放大 20%（比例=1.2）。
编辑trialfigure.tex并 \begin{tikzpicture}在行中更改 [x=1pt,y=1pt]为[x=1.2pt,y=1.2pt]，并注意tikz()在需要时在函数中按比例减小图片尺寸，以避免在 LaTeX 端调整大小。
或者，通过 .Rnw 文件制作“几乎”相同的独立文档knitr。现在 R 将正确地为 12 pt 制作图形，因此无需修改或缩放即可使用（图 2）。不知道为什么“非常长的标签”在这里没有问题，但尽管图看起来相同，但所有 tikz 坐标都不同，所以也许这可以避免错误？

B) 其次，正如原始答案中所述，您在使用 LaTeX 时也遇到了问题\resizebox。在 12pt 文档中使用 10pt 的正确 tikz 代码会产生标签溢出（任何标签，不仅仅是这个奇怪的标签），但除此之外，字体大小在图表之间和与正文之间会不一致，具体取决于每个字体是放大还是缩小，非常丑陋。如果您包含 pdf 图像而不是 tikz 代码，则在使用任何类型的重新尺寸、通过 \includegraphics选项或文档自动设置图像尺寸（例如：\setkeys{Gin}{width=3cm,height=3cm}）时，您将面临同样的问题。特别要注意，Rstudio 报告在 PDF（通过 LaTeX）中使用模板自动缩小超过\maxdimen（图 3）的大文件。因此，如果最终字体大小很重要，请再次注意 R 端的尺寸，以避免在 LaTeX 端重新尺寸。

尽管如此，请注意，无论您使用 R 脚本还是 knitr 将此图放大或缩小（10pt 或 12pt），tikz 节点对于轴刻度标签总是会缩放到 92% 或 73%。在 12pt 文档中，这意味着未缩放图像的字体大小分别约为 11pt 和 8pt。如果这很重要，您还应该cex在 R 端进行控制。

文件MWE.Rnw：

\documentclass[12pt]{article}
\usepackage[bmargin=1cm,tmargin=1cm]{geometry}
\usepackage{tikz}
\parskip1em\parindent0pt
\begin{document}

\begin{figure}[h!]
\centering
\includegraphics[scale=1]{trialfigure.pdf}
\caption{Plot generated by the standalone R script}
\end{figure} 

<<theplot,echo=F,include=F>>=
require(ggplot2)
trialfigure <- ggplot(mpg, aes(y = class)) +
  geom_bar(aes(fill = drv)) +
  scale_fill_discrete(labels = c("4" = "really long label")) +
  theme(legend.position = "bottom")
@
<<herewego,echo=F,dev='tikz',fig.cap="Plot generated with knitr.", fig.align='center', fig.width=4,  fig.height=2,  message=FALSE, fig.pos="h!">>=
trialfigure 
@

<<herewego2,echo=F,dev='tikz',fig.cap="The same but too big = smaller fonts.", fig.align='center', fig.width=6.5,  fig.height=2,  message=FALSE, fig.pos="h!">>=
trialfigure 
@
\end{document}

The MWE.pdf：

笔记：

是的，knitr工作流程非常不同，但恕我直言，除了很好地处理这个问题之外，还有很多优点。

Answer 1

编辑