# Re: [R] xyplot: discrete points + continuous curve per panel

From: Rene Braeckman <RMan54_at_cox.net>
Date: Thu 14 Dec 2006 - 18:35:58 GMT

I will give this a try. However, this is based on row and columns of the panels and not on the SUBJ and DOSE information that I need to calculate the continuous curve.
Rene

Hi

there is probably better solution but you can try to fiidle with this idea, which adds stight lines to each panel one after another.

# based on Gabor Grothendieck's code suggestion # adds straight lines to panels in lattice plots

tcL <- trellis.currentLayout()
for(i in 1:nrow(tcL))
for(j in 1:ncol(tcL))
if (tcL[i,j] > 0) {

```        trellis.focus("panel", j, i, highlight = FALSE)
panel.abline(...)
trellis.unfocus()
}
```

}

You need to change panel.abline(...) part maybe to panel.curve or panel.segments or?

HTH
Petr

On 13 Dec 2006 at 23:22, RMan54 wrote:

```Date sent:      	Wed, 13 Dec 2006 23:22:41 -0800 (PST)
From:           	RMan54 <RMan54@cox.net>
To:             	r-help@stat.math.ethz.ch
Subject:        	[R] xyplot: discrete points + continuous curve per
```
panel

>
> I have a number of x, y observations (Time, Conc) for a number of
> Subjects (with subject number Subj) and Doses. I can plot the
> individual points with xyplot fine:
>
> xyplot(Conc ~ Time | Subj,
> Groups=Dose,
> data=myData,
> panel = function(x,y) {
> panel.xyplot(x, y)
> panel.superpose(???) # Needs more here
> }
> )
>
> I also like to plot on each panel (there is one Subj per panel) a
> continuous curve with predictions that I can calculate from a rather
> complicated function:
>
> myPred <- (time, subj, dose) {
> returns predicted value of Conc for a given time, subj and dose
> }
>
> The predicted curves are different for each panel.
>
> How do I plot the predictions? I have tried to add panel.superinpose
> in the xyplot portion but can't link to the myPred function. I also
> know about panel.curve but couldn't make it work.
>
> My attempt is to calculate the predictions on the fly. Is this
> possible? Or do I need to calculate all predictions first and put the
> results in a data frame. Thanks for any help, Rene -- View this
> message in context:
> http://www.nabble.com/xyplot%3A-discrete-points-%2B-continuous-curve-p
> er-panel-tf2818931.html#a7867892 Sent from the R help mailing list
> archive at Nabble.com.
>
> ______________________________________________
> R-help@stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> http://www.R-project.org/posting-guide.html and provide commented,
> minimal, self-contained, reproducible code.

Petr Pikal
petr.pikal@precheza.cz

R-help@stat.math.ethz.ch 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. Received on Fri Dec 15 16:52:45 2006

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.1.8, at Fri 15 Dec 2006 - 06:30:27 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.