R help - Aug 2009 - "helper" lines in plot. From point to axis.

This is a very basic question. I am just wondering if there is a function
where i can choose a vector of points, and them helper lines are drawn.

I am asking because lines seams to be a cumbersome way to do this.

E.g.
x <- 1:36
plot(log(x,1.1),xlab="Number of months",
ylab="Visits(1000)",main="webpage
visits")
abline(h=log(12,1.1),col="red",lty=2)
mtext(round(log(12,1.1)),side=2,at=log(12,1.1),las=2,outer=F,
col="red")
abline(h=log(24,1.1),col="red",lty=2)
mtext(round(log(24,1.1)),side=2,at=log(24,1.1),las=2,outer=F,
col="red")
abline(h=log(36,1.1),col="red",lty=2)
mtext(round(log(36,1.1)),side=2,at=log(36,1.1),las=2,outer=F,
col="red")

In this example ablines are easy - but not good because the extend beynd the
points.

What I would like is something like
helper.lines(x=c(12,24,36), lty=2, col="red",text=T)

If "text=True" the lines are annotated with the points corresponding x
and y
value.

Is there something that doed this?

Hope my explanation makes sense.

Sincerely.

	[[alternative HTML version deleted]]

Looks like nobody answered so far?

If I understood it correctly, you want something like:

x <- 1:36
plot(x,  log(x, 1.1), xlab="Number of months", 
ylab="Visits(1000)",
main="webpage visits")

helper.lines <- function(x, y, lty=2, col="red", text=TRUE){
     segments(par("usr")[1], y, x, y, col=col, lty=lty)
     mtext(paste("(", round(x), ", ", round(y),
")", sep=""), side=2,
at=y, las=2, outer=FALSE, col=col)
}

helper.lines(x=c(12, 24, 36), y=log(c(12, 24, 36), 1.1), lty=2, 
col="red", text=TRUE)

Best,
Uwe Ligges





Andreas Christoffersen wrote:
> This is a very basic question. I am just wondering if there is a function
> where i can choose a vector of points, and them helper lines are drawn.
> 
> I am asking because lines seams to be a cumbersome way to do this.
> 
> E.g.
> x <- 1:36
> plot(log(x,1.1),xlab="Number of months",
ylab="Visits(1000)",main="webpage
> visits")
> abline(h=log(12,1.1),col="red",lty=2)
> mtext(round(log(12,1.1)),side=2,at=log(12,1.1),las=2,outer=F,
col="red")
> abline(h=log(24,1.1),col="red",lty=2)
> mtext(round(log(24,1.1)),side=2,at=log(24,1.1),las=2,outer=F,
col="red")
> abline(h=log(36,1.1),col="red",lty=2)
> mtext(round(log(36,1.1)),side=2,at=log(36,1.1),las=2,outer=F,
col="red")
> 
> In this example ablines are easy - but not good because the extend beynd
the
> points.
> 
> What I would like is something like
> helper.lines(x=c(12,24,36), lty=2, col="red",text=T)
> 
> If "text=True" the lines are annotated with the points
corresponding x and y
> value.
> 
> Is there something that doed this?
> 
> Hope my explanation makes sense.
> 
> Sincerely.
> 
> 	[[alternative HTML version deleted]]
> 
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.