Superscripts en subscripts toevoegen aan plots in r

U kunt de volgende basissyntaxis gebruiken om superscripts of subscripts toe te voegen aan plots in 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)

De volgende voorbeelden laten zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld 1: Exponenten toevoegen aan aslabels

De volgende code laat zien hoe u exponenten kunt toevoegen aan de aslabels van een plot in 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)

Merk op dat de X- en Y-assen beide een exponent in hun label hebben.

De exponent van de y-as wordt in de grafiek een beetje afgekapt. Om de labels dichter bij de assen van de plot te brengen, kunnen we de functie par() in R gebruiken:

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

Opmerking : we hebben “3” gekozen als willekeurige waarde om als exponent te plaatsen. Voel je vrij om elke numerieke waarde of elk teken als superscript te plaatsen.

Voorbeeld 2: Subscripts toevoegen aan aslabels

De volgende code laat zien hoe u indices toevoegt aan de aslabels van een plot in 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) 

Voorbeeld 3: Superscripts en subscripts toevoegen aan de plot

De volgende code laat zien hoe u een superscript toevoegt aan een tekstelement binnen een pad:

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

Aanvullende bronnen

Hoe u een spreidingsdiagram in R maakt met meerdere variabelen
Hoe u side-by-side boxplots maakt in R
Plotten overlappen in R