Як додати верхні та нижні індекси до графіків у 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 мають експоненту в мітці.

Показник ступеня осі ординат трохи обрізаний на графіку. Щоб наблизити мітки до осей графіка, ми можемо використати функцію 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