Skip to content
Prev 306057 / 398506 Next

efficient overlapping average curve on original curves

HI,

Modified version of ggplot()
library(ggplot2)
set.seed(1)
mat1<-melt(mat)
new1<-aggregate(mat1,list(mat1$X1),function(x) mean(x))[,4]

mat2<-within(mat1,{X2<-as.factor(X2)})

ggplot(data=mat2,aes(x=X1,y=value,group=X2))+geom_line(aes(colour=X2))+geom_line(data=mat2,aes(y=new1),colour="darkred")+opts(legend.position="none")


A.K.



----- Original Message -----
From: Rui Barradas <ruipbarradas at sapo.pt>
To: arun <smartpink111 at yahoo.com>
Cc: eliza botto <eliza_botto at hotmail.com>; R help <r-help at r-project.org>
Sent: Friday, September 21, 2012 9:18 PM
Subject: Re: [R] efficient overlapping average curve on original curves

And with ggplot2.


library(ggplot2)
library(scales)

dat <- data.frame(id = seq_len(nrow(mat)), mat)
dm <- reshape2::melt(dat, id = "id")
dm$variable <- as.ordered(dm$variable)
dm$avg <- rowMeans(mat)

p <- ggplot(dm, aes(x = id, y = value, group = variable))
p + geom_line(data = dm, colour = alpha("blue", 1/5)) +
? ?  geom_line(data = dm, aes(y = avg), colour = "darkblue")

Rui Barradas
Em 22-09-2012 02:02, arun escreveu: