Выражение и новая строка в метках графика

Question

Я хочу добавить некоторые индексы и надписи к моим меткам графа. Я попробовал expression, но он не работает, как я хочу, с новыми строками (\n). Я пытаюсь исправить это, используя paste, но он не работает. Ниже приведены некоторые из моих попыток:

par(mfcol=c(1,3)) 
plot(1,1,main=expression("first line \n second line x"^2)) 
plot(1,1,main=expression(paste("first line \n second line", "x"^2))) 
plot(1,1,main=paste("first line \n second line", expression("x"^2))) 

Он производит:

В первых двух картинах вторая линия не очень хорошо сосредоточенными, в третьем верхний индекс не удается. Как получить как центрированную линию, так и индексы/верхние индексы?

Answer 1

Вы можете ввести разрыв строки внутри выражения: (. Я использую bquoteexpression, а не здесь - как работа в этом случае)

bquote(atop("first line", 
      "second line" ~ x^2)) 

Execute demo(plotmath) для получения дополнительной информации и посмотреть в документации для atop.

boxplot, по-видимому, имеет некоторые проблемы с интерпретацией выражений в его названии. Простое исправление заключается в том, чтобы нанести заголовок отдельно:

boxplot(data, main = '') 
title(bquote(atop("first line", "second line" ~ x^2))) 

Answer 2

Быстрое решение заключается в добавлении некоторых пробелов перед словом «первым».

Поскольку plotmath не поддерживает новые строки, вы можете использовать mtext для создания линии по одному, как это:

plot(1,1) 
exp <- 2 
Lines <- list(bquote("first line"),bquote("second line x"^2)) 
mtext(do.call(expression, Lines),side=3,line=1:0)