Here's a function that you can customize to fit your needs. lst is a named list.
multicomp <- function(lst) { clr <- c("darkgreen","red","blue","brown","magenta") alldens <- lapply(lst,function(x) {density(x,from=min(x),to=max(x))}) allx <- sapply(alldens,function(d) {d$x}) ally <- sapply(alldens,function(d) {d$y}) plot(allx,ally,type="n") for (i in 1:length(lst)) { lines(alldens[[i]]$x,alldens[[i]]$y,lty=i,col=clr[i],lwd=3) } legend("topright",xjust=1,legend=names(lst),lwd=3,lty=1:length(lst),col=head(clr,length(lst))) } #--------------- toplot <- list(var1=dfr1$var,var2=dfr2$var) multicomp(toplot) > -----Original Message----- > From: Alpert, William [mailto:[EMAIL PROTECTED] > Sent: Thursday, November 03, 2005 11:45 AM > To: r-help@stat.math.ethz.ch > Subject: [R] newbie graphics question: Two density plots in > same frame ? > > > I swear I've scoured the help files and several texts before posting > what feels like a dumb newbie question. > > How can I draw two kernel density plots in the same frame ? I have > similar variables in two separate data frames, and I would > like to show > their two histograms/densities in a single picture. Same > units, scale, > range for both, so I'm simply trying to draw one and then add > the other > to the picture. Nothin' fancy. > > > Bill Alpert > > Sr. Editor > > Barron's > > 212.416.2742 > > [EMAIL PROTECTED] > > > > > > [[alternative HTML version deleted]] > > ______________________________________________ > 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