> d <- data.frame(A=c("a","b"), B=2:3, C=c(1,3), D=c(4,5)) > lengths <- 1 + d$D - d$C > cbind(d[rep(seq_along(lengths), lengths),c("A","B")], > E=unlist(lapply(seq_along(lengths), function(i)seq(from=d$C[i], to=d$D[i])))) A B E 1 a 2 1 1.1 a 2 2 1.2 a 2 3 1.3 a 2 4 2 b 3 3 2.1 b 3 4 2.2 b 3 5
Bill Dunlap Spotfire, TIBCO Software wdunlap tibco.com > -----Original Message----- > From: r-help-boun...@r-project.org [mailto:r-help-boun...@r-project.org] On > Behalf Of darkgaze > Sent: Friday, October 07, 2011 7:03 AM > To: r-help@r-project.org > Subject: [R] Expand dataframe according to limits defined per row > > Hi all, > > Would appreciate help with transforming this: > > A B C D > a 2 1 4 > b 3 3 5 > > into this: > > A B E > a 2 1 > a 2 2 > a 2 3 > a 2 4 > b 3 3 > b 3 4 > b 3 5 > > (C<=E<=D) > > Best, > Don > > -- > View this message in context: > http://r.789695.n4.nabble.com/Expand-dataframe-according-to-limits- > defined-per-row-tp3882319p3882319.html > Sent from the R help mailing list archive at Nabble.com. > > ______________________________________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.