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

-----Original Message-----
From: Petr Pikal [mailto:petr.pikal@precheza.cz] Sent: Thursday, December 14, 2006 1:18 AM To: RMan54; r-help@stat.math.ethz.ch
Subject: Re: [R] xyplot: discrete points + continuous curve per panel

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

addLine<- function(...) {
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
> PLEASE do read the posting guide
> 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.