Используйте верхние индексы в метках оси R

Используя базовую графику в R, как я могу добавить верхние индексы к меткам осей, как это может потребоваться при построении осей широты и долготы на карте.

Рассмотрим этот пример:

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

Создает красивую рамку вокруг карты. Было бы еще лучше сделать индекс степени надстрочным.

Обычно это можно сделать в других графических функциях, таких какmtext() а такжеtext() с помощьюexpression(paste(...)) или жеsubstitute() но как это сделать в этом случае?

Ответы на вопрос(4)

@ The Thunder Chimp Вы можете разделить текст таким образом, чтобы на некоторые разделы влиял супер (или под) сценарий, а на другие - без использования *. с разделением слова «момент» от «4-й» -

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

˚

R, кажется, справляется с этим хорошо. Введите Option-k на Mac, чтобы получить его. Не уверен насчет других платформ.

parse(text='70^o*N') подниметo как верхний индекс (the*N должен убедиться, что N тоже не поднимется).

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

Это быстрый пример

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

ВАШ ОТВЕТ НА ВОПРОС