Увеличить одиночный символ (/) в выражении 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]))

Что приводит к этому участку:

Можно ли сделать символ деления ("/") выше, чтобы он правильно делил два выражения и не выглядел так, как будто он стреляет из D ₂ ?

Моя попытка нарисовать его вручную с помощью cex> 1 привела к появлению уродливого и жирного символа деления. Я не хочу, чтобы это толще, просто выше.

Я ищу решения, использующие методы базового сюжета.

Answer 1

Если вы не возражаете против использования latex, вы можете экспортировать график, используя tickz. Это раскроет всю мощь латексного форматирования. Например. со знаком деления стандартного размера это выглядит так:

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()

или, если вам нужен еще больший знак деления, вы можете использовать один из латексных кодов (в порядке возрастания размера) \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()