Is there any way suppress box color and frame of a box drawn by
legend(,fill)? I am able to suppress the color, but not the frame (see
the example below). Many thanks! (This follows up from a question
asked on the list in 2006 by Florian Koller)
Tom
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)
box.lty = 0 assuming I understand the question. --- Tom Boonen <tom.boonen.maiden at gmail.com> wrote:> Is there any way suppress box color and frame of a > box drawn by > legend(,fill)? I am able to suppress the color, but > not the frame (see > the example below). Many thanks! (This follows up > from a question > asked on the list in 2006 by Florian Koller) > > Tom > > 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) > > ______________________________________________ > 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. >Looking for the perfect gift? Give the gift of Flickr!
It occured to me afterwards that this was not what you
wanted. I think Jerome Asselin in
http://finzi.psych.upenn.edu/R/Rhelp02a/archive/15483.html
has a solution that may do what you want
Try
legend(3, 0.45, legend = c("x1", "x2", "mean(x1)",
"mean(x2)"), pch=c(22,22,30,30),
col = c("orange", "green"),
pt.bg=c("orange","green","white","white"),
lty = c(0, 0, 2, 2), merge = T)
--- John Kane <jrkrideau at yahoo.ca> wrote:
> box.lty = 0
>
> assuming I understand the question.
> --- Tom Boonen <tom.boonen.maiden at gmail.com> wrote:
>
> > Is there any way suppress box color and frame of a
> > box drawn by
> > legend(,fill)? I am able to suppress the color,
> but
> > not the frame (see
> > the example below). Many thanks! (This follows up
> > from a question
> > asked on the list in 2006 by Florian Koller)
> >
> > Tom
> >
> > 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)
> >
> > ______________________________________________
> > 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.
> >
>
>
>
> Looking for the perfect gift? Give the gift of
> Flickr!
>
> http://www.flickr.com/gift/
>
>