Вы можете использовать следующий базовый синтаксис для добавления надстрочных или нижних индексов к графикам в R:
#define expression with superscript
x_expression <- expression(x^ 3 ~ variable ~ label)
#define expression with subscript
y_expression <- expression(y[ 3 ] ~ variable ~ label)
#add expressions to axis labels
plot(x, y, xlab = x_expression, ylab = y_expression)
В следующих примерах показано, как использовать этот синтаксис на практике.
Пример 1. Добавление надстрочных индексов к меткам осей
В следующем коде показано, как добавить надстрочные индексы к меткам осей графика в R:
#define data
x <- c(1, 2, 3, 4, 5, 6, 7, 8)
y <- c(9, 12, 14, 16, 15, 19, 26, 29)
#define x and y-axis labels with superscripts
x_expression <- expression(x^3 ~ variable ~ label)
y_expression <- expression(y^3 ~ variable ~ label)
#create plot
plot(x, y, xlab = x_expression, ylab = y_expression)

Обратите внимание, что и ось x, и ось y имеют надстрочный индекс в своей метке.
Верхний индекс оси Y немного обрезан на графике. Чтобы переместить метки осей ближе к графику, мы можем использовать функцию par() в R:
#adjust par values (default is (3, 0, 0))
par(mgp=c(2.5, 1, 0))
#create plot
plot(x, y, xlab = x_expression, ylab = y_expression)

Примечание.Мы выбрали «3» в качестве случайного значения для размещения в верхнем индексе. Не стесняйтесь помещать любое числовое значение или символ в верхний индекс.
Пример 2. Добавление индексов к меткам осей
В следующем коде показано, как добавить индексы к меткам осей графика в R:
#define data
x <- c(1, 2, 3, 4, 5, 6, 7, 8)
y <- c(9, 12, 14, 16, 15, 19, 26, 29)
#define x and y-axis labels with superscripts
x_expression <- expression(x[3] ~ variable ~ label)
y_expression <- expression(y[3] ~ variable ~ label)
#create plot
plot(x, y, xlab = x_expression, ylab = y_expression)

Пример 3: добавьте верхние и нижние индексы внутри графика
В следующем коде показано, как добавить верхний индекс к текстовому элементу внутри графика:
#define data
x <- c(1, 2, 3, 4, 5, 6, 7, 8)
y <- c(9, 12, 14, 16, 15, 19, 26, 29)
#create plot
plot(x, y)
#define label with superscript to add to plot
R2_expression <- expression(paste("", R^2 , "=", .905))
#add text to plot
text(x = 2, y = 25, label = R2_expression)

Дополнительные ресурсы
Как создать диаграмму рассеяния в R с несколькими переменными
Как создать параллельные диаграммы в R
Как накладывать графики в R