Legend symbols (line, points) in one column.

Looking at your provided example (thank you!), I'm not entirely sure
what you want to put in the same column. Could you perhaps clarify --
is it something about the plot itself or the legend?

Michael

On Thu, Oct 13, 2011 at 8:00 AM, Kenneth Roy Cabrera Torres
<krcabrer at une.net.co> wrote:

Dear R users:

I want to have in the same column both symbols, line and
points, one for a data, and the other for the model.

How can I do that?

Or is there other better form to show both data and model
in the same graphic? I need to make the difference on time
of the same subject (repeated measurements on time)


Problem example:
###########################################################
x<-1:5
y<-1*x+rnorm(10)
data1<-data.frame(x,y,type=rep("data",length(x)))
model1<-lm(y~x,data=data1)
data2<-data.frame(x=seq(0,6,.1))
data2$y<-predict(model1,newdata=data2)
data2$type<-rep("model",nrow(data2))
dataT<-rbind(data1,data2)
dataT

require(lattice)
confMisc1<- simpleTheme(pch = c(19,1),lwd=c(2,1),cex=1.5,
           lty=1,col=c("black"))
xyplot(y~x,group=type,
      type=c("p","l"),
      key=list(space="right",text=list(c("Data","Model")),
              points=list(pch=c(as.integer(NA),19)),
              lines=list(lty=c(1,0),lwd=c(2,0))),
      par.settings=confMisc1,
      panel=panel.superpose,
      distribute.type=TRUE,
      data=dataT)
###########################################################

Legends are built in columns. You need to find a graphics symbol to  
put in the "points" column or you need to find something that the  
lines paramater will turn into a dot (and I'm not sure what that might  
be.) My suggestion would be to change the line type to dashed and use  
" - - -" for the pch argument.

This is what I came up with using the panel.lmline rather than  
building it outside the plotting function:

x<-1:5
y<-1*x+rnorm(10)
data1<-data.frame(x,y,type=rep("data",length(x)))

require(lattice)

xyplot(y~x,group=type,
      type=c("p","l"), lty=3, lwd=2, cex=4,
      key=list(space="right",text=list(c("Data","Model")),
            points=list(pch = c(".", "-"),cex=c(4,1.5))  ),
      par.settings=confMisc1,
      panel=function(x,y,...){panel.xyplot(x,y,...)
                  panel.lmline(x,y,...)},
      distribute.type=TRUE,
      data=data1)

Legends are built in columns. You need to find a graphics symbol to put in
the "points" column or you need to find something that the lines paramater
will turn into a dot (and I'm not sure what that might be.)

On Fri, Oct 14, 2011 at 10:02 AM, David Winsemius
<dwinsemius at comcast.net> wrote:

Legends are built in columns. You need to find a graphics symbol to put in
the "points" column or you need to find something that the lines paramater
will turn into a dot (and I'm not sure what that might be.)

A 'lines' component can actually contain points as well, with type="p", as in

xyplot(y~x,group=type,
       type=c("p","l"),
       key=list(space="right",text=list(c("Data","Model")),
                lines=list(lwd = 2, cex = 1.5, pch = 19,
                           type = c("p", "l"))),
       par.settings=confMisc1,
       distribute.type=TRUE,
       data=dataT)

-Deepayan