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

我有时间体验：

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)

我该怎么办

---

这是我的图表：

因为你的第二个斜率是

0

，所以计算这条线和斜率为

21.27031

的那条线之间的角度非常容易：

atan(21.27031) * 180 / pi

# [1] 87.30828

---

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

提示：您可以忽略截距。

angle=atan（abs（（m2-m1）/（1+m1*m2））

谢谢您的回答。我已经计算过了。但是看看这张图片：不可能有角度87degrees@user3227114如果没有x轴标签，则无法从图形中看到角度。请注意，您可以更改绘图的高度和宽度，尽管角度始终相同，但角度可能会有所不同。非常感谢！但我仍然有一个问题。也许你能帮我解决这个问题？我还有另一个时间序列x 1.1334211.3092561.3224761.3514251.3191681.3340701.323227 1.328096 1.3217361.3402431.348989 1.3255231.3216401.3606591.366150 1.344534 1.3271691.326431.372520 1.395546 1.365872 1.335496 1.3801831.425236 1.3306011.334441.39561.3822 1.39721.35831.83821.356309 1.339961 1.307129 1.331690 1.301070 1.290220 1.302197 1.497267 1.531415 1.549200 1.393307 1.324051 1.323692@SvenHohenstein，图形看起来相同，但斜率为0.001841031。为什么会这样？@user3227114使用以下命令绘制具有相同x轴和y轴限制的绘图：

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

atan(21.27031) * 180 / pi

# [1] 87.30828