[R] another superscript problem

[Peter Ehlers]

On 2010-12-28 11:17, Tyler Dean Rudolph wrote:
> Part of the reason I was having difficulty is that I'm trying to add a
> legend with more than one element:
>
> plot(1,1)
> obv = 5
> txt = "Pop mean"
>
> # this works
> legend("topleft", legend=bquote(.(txt) == .(obv)*degree))
>
> # but this doesn't
> legend("topleft", legend=c(bquote(.(txt) == .(obv)*degree), "Von Mises
> distribution"))
>
> How can I go about using multiple legend elements with
> mathematical/latin annotation in both?
>
> Tyler
>
[...snip...]

If you want the secondary text on the same line,
here are 3 ways to do that:

  txt2 <- "(Von Mises distribution)"
  txt3 <- "Von Mises distribution"

  plot(1:10, type='n')
  legend(4,2, legend =
    bquote(.(txt) == .(obv)*degree~~.(txt2)))
  legend(4,4, legend =
    bquote(.(txt) == .(obv)*degree~~group( "(", list(.(txt3)), ")" )))
  legend(4,6, legend =
    bquote(.(txt) == .(obv)*degree~~bgroup( "(", list(.(txt3)), ")" )))

The second and third just produce slightly nicer (I think) parentheses.
For the two-line display use Baptiste's suggestion.
(Note that you can't use \n in plotmath expressions, as per help page.)

Peter Ehlers