Hello, I have a data frame somewhat like that: myframe <- data.frame (ID=c("Ernie", "Ernie", "Ernie", "Bert", "Bert", "Bert"), Timestamp=c("24.09.2012 09:00", "24.09.2012 10:00", "24.09.2012 11:00"), Hunger=c(1,1,1,2,2,1) ) myframestime <- as.POSIXct (strptime(as.character(myframe$Timestamp), "%d.%m.%Y %H:%M"), tz="GMT") myframe2 <- cbind (myframe,myframestime) myframe2$Timestamp <- NULL myframe2 I want to add an additional column at the right and get in each row a value which shows the mean of "hunger" of the last two hours. Does anyone know how that works? That would be very helpful. -- View this message in context: r.789695.n4.nabble.com/mean-of-a-value-of-the-last-2-hours-tp4647415.html Sent from the R help mailing list archive at Nabble.com.
Hi, May be this helps: ?new1<-with(myframe2,aggregate(cbind(Hunger,myframestime),by=list(ID=ID), function(x) mean(tail(x,2))))[,1:2] ?merge(myframe2,new1,by="ID",all=TRUE) #???? ID Hunger.x??????? myframestime Hunger.y #1? Bert??????? 2 2012-09-24 09:00:00????? 1.5 #2? Bert??????? 2 2012-09-24 10:00:00????? 1.5 #3? Bert??????? 1 2012-09-24 11:00:00????? 1.5 #4 Ernie??????? 1 2012-09-24 09:00:00????? 1.0 #5 Ernie??????? 1 2012-09-24 10:00:00????? 1.0 #6 Ernie??????? 1 2012-09-24 11:00:00????? 1.0 A.K. ----- Original Message ----- From: Tagmarie <Ramgad82 at gmx.net> To: r-help at r-project.org Cc: Sent: Thursday, October 25, 2012 10:35 AM Subject: [R] mean of a value of the last 2 hours Hello, I have a data frame somewhat like that: myframe <- data.frame (ID=c("Ernie", "Ernie", "Ernie", "Bert", "Bert", "Bert"), Timestamp=c("24.09.2012 09:00", "24.09.2012 10:00", "24.09.2012 11:00"), Hunger=c(1,1,1,2,2,1) ) myframestime <- as.POSIXct (strptime(as.character(myframe$Timestamp), "%d.%m.%Y %H:%M"), tz="GMT") myframe2 <- cbind (myframe,myframestime) myframe2$Timestamp <- NULL? myframe2 I want to add an additional column at the right and get in each row a value which shows the mean of "hunger" of the last two hours. Does anyone know how that works? That would be very helpful. -- View this message in context: r.789695.n4.nabble.com/mean-of-a-value-of-the-last-2-hours-tp4647415.html Sent from the R help mailing list archive at Nabble.com. ______________________________________________ R-help at r-project.org mailing list stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
Or using ddply from plyr, library(plyr) myframe <- data.frame (ID=c("Ernie", "Ernie", "Ernie", "Bert", "Bert", "Bert"), Timestamp=c("24.09.2012 09:00", "24.09.2012 10:00", "24.09.2012 11:00"), Hunger=c(1,1,1,2,2,1) ) myframe myframestime <- as.POSIXct (strptime(as.character(myframe$Timestamp), "%d.%m.%Y %H:%M"), tz="GMT") myframestime myframe2 <- cbind (myframe,myframestime) myframe2 ddply(myframe2,.(ID),summarise,Last2=mean(tail(Hunger,2))) Felipe D. Carrillo Supervisory Fishery Biologist Department of the Interior US Fish & Wildlife Service California, USA fws.gov/redbluff/rbdd_jsmp.aspx From: Tagmarie <Ramgad82@gmx.net>>To: r-help@r-project.org >Sent: Thursday, October 25, 2012 7:35 AM >Subject: [R] mean of a value of the last 2 hours > >Hello, >I have a data frame somewhat like that: > >myframe <- data.frame (ID=c("Ernie", "Ernie", "Ernie", "Bert", "Bert", >"Bert"), Timestamp=c("24.09.2012 09:00", "24.09.2012 10:00", "24.09.2012 >11:00"), Hunger=c(1,1,1,2,2,1) ) >myframestime <- as.POSIXct (strptime(as.character(myframe$Timestamp), >"%d.%m.%Y %H:%M"), tz="GMT") >myframe2 <- cbind (myframe,myframestime) >myframe2$Timestamp <- NULL >myframe2 > >I want to add an additional column at the right and get in each row a value >which shows the mean of "hunger" of the last two hours. > >Does anyone know how that works? That would be very helpful. > > > >-- >View this message in context: r.789695.n4.nabble.com/mean-of-a-value-of-the-last-2-hours-tp4647415.html >Sent from the R help mailing list archive at Nabble.com. > >______________________________________________ >R-help@r-project.org mailing list >stat.ethz.ch/mailman/listinfo/r-help >PLEASE do read the posting guide R-project.org/posting-guide.html >and provide commented, minimal, self-contained, reproducible code. > > >[[alternative HTML version deleted]]