Displaying 1 result from an estimated 1 matches for "shuddrr".
Did you mean:
shudder
2001 Mar 13
1
Display grouping parameter in coplot
....
Any better idea?
# Simulate my data frame
data(state)
x77<-data.frame(state.x77)
x77$region<-state.region
coplot(Life.Exp ~ Income | region,
data=x77, show.given=F, subscripts=T,
panel = function(x, y,subscripts, ...)
{
panel.smooth(x, y, span = 1., ...)
# Shuddrr....
# There must be way to access the grouping parameter
leg<-as.character(x77$region[subscripts][1])
legend(3000,74,leg,bty="n")
}
)
---------------------------------------
Dr. Dieter Menne
Biomed Software
72074 T?bingen
Tel (49) (7071) 52176
FAX (49)...