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

40

Используя базовую графику в 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() но как это сделать в этом случае?

Error: User Rate Limit Exceededplot(0,xlab=expression(paste('(SOC[',kgm^-2,'])'^0.25,sep='')))Error: User Rate Limit Exceeded Eric Fail

Ваш Ответ

4   ответа
1

Error: User Rate Limit Exceeded

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

Error: User Rate Limit Exceeded

plot(rnorm(30), xlab = expression(paste("4"^"th")))
Error: User Rate Limit Exceededplot(rnorm(30), xlab = expression(paste("4"^"th", " moment")))
Error: User Rate Limit Exceeded
40

Error: User Rate Limit Exceededparse(text='70^o*N')Error: User Rate Limit ExceededoError: User Rate Limit Exceeded*NError: User Rate Limit Exceeded

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()
Error: User Rate Limit Exceeded digitalmaps
Error: User Rate Limit Exceeded
Error: User Rate Limit Exceeded
Error: User Rate Limit Exceeded?plotmath)
plot(0,xlab=expression('Frequency (364 days)' ^ -1))
3

Error: User Rate Limit Exceeded

Error: User Rate Limit Exceeded

Error: User Rate Limit Exceededfileformat.info/info/unicode/char/2077/index.htm)

Похожие вопросы