Размещение метки оси

Question

У меня, наверное, довольно простой вопрос. Я хочу поставить метку оси Y горизонтально над осью Y вместо значения по умолчанию (вертикально вдоль оси Y). Вероятно, для этого требуется команда par (), но какая?

спасибо заранее!

Answer 1

Я не думаю, что par - это то, что вы хотите.Вы можете просто настроить значение по умолчанию, исключить метку оси Y с помощью ylab = "" и вручную добавить текст с помощью ввода текста на полях (mtext).Пример:

xx <- 1:20
yy <- 55 + 50 * xx - 3 * xx ^ 2

plot(x = xx, y = yy, type = "l", ylab="")
mtext("yy", side = 3, at = -1)

Или как функция:

newplot <- function(xx, yy) {
  plot(x = xx, y = yy, type = "l", ylab="")
  mtext(deparse(substitute(yy)), side = 3,
    at = - sum(range(xx)) / range(xx)[2])
}