Plot legend outside of the plot area<\/p>\n
primitive method:<\/p>\n
method1, hard code layout ( layout(matrix(c(2,1), byrow = T), height=c(2,10)) method 2, refer to:<\/p>\n use xpd = NA options will not clip the legend outside of the plot area, however, you need to manual place the legend, that makes plot less pleasant. However, the folloing example works:<\/p>\n data(iris) package ggplot2:<\/p>\n Example:<\/p>\n > ggplot(dat,aes(x=x)) + package Lattice:<\/p>\n Specify space = "bottom", or space = "right" in the auto.keys or key parameter<\/p>\n Example:<\/p>\n > xyplot( lat ~ long , data = quakes, key = list( points = list( col=c("orange","white","blue")), text = list( c("a","b","c") ), space="bottom")) https:\/\/stat.ethz.ch\/pipermail\/r-help\/2005-July\/075953.html<\/a><\/p>\n
https:\/\/stat.ethz.ch\/pipermail\/r-help\/2007-May\/132466.html<\/a>)<\/p>\n
par(mar=c(5,3,0,2))
plot(rnorm(100))
grid(10,10)
plot.new()
par(mar=c(0,0,0,0))
plot.window(c(0,1), c(0,1))
lsize = legend(0.5, .5, "text", pch=’o’)
box("figure")
box(, lty = 2)
box("plot", col = "red")
points(rnorm(100), type="n")
# layout.show(2) : display the layout<\/p>\n
par(xpd = NA, mai=rep(.5,4), mfrow=c(2,2))
for(i in 1:4)
boxplot(iris[,i]~iris[,5], main=colnames(iris)[i], col=2:4, xaxt="n")
\u00a0
width <- 6 # width of the plot device in inches (it should be 7 inches by
# default but Windows does not implement this correctly)
leg <- legend(0, 0, legend=levels(iris$Species), fill=2:4, hor=TRUE, plot=FALSE)
xcoord <- grconvertX(width\/2, "inches", "user")-leg$rect$w\/2
ycoord <- grconvertY(0, "inches", "user")+leg$rect$h
\u00a0
legend(xcoord, ycoord, legend=levels(iris$Species), fill=2:4, bty="n", hor=TRUE)<\/p>\n<\/p>\n
+ geom_histogram(aes(y=..density..,fill="Histogram"),binwidth=0.5) +
+ stat_function(fun = dnorm, aes(colour= "Density")) +
+ scale_x_continuous(‘x’, limits = c(-4, 4)) +
+ opts(title = "Histogram with Overlay") +
+ scale_fill_manual(name="",value="blue") +
+ scale_colour_manual(name="",value="red") +
+ scale_y_continuous(‘Frequency’)+
+ opts(legend.key=theme_rect(fill="white",colour="white"))+
+ opts(legend.background = theme_blank())<\/p>\n
> xyplot( lat ~ long , data = quakes, key = list( points = list( col=c("orange","white","blue")), text = list( c("a","b","c") ), space="right"))
> barchart(yield ~ variety | site, data = barley,
groups = year, layout = c(1,6), stack = TRUE,
auto.key = list(space = "right"),
ylab = "Barley Yield (bushels\/acre)",
scales = list(x = list(rot = 45)))<\/p>\n