R中箱线图的线性回归

我有一个时间序列的数据：

my_data=list()
my_data[["t1"]]=c(1,2,1,2,1,2,3,2,3,2,2,1,1,1,2)
my_data[["t2"]]=c(2,3,2,3,4,1,2,3,2,1,4,4,2,1,3,2,2,3)
my_data[["t3"]]=c(3,4,5,2,3,4,5,4,2,3,4,3,2,3,4,5,5,2)
my_data[["t4"]]=c(4,5,3,3,4,5,5,4,3,2,2,7,8,5)
my_data[["t5"]]=c(6,7,5,6,5,6,7,6,7,6,5,6,7,6,7,7,8,8)
boxplot(my_data)

我想在箱线图之间做一个线性回归，并在其上绘制趋势线，可能是R系数，如本例所示：

---

您可以使用

lm

进行回归，并使用

abline

boxplot(my_data)
Meds = data.frame(x = 1:5, y = sapply(my_data, median))
abline(lm(y ~ x, data=Meds))

---

你的意思还不太清楚。你想让回归线穿过盒子吗？连接手段的锯齿线？还有，你真的想让变量名从0增加到2，然后再增加1吗？我想说的是中位数而不是平均数。。。抱歉，我刚才跳过了t1，我将数据从t1重命名为T5！这就是我想要的！非常感谢！