Use sobrescritos em rótulos do eixo R

Usando gráficos de base em R, como posso adicionar sobrescritos a rótulos de eixos, como se poderia querer ao traçar eixos de latitude e longitude em um mapa.

Considere este exemplo:

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

Produz um quadro legal em torno de um mapa. Seria ainda melhor fazer o símbolo de grau sobrescrito.

Isso geralmente pode ser feito em outras funções de plotagem, comomtext() etext() usandoexpression(paste(...)) ousubstitute() mas como fazer isso neste caso?

questionAnswers(4)

yourAnswerToTheQuestion