tamaño - Use superíndices en las etiquetas del eje R

superindice en r

Question

Usando gráficos base en R, ¿cómo puedo agregar superíndices a las etiquetas de los ejes, como uno quisiera cuando se trazan los ejes de latitud y longitud en un mapa?

Considera este ejemplo:

plot(-100:-50, 50:100, type="n", xlab="", ylab="", axes=FALSE)
axis(1, seq(-100, -50, 10), labels=paste(abs(seq(-100, -50, 10)), "o", "W", sep=""))
axis(2, seq(50, 100, 10), labels=paste(seq(50,100,10), "o", "N", sep=""))
box()

Produce un bonito marco alrededor de un mapa. Sería incluso mejor hacer que el símbolo de grado se superíndice.

Esto generalmente se puede hacer en otras funciones de trazado tales como mtext() y text() usando expression(paste(...)) o substitute() pero ¿cómo hacerlo en este caso?

Answer 1

@The Thunder Chimp Puedes dividir el texto de tal forma que algunas secciones se vean afectadas por un script súper (o sub) y otras no por el uso de *. Para su ejemplo, con la división de la palabra "momento" de "4 °" -

plot(rnorm(30), xlab = expression(''4''^th*''moment''))

Answer 2

Este es un ejemplo rápido

plot(rnorm(30), xlab = expression(paste("4"^"th")))

Answer 3

Funciona de la misma manera para los ejes: el parse(text=''70^o*N'') elevará la o como un superíndice (la *N es para asegurarse de que la N tampoco se eleve).

labelsX=parse(text=paste(abs(seq(-100, -50, 10)), "^o ", "*W", sep=""))
labelsY=parse(text=paste(seq(50,100,10), "^o ", "*N", sep=""))
plot(-100:-50, 50:100, type="n", xlab="", ylab="", axes=FALSE)
axis(1, seq(-100, -50, 10), labels=labelsX)
axis(2, seq(50, 100, 10), labels=labelsY)
box()

Answer 4

La otra opción en este caso particular sería escribir el símbolo de grado: ˚

R parece manejarlo bien. Escriba Option-k en una Mac para obtenerlo. No estoy seguro sobre otras plataformas.