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 <[EMAIL PROTECTED]>
To: [email protected]
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.
>
> ______________________________________________
> [email protected] 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
[EMAIL PROTECTED]
______________________________________________
[email protected] 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.
