R 线的强制起点（）

也许是因为这个问题太基本了，我能为这个问题想出的关键词都会引导我去做其他事情。我试图用连接中间带的尖曲线绘制一个图表。实际数据非常大，但起始值是0,0的重复值：

DATA<-data.frame(time<-c(sort(rep(c(0,2,4,8,12),4))),
                 conc<-c(rep(0,4),rnorm(n=4,mean=30),
                        rnorm(n=4,mean=10),
                        rnorm(n=4,mean=35),
                        rnorm(n=4,mean=15)))
# Create blank graph
plot(NULL,NULL,xlab="Time",ylab="Conc",
     xlim=c(0,15),ylim=c(0,40),main="Example")
# Add line
require(quantreg)
require(plyr)
require(MatrixModels)
DATA<-plyr::arrange(DATA,time)
fit3<-rqss(DATA$conc~qss(DATA$time,constraint="N"),tau=0.5,data = DATA)
lines(unique(DATA$time)[-1],fit3$coef[1] + fit3$coef[-1],lwd=2)

我发现一些相关的答案不适合我的情况。 例如，建议修改数据，这无助于扩展我的范围，加上我的实际数据太大，我会谨慎地进行此类操作。我不想使用plotx，y，type=l，即使它穿过0,0点，因为1它在巨大的数据上看起来很糟糕，2我必须用线覆盖另一条类似的线。我想知道它是否更多地与RQS有关，而较少与线路有关

---

如果以前有人问过这个问题，我很抱歉。

我不知道你在问什么。。您只需要从{0,0}到第一个段的附加段吗？这样地？linesc0，uniqueDATA$time[-1]，c0，fit3$coef[1]+fit3$coef[-1]，lwd=2@rawr哇，是的，这就解决了我的问题。因为DATA$time的第一个值是0，而不是用[-1]省略它，然后用c0重新添加它。。。您只需将第一个参数设置为uniqueDATA$time。您仍然需要c0。。。对于y值的第二个参数。@Gregor谢谢你们。你们中的任何一个想回答主要问题，这样我就可以选择你作为我的答案了吗？我将把它留给@rawr，他是知道你想要什么的人。不过如果他不马上做，你可以自己写一个很好的答案。

# Cheating getaway but does not work well, segments are not connected
segments(x0=0,y0=0,x1=2,y1=30,lwd=2)