Question

也许是因为这个问题是如此基本，我能想到的关键词都会引导我去做其他事情。我试图绘制一个连接中位数的尖锐曲线的图形。实际数据非常大，但起始值是（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)

如您所见，该行未连接到起始（0,0）值，而是从下一个最低级别开始。我很想欺骗，但它没有连接到线路，我真的更喜欢用其余的代码来解决它，而不是试图将两条线路作为一个传递：

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

我发现的一些相关答案并不适合我的情况。 Line in R plot should start at a different timepoint例如建议修改数据，这无助于扩展我的行，加上我的实际数据太大，以至于我不小心做这种操作。我不想使用plot(x,y,type="l")，即使它经过（0,0）点，因为1）它在巨大的数据上看起来很糟糕，2）我将不得不使用{{1覆盖另一个相似的行}}。我想知道它是否与lines()有更多关系而与rqss更少关系？

如果之前已经被问过，我道歉。

强制行的起点（）

0 个答案: