问题描述
抱歉这个愚蠢的问题,即使在谷歌搜索一段时间后我也无法解决它。我知道我可以用这样一种简单的方式在轴标签中生成带有上标的图:
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)
然而,每次我决定改变情节的分辨率或大小时,这很痛苦,因为它们的制作速度很慢,我必须做几次,直到在“行”中获得足够的数量。请问有人能帮我解决这个问题吗?