R语言在简单绘图轴不是ggplot中垂直对齐的下标和上标？

如何解决R语言在简单绘图轴不是ggplot中垂直对齐的下标和上标？

抱歉这个愚蠢的问题，即使在谷歌搜索一段时间后我也无法解决它。我知道我可以用这样一种简单的方式在轴标签中生成带有上标的图：

dta <- data.frame(LON = runif(20,-10,10),LAT = runif(20,10))
plot(dta,xlim = c(-10,ylim = c(-10,axes = F)
axis(1,at = seq(-10,10,2),labels = paste0(abs(seq(-10,2)),"º"))
axis(2,"º"),las = 2)

然而，我真正需要的是这样的：

我使用 Photoshop 制作了这个，但我迭代地产生了大量的图，而这个解决方案是负担不起的。请注意以下事实：(1) 上标和下标都是垂直对齐的，(2) 下标是斜体的，(3) 下标是可变的。我试图通过使用以下命令“覆盖”轴来解决这种情况：

mtext(c(rep("S",6),"",rep("N",6)),side = 2,line = -0.2,outer = FALSE,2)-0.4,font = 3,cex = 0.3,las = 2)

然而，每次我决定改变情节的分辨率或大小时，这很痛苦，因为它们的制作速度很慢，我必须做几次，直到在“行”中获得足够的数量。请问有人能帮我解决这个问题吗？

解决方法

vec <- seq(-10,10,2)
plot(dta,xlim = c(-10,10),ylim = c(-10,axes = F)
axis(1,at=vec,labels=as.expression(mapply(function(num,sub) bquote(.(num)[italic(.(sub))]^degree),abs(vec),ifelse(vec > 0,"E",ifelse(vec < 0,"W","")))))
axis(2,"N","S","")))),las=2)