在保存的 PDF 文件中生成 LaTeX 字体大小 \footnotesize of barplot

Question

代码生成的字体太小：

pdf("fileName.pdf", width=100, height=50)
par(mai=c(2, 1, 1, 1), lwd=2)
barplot(as.numeric(c(2, 4, 1, 6)), col = c("lightblue"),
        main="Bar plot",
        names.arg=c("This is bar 1...1","This is bar 1...2",
                    "This is bar 1...3","This is bar 1...4"),
        xpd=TRUE, las=2, lwd=2, 
        cex.axis=9, cex.names=9, cex.main=9)
dev.off()

代码生成的字体太大：

pdf("fileName.pdf", width=100, height=50)
par(mai=c(2, 1, 1, 1), lwd=2)
barplot(as.numeric(c(2, 4, 1, 6)), col = c("lightblue"),
        main="Bar plot",
        names.arg=c("This is bar 1...1","This is bar 1...2",
                    "This is bar 1...3","This is bar 1...4"),
        xpd=TRUE, las=2, lwd=2, 
        cex.axis=18, cex.names=18, cex.main=18)
dev.off()

问题：如何获得与文档字体相同的字体大小，即 \footnotesize.

要获得 LaTeX \footnotesize cexs 必须为 13、14 或 15。关于如何获得正确值的任何想法？它是可计算的吗？

Answer 1

一个 "bad" 解决方案是通过加载 PDF 来比较 PDF 文件中的字体大小，并测量使用 {\footnotesize{0}} 创建的“0”的大小（高度）和条形图中 (0,0) 处的“0”，标尺或三角形直接显示（屏幕）。

cex 对于不同的条形图（具有不同的宽度和高度）具有不同的价值。在我的例子中是 cex=9.

可以通过将 pdf 加载为图像（例如 PNG）和 select 计算手动创建的文本和条形图的区域以在每个区域中搜索一个“0”来实现相同的计算方法并相互比较两个零。

如果您知道如何使用一堆代码有效地做到这一点，请回复并提供您的 idea/s！

在保存的 PDF 文件中生成 LaTeX 字体大小 \footnotesize of barplot

Generate LaTeX font size \footnotesize of barplot in saved PDF file

latex

r

sweave