I am having trouble keeping the superscript next to its symbol when using multiple lines of text in a base R plot. Consider the following example:
plot(c(0,1), c(0,1), axes=F, xlab="", ylab="", type='n')
x1 <- expression(paste("(1) here is some text s" ^-1))
text(0.5, 0.25, x1)
x2 <- expression(paste("(2) here is some text\n s" ^-1))
text(0.5, 0.5, x2)
Case "1" is fine, but in case "2" a lot of white space is added