Угол наклона для подписи для линии тренда
Добавлено: 06 окт 2020, 12:00
Добрый день!
Подскажите как определить угол наклона (angle) для подписи линии тренда? Нужно, чтобы подпись шла параллельно линии.
Сейчас просто поставил angle = 35. При изменении соотношения сторон, угол наклона подписи не изменяется вместе с наклоном линии тренда
Подскажите как определить угол наклона (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)