当有斜率和截距系数时，R找到两条线之间的角度

Question

我有时间服务器：

x

4557  9940  9855  9894 10142  9501  9532  9229  9169  9214  9347  9176  8951  9344  9873  9970
9139  9420  9476  9205  9271  8632  8730  9336  9150  9601 10012  9841  9951  9222  8799  9316
10087  9677  9154  9019 10549  9629  9131  9560 10246 10982 11748  9054  8690  9923

tt<-1:length(x)

plot(x, xaxt = "n", type = "l", xlab = NULL, ylab = NULL, col = "royalblue2", lwd = 2.3)

我想添加线性趋势：

fit <- lm(x ~ tt)
co <- coef(fit)
co
    (Intercept)             tt 

    8940.23478           21.27031 

然后我需要找到两条红线之间的角度：

abline(8940.23478, 21.27031, col = "red", lwd = 2)
abline(8940.23478, 0, col = "red", lwd = 2)

我该如何管理？

以下是我的图表：

Answer 1

由于您的第二个斜率为0，因此计算此线与斜率为21.27031的线之间的角度非常简单：

atan(21.27031) * 180 / pi

# [1] 87.30828

线与x轴之间的角度约为87°。