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@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.

______________________________________________
R-help@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.

Reply via email to