# [R] plot portion of a line

Gabor Grothendieck ggrothendieck at gmail.com
Tue Jan 16 18:39:27 CET 2007

```As in Dmitris' post lines is a somewhat more succint so here it is
again replacing segments with lines:

set.seed(1)

x <- rnorm(50)
y <- rnorm(50)

plot(y ~ x)

y.lm <- lm(y ~ x)

abline(y.lm) # omit this line if black abline not wanted

x0 <- c(-2, 4)
y0 <- predict(y.lm, list(x = x0))
lines(y0 ~ x0, col = "red", lwd = 2)

On 1/16/07, Gabor Grothendieck <ggrothendieck at gmail.com> wrote:
> Use segments. In the following we overlay the black abline with
> a wider red segments line segment:
>
>
> set.seed(1)
> x <- rnorm(50)
> y <- rnorm(50)
>
> plot(y ~ x)
>
> y.lm <- lm(y ~ x)
>
> abline(y.lm) # omit this line if black abline not wanted
>
> x0 <- c(-2, 4)
> y0 <- predict(y.lm, list(x = x0))
> segments(x0[1], y0[1], x0[2], y0[2], col = "red", lwd = 2)
>
>
>
> On 1/16/07, BBands <bbands at gmail.com> wrote:
> > Dear HelpeRs,
> >
> > Given:
> > x <- rnorm(50)
> > y <- rnorm(50)
> > plot(x,y)
> > abline(lm(x ~ y))
> >
> > Is there a way to plot just a portion of the line? Say for values of x
> > > 2.0 or x > -2.0 and x < 4.0. (Still fitting all the points.)
> >
> > Thank you,
> >
> >    jab
> > --
> > John Bollinger, CFA, CMT
> > www.BollingerBands.com
> >
> > If you advance far enough, you arrive at the beginning.
> >
> > ______________________________________________
> > R-help at stat.math.ethz.ch mailing list
> > https://stat.ethz.ch/mailman/listinfo/r-help