'pos' эквивалент при использовании функции mtext

Question

Я обычно использую mtext для добавления меток к рисункам. Я часто использую sh для нанесения меток в верхнем левом углу фигуры. Это легко, используя par ('usr') [1], за исключением того, что текст центрирован, а не направлен так, как я хочу. При использовании 'text' я бы использовал pos = 4, но, похоже, это не эквивалентно этому для mtext. Пример:

plot(1)
text(par('usr')[1], 1.5, "test", xpd=TRUE, pos=4)
mtext('test', 3, at=par('usr')[1])

Я бы не хотел просто добавлять значения в at = или использовать adj =, поскольку я часто строю несколько панелей с разными осями.

Answer 1

Используйте adj= на базовых участках:

plot(1)
usr <- par("usr")
text(usr[1], usr[3], adj = c(-0.1, -0.1), "lower-left")
text(usr[2], usr[3], adj = c( 1.1, -0.1), "lower-right")
text(usr[1], usr[4], adj = c(-0.1,  1.1), "upper-left")
text(usr[2], usr[4], adj = c( 1.1,  1.1), "upper-right")

От ?text:

 adj: one or two values in [0, 1] which specify the x (and
      optionally y) adjustment ('justification') of the labels,
      with 0 for left/bottom, 1 for right/top, and 0.5 for
      centered.  On most devices values outside [0, 1] will also
      work.  See below.

Я использую -0.1 и 1.1, чтобы немного вставить от самой линии поля. Компонент .1 может потребоваться настроить в зависимости от остальной части графика.