search for: mylegend

...e 'at' argument in mtext doesn't consider the same unit system. I would appreciate your comments on this issue. Sebastien ##### Pairs mydata<-data.frame(x=1:10,y=1:10) par(cex.main=1, cex.axis=1, cex.lab=1, lwd=1, mar=c(5 + 5,4,4,2)+0.1) pairs(mydata,oma=c(5 + 5,4,4,2)) mylegend<-c("mylegend A","mylegend B","mylegend C","mylegend test") mylegend.width = strwidth(mylegend[which.max(nchar(mylegend))], "figure") for (i in 1:4) { mtext(text=mylegend[i], side = 1, line = 3+i, at = unit((1-mylegend.wid...

Dear R-users, I would like to add a legend at the bottom of pairs plots (it's my first use of this function). With the plot function, I usually add some additional space at the bottom when I define the size of the graphical device (using mar); grid functions then allows me to draw my legend as I want. Unfortunatley, this technique does not seem to work with the pairs function as the

...col = 1:6), cex = 0.8) mykey2 <- list(title = 'Group 2', cex.title = 1.2, text = list(levels(d$gp2)), lines = list(lty = 1, col = c('blue', 'orange'))) # Create a grob by merging the two keys - from latticeExtra (Felix Andrews) mylegend <- mergedTrellisLegendGrob(list(fun = draw.key, args = list(key = mykey1)), list(fun = draw.key, args = list(key = mykey2)), vertical = TRUE) # Generate the plot: with(d, xyplot(val ~ time, pch = mypch, col = mycol,...

Hello, placings of legends is sometimes tricky. For placing outside the plot region I found locator to be useful. Unfortunately, the click defines the upper left corner. Is there a way to change this corner (say lower right corner)? Thanks, Christian

...k=1 ijkdata<-subset(ijdata,ijdata$OCC==k) for (l in 1:nGRP) { #loop on Group # l=1 subdata<-subset(ijkdata,ijkdata$GRP==l) nModel<-nlevels(factor(subdata$MODEL)) #number of models to be plotted in this loop mylegend<-c("Raw data",levels(factor(subdata$MODEL))) subID<-nlevels(factor(subdata$ID)) #number of ID in the new dataset myplot<-xyplot(Y ~ TIME | ID, #creates plot data = subdata, type = "l", g...

...'bg' or 'background'... nothing seems to do I want. What should I change in the following code to make it work ? key=list(space="bottom", points = list(pch = 21:25, col = 32, bg=15), text=list(mylegend)), Thank in advance Sebastien PS: cheng

On Sun, 27 Jul 2008, S Ellison wrote: > Looking at the legend() source the filled box line colour is hardcoded : > if (mfill) { > if (plot) { > fill <- rep(fill, length.out = n.leg) > rect2(left = xt, top = yt + ybox/2, dx = xbox, dy = ybox, > col = fill, density = density, angle = angle, > border =

Hello everybody, Is there a way to add a subtitle to a lattice key? It is important form me that the subtitle must be linked to the key because those graphs are produced on a daily temporal scale, and the numbers of rectangles from the key may be different from day to day. Thank you, Alexandru Dumitrescu [[alternative HTML version deleted]]

...9;),where=.GlobalEnv) setClassUnion('numeric or NULL',c('numeric','NULL'),where=.GlobalEnv) setClassUnion('my.frame', c('frame','gTree','grob','gDesc','NULL'), where=.GlobalEnv) setClass('mylegend',where=.GlobalEnv, representation(type = 'character or NULL', nb.line = 'numeric or NULL', legend.cex = 'numeric or NULL', grid.frame = 'my.frame',...

...8 14 10000 var3 16 15 30000 var3 32> g <- ggplot(data,aes(x=inputs, value, colour=variable, fill = variable))> g <- g + geom_point(aes(shape=variable), size=3) > g <- g + geom_line(lwd=1) + ylab("time") + xlab("inputs") + labs(colour="MyLegend", fill = "MyLegend")> g [[alternative HTML version deleted]]