Dear R-users,

would you know a nice way to use the command "lend" in the legend?

The following code gives you a really simple example and a inefficient
workaround.

Thanks in advance for any suggestion.

Best,
Giancarlo

plot(c(1,1), lwd=15, lend=2, t="l")
lines(c(0.8, 0.8), lwd=15, lend=1, col=2, lty=3)
legend("topright", legend=c("bla", "bla1"), col=1:2, lty=c(1,3), lwd=15,
cex=3)

plot(c(1,1), lwd=15, lend=2, t="l")
lines(c(0.8, 0.8), lwd=15, lend=1, col=2, lty=3)
lege <- legend("topright", legend=c("bla", "bla1"), col=1:2,
pch=c(15,15), lty=0, cex=3, pt.cex=2.5, bty="n")
points(lege$rect$left,lege$text$y[1], pch=15, cex=2.5, col=1)
points(lege$rect$left+0.03,lege$text$y[1], pch=15, cex=2.5, col=1)
points(lege$rect$left+0.05,lege$text$y[1], pch=15, cex=2.5, col=1)
points(lege$rect$left,lege$text$y[2], pch=15, cex=2.5, col=2)



===========================================
Camarda Carlo Giovanni
PhD-Student
Max Planck Institute for Demographic Research
Konrad-Zuse-Strasse 1
18057 Rostock, Germany
Tel:  +49 (0)381 2081 172
Fax: +49 (0)381 2081 472
camarda@demogr.mpg.de
===========================================


----------
This mail has been sent through the MPI for Demographic Rese...{{dropped}}

