r - 放大 R 表达式中的单个符号 (/)

Question

我有以下代码:

plot(x = 1, y = 1, xlim = c(1,2), ylim = c(1,2),
     ylab = expression(bgroup("(",A[B]^{C},")")[~D[2]] / bgroup("(",E[F]^{G},")")[~H]))

这导致了这个情节:



是否可以使除法符号(“/”)更高，以便正确地划分两个表达式并且看起来不像是从 D2 中射出的？

我用 cex>1 手动绘制它的尝试导致了一个丑陋而胖的除法符号。我不想要它更胖，只是更高。

我正在寻找使用基本绘图方法的解决方案。

Answer 1

如果您不介意使用 latex ，您可以使用 tickz 导出绘图.这将释放 latex 格式化的全部力量。例如。带有标准尺寸的分区标志，它看起来像这样:

library(devtools)
install_github('daqana/tikzDevice')
library(tikzDevice)

tikz('test.tex', width = 4, height = 3)
par(mar=c(3,6,3,3))
plot(x = 1, y = 1, 
  xlim = c(1,2), ylim = c(1,2),
  ylab = '$(A_B^C)_{D_2} / (E_F^G)_{H}$')
dev.off()

或者如果你想要一个更大的除法符号，你可以使用 latex 代码之一(按尺寸升序) \big/ , \Big/ , \bigg/ , 或 \Bigg/ :

tikz('test.tex', width = 4, height = 3)
par(mar=c(3,6,3,3))
plot(x = 1, y = 1, 
  xlim = c(1,2), ylim = c(1,2),
  ylab = '$\\left(A_B^C\\right)_{D_2} \\bigg/  \\left(E_F^G\\right)_{H}$')
dev.off()