Используя базовую графику в 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(), но как это сделать в этом случае?
Он работает одинаково для осей: parse(text='70^o*N') поднимет o как верхний индекс (*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")))
Другой вариант в этом конкретном случае - ввести символ степени: ˚
R, похоже, отлично справляется с этим. Введите Option-k на Mac, чтобы получить его. Не уверен в других платформах.
@The Thunder Chimp Вы можете разделить текст таким образом, что на некоторые разделы влияет супер (или sub) script, а другие не используются *. Для вашего примера, разделив слово "момент" с "четвертого" -
plot(rnorm(30), xlab = expression('4'^th*'moment'))