如何修复直线与线段不匹配的分段回归图？ ggplot2 和分段包？

编程问答 2022-10-17

问题描述

我进行了分段回归，找到了断点并按照 this example 进行了绘制。根据结果​​，在107.4733处只有一个断点，因此预计会出现2行：在x的这个值之前和之后。但是，绘制时会出现 3 条线，表示 3 个线段。我该如何解决这个问题？错误在哪里？

library(ggplot2)
library(segmented)

x <- c(0,60,90,120,180,240)
y <- c(0.0000000,0.6900891,1.9523416,2.3142669,1.8167140,2.6999062)
data <- data.frame(x,y)
my.lm <- lm(y ~ x,data = data)
my.seg <- segmented(my.lm,seg.Z = ~ x)

my.fitted <- fitted(my.seg)
my.model <- data.frame(x = data$x,y = my.fitted)

ggplot(my.model,aes(x = x,y = y)) + geom_line() +
  geom_vline(xintercept = my.seg$psi[2])

enter image description here

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

ggplot2piecewiserrsegment