yes use plotting chars 22, 21 replace your legend statement with: legend(x="topright", legend=c("2006 mean", "2007 mean", "2008 mean", "1964-2005 mean \n max and min flows "), pch=c(22, 22, 22, 21), col=c(1,1,1,1), pt.bg=c(grey.colors(3, gamma=4),"black"), cex=1.5) box(which="plot", lty="solid")
thnaks y stephen sefick wrote: > > # I would like to outline the squares in the legend with a black line. > Does > anyone know how to do this? > > x.t <- structure(c(5987.387, 4354.516, 3685.789, 6478.592, 5924.315, > NA, 8386, 5559.468, NA, 4651.273, 3967.5, NA, 4339.167, 5053.56, > NA, 4631.978, 4808.694, NA, 5217.306, 4017.632, NA, 5846.903, > 3969.883, NA, 3867.825, 3910.236, NA, 3886.434, 3782.094, NA, > 3959.668, 3961.286, NA, 3848.853, 3711.262, NA), .Dim = c(3L, > 12L), .Dimnames = list(c("Year.2006", "Year.2007", "Year.2008" > ), c("January", "February", "March", "April", "May", "June", > "July", "August", "September", "October", "November", "December" > ))) > > library(IDPmisc) > barplot(x.t, beside=T, ylim=c(0, 40000), yaxt="n", ylab="Discharge(cfs)", > col=grey.colors(3, gamma=4)) > axis(side=2, at=c(0,4000 ,7000, 10000,15000, > 20000,25000,30000,35000,40000)) > legend(x="topright", legend=c("2006 mean", "2007 mean", "2008 mean", > "1964-2005 mean \n max and min flows "), pch=c(15, 15, 15, 19), > col=c(grey.colors(3, gamma=4),"black"), cex=1.5) > box(which="plot", lty="solid") > > points(2.5, 8313, pch=19, lwd=4) > points(6, 9665, pch=19, lwd=4) > points(10, 10675, pch=19, lwd=4) > points(14, 10303, pch=19, lwd=4) > points(18, 7926, pch=19, lwd=4) > points(22, 7278, pch=19, lwd=4) > points(26, 6472, pch=19, lwd=4) > points(30, 6719, pch=19, lwd=4) > points(34, 6123, pch=19, lwd=4) > points(38, 6280, pch=19, lwd=4) > points(42, 6334, pch=19, lwd=4) > points(46, 7707, pch=19, lwd=4) > > #max thurmond flow bar > Arrows(2.5, 8229, 2.5, 25580, size=0, sh.lwd=4) > Arrows(6, 9555, 6, 28571, size=0, sh.lwd=4) > Arrows(10, 10547, 10, 23153, size=0, sh.lwd=4) > Arrows(14, 10182, 14, 37591, size=0, sh.lwd=4) > Arrows(18, 7847, 18, 22521, size=0, sh.lwd=4) > Arrows(22, 7206, 22, 18384, size=0, sh.lwd=4) > Arrows(26, 6472, 26, 15489, size=0, sh.lwd=4) > Arrows(30, 6719, 30, 16659, size=0, sh.lwd=4) > Arrows(34, 6123, 34, 11841, size=0, sh.lwd=4) > Arrows(38, 6280, 38, 14282, size=0, sh.lwd=4) > Arrows(42, 6334, 42, 17364, size=0, sh.lwd=4) > Arrows(46, 7707, 46, 25877, size=0, sh.lwd=4) > > #min thurmond flow bar > Arrows(2.5, 8229, 2.5, 3602, size=0, sh.lwd=4) > Arrows(6, 9555, 6, 3377, size=0, sh.lwd=4) > Arrows(10, 10547, 10, 3490, size=0, sh.lwd=4) > Arrows(14, 10182, 14, 3278, size=0, sh.lwd=4) > Arrows(18, 7847, 18, 3579, size=0, sh.lwd=4) > Arrows(22, 7206, 22, 3605, size=0, sh.lwd=4) > Arrows(26, 6472, 26, 3579, size=0, sh.lwd=4) > Arrows(30, 6719, 30, 3734, size=0, sh.lwd=4) > Arrows(34, 6123, 34, 3694, size=0, sh.lwd=4) > Arrows(38, 6280, 38, 3657, size=0, sh.lwd=4) > Arrows(42, 6334, 42, 3287, size=0, sh.lwd=4) > Arrows(46, 7707, 46, 3345, size=0, sh.lwd=4) > > > -- > Let's not spend our time and resources thinking about things that are so > little or so large that all they really do for us is puff us up and make > us > feel like gods. We are mammals, and have not exhausted the annoying little > problems of being mammals. > > -K. Mullis > > [[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. > > ----- Yasir H. Kaheil Catchment Research Facility The University of Western Ontario -- View this message in context: http://www.nabble.com/outlining-symbol-in-legend-with-blackline-tp18367274p18368074.html Sent from the R help mailing list archive at Nabble.com. ______________________________________________ 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.