One of the components of the returned princomp() objects can be $scores, the
matrix of scores. You can plot these as usual using any characters you like
via the 'pch' parameter of plot:
e.g.
## groups is a factor giving the groups for each data value.Assuming three
groups
myscores<-[princomp(...,scores=TRUE)$scores
plot(myscores[,1:2],pch=c('s','c','v')[groups])
Of course, this is not quite a biplot, but it's close.
-- Bert Gunter
Genentech Non-Clinical Statistics
South San Francisco, CA
"The business of the statistician is to catalyze the scientific learning
process." - George E. P. Box
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of Sasha Pustota
> Sent: Friday, April 14, 2006 3:35 PM
> To: r-help@stat.math.ethz.ch
> Subject: Re: [R] Questions on formula in princomp
>
> Ok, that was just my wishful thinking.
>
> Is there a way to plot repeated labels that identify groups, e.g.
> factor(c(rep("s",50),rep("c",50),rep("v",50)))
>
> instead of 1--150 row indices, using something like
> biplot(princomp(lir)) ?
>
>
> Gabor Grothendieck <[EMAIL PROTECTED]> wrote:
> > Just use model.frame to examine what is passed:
> >
> > > ir <- rbind(iris3[,,1], iris3[,,2], iris3[,,3])
> > > lir <- data.frame(log(ir))
> > > names(lir) <- c("a","b","c","d")
> > > lir[1,1] <- NA
> > > mf <- model.frame(~., lir,na.action=na.omit)
> > > head(mf)
> > a b c d
> > 2 1.589235 1.098612 0.3364722 -1.6094379
> > > head(lir)
> > a b c d
> > 1 NA 1.252763 0.3364722 -1.6094379
>
> ______________________________________________
> 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
>
______________________________________________
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
