Угол наклона для подписи для линии тренда

Вопросы по статистическому пакету R. Не обязательно гео.
Ответить
Аватара пользователя
VistaSV30
Активный участник
Сообщения: 185
Зарегистрирован: 02 июл 2018, 15:05
Репутация: 7
Откуда: Балашиха

Угол наклона для подписи для линии тренда

Сообщение VistaSV30 » 06 окт 2020, 12:00

Добрый день!
Подскажите как определить угол наклона (angle) для подписи линии тренда? Нужно, чтобы подпись шла параллельно линии.

Код: Выделить всё

df <- data.frame(x=1:5, y=sample(0:10,5))
library(ggplot2)

fit <- lm(y ~ x, data = df) # коэфф. уравнения регрессии
bs <- round(coef(fit), 3) # округление коэффициентов
lmlab <- paste0("y = ", bs[1], # текст формулы
                ifelse(sign(bs[2]) == 1, " + ", " - "), abs(bs[2]), " x ")

ggplot(df, aes(x=x, y=y)) +
  geom_line() +
  geom_smooth(method = "lm", se = FALSE) +
  annotate("text", x = 3, y = bs[1]+3*bs[2]+0.3, label = paste("Линейный тренд: ", lmlab),
           color = "red", angle = 35, size=3.2) 
Сейчас просто поставил angle = 35. При изменении соотношения сторон, угол наклона подписи не изменяется вместе с наклоном линии тренда
Природа не просто эксцентричнее, чем мы полагаем - она эксцентричнее, чем мы способны предположить. John Haldane

Данила Власов
Новоприбывший
Сообщения: 1
Зарегистрирован: 10 июл 2020, 20:28
Репутация: 2
Откуда: Балашиха

Re: Угол наклона для подписи для линии тренда

Сообщение Данила Власов » 10 окт 2020, 11:14

По-моему, лучше вставить это уравнение внизу в уголке поля диаграммы и не заморачиваться. :)

Ответить

Вернуться в «R»

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 6 гостей