Как добавить верхние и нижние индексы к графикам в r

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

#createplot
plot(x, y, xlab = x_expression, ylab = y_expression)

Обратите внимание, что оси X и Y имеют в метках показатель степени.

Экспонента по оси Y на графике немного обрезана. Чтобы приблизить метки к осям графика, мы можем использовать функцию par() в R:

 #adjust by values (default is (3, 0, 0))
by(mgp=c(2.5, 1, 0))

#createplot
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)

#createplot
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)

#createplot
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