Como adicionar sobrescritos e subscritos a gráficos em r

Você pode usar a seguinte sintaxe básica para adicionar sobrescritos ou subscritos a gráficos em 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)

Os exemplos a seguir mostram como usar essa sintaxe na prática.

Exemplo 1: Adicionar expoentes aos rótulos dos eixos

O código a seguir mostra como adicionar expoentes aos rótulos dos eixos de um gráfico em 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)

Observe que os eixos X e Y possuem um expoente em seus rótulos.

O expoente do eixo y está um pouco cortado no gráfico. Para aproximar os rótulos dos eixos do gráfico, podemos usar a função par() em 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) 

Nota : Escolhemos “3” como um valor aleatório para colocar como expoente. Sinta-se à vontade para colocar qualquer valor numérico ou caractere como sobrescrito.

Exemplo 2: Adicionar subscritos aos rótulos dos eixos

O código a seguir mostra como adicionar índices aos rótulos dos eixos de um gráfico em 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) 

Exemplo 3: Adicionando sobrescritos e subscritos dentro do gráfico

O código a seguir mostra como adicionar um sobrescrito a um elemento de texto dentro de um caminho:

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

Recursos adicionais

Como criar um gráfico de dispersão em R com múltiplas variáveis
Como criar gráficos de caixa lado a lado em R
Como sobrepor gráficos em R