Thanks Gabor, I got it! For example: x1 <- rnorm(100) x2 <- rnorm(100, 2) hist(x1, main = "", col = "orange",ylab = "density", xlab = "x", freq = F, density = 55, xlim = c(-2, 5), ylim = c(0, 0.5)) par(new = T) hist(x2, main = "", col = "green", ylab = "", xlab = "",axes = F, xlim = c(-2, 5), ylim = c(0, 0.5), density = 45, freq = F)
abline(v = mean(x1), col = "orange", lty = 2, lwd = 2.5) abline(v = mean(x2), col = "green", lty = 2, lwd = 2.5) legend(3, 0.45, legend = c("x1", "x2", "mean(x1)", "mean(x2)"), col = rep(c("orange", "green"), 2), pch=c(15,15, NA, NA), pt.cex=2, lty = c(0, 0, 2, 2)) -Lauri 2007/9/10, Gabor Grothendieck <[EMAIL PROTECTED]>: > Check out: > http://tolstoy.newcastle.edu.au/R/e2/help/07/05/16777.html > > On 9/10/07, Lauri Nikkinen <[EMAIL PROTECTED]> wrote: > > Hello, > > > > I have difficulties combining boxes and lines in plot legend. I > > searched previous R-posts and found this (with no solution): > > http://tolstoy.newcastle.edu.au/R/help/06/07/30248.html. Is there a > > way to avoid boxes behind the line legends? > > > > x1 <- rnorm(100) > > x2 <- rnorm(100, 2) > > hist(x1, main = "", col = "orange",ylab = "density", xlab = "x", freq > > = F, density = 55, xlim = c(-2, 5), ylim = c(0, 0.5)) > > par(new = T) > > hist(x2, main = "", col = "green", ylab = "", xlab = "",axes = F, xlim > > = c(-2, 5), ylim = c(0, 0.5), density = 45, freq = F) > > > > abline(v = mean(x1), col = "orange", lty = 2, lwd = 2.5) > > abline(v = mean(x2), col = "green", lty = 2, lwd = 2.5) > > legend(3, 0.45, legend = c("x1", "x2", "mean(x1)", "mean(x2)"), col = > > c("orange", "green"), fill=c("orange","green", 0, 0), lty = c(0, 0, > > 2, 2), merge = T) > > > > Thanks > > Lauri > > > > ______________________________________________ > > R-help@stat.math.ethz.ch 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@stat.math.ethz.ch 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.