Dear all, I have been working in a plot based on figure 5.6 of the Lattice book (http://lmdvr.r-forge.r-project.org/figures/figures.html).
I have already modified it to include the size of the circles as another variable, but I would like to modify the legend to show it (like they do it in http://www.jstatsoft.org/v15/i05/paper). I have divided my variable in intervals: DATA$s_Shape_2 <- cut(x=DATA$Shape_inde,breaks=c(0.9999999,1.2,1.4,1.7,2.1,5)) I will use the index of the categories as the radius of the circles. Now, following the aforementioned figure 5.6, I have the following code: NDVI.breaks <- do.breaks(range(DATA.ord$NDVI), 50) xyplot(Y_Center_P~X_Center_P|Level,data=DATA.ord,col = "black",aspect = "iso", fill.color = DATA.ord$c_RNDVI, cex = DATA$s_Shape_2, panel = function(x, y, fill.color, cex,..., subscripts) { fill <- fill.color[subscripts] cex <- cex[subscripts] panel.grid(h = -1, v = -1) panel.xyplot(x, y, pch = 21, fill = fill, cex = cex,...) }, legend = list(right = list(fun = draw.colorkey, args = list(key = list(col = rainbow, at = NDVI.breaks), draw = FALSE))) ) How can I add the categories with circles of their respective sizes to the legend? I hope this is enough information to have some help. If not, let me know. Regards. Julio. ______________________________________________ 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.
