Sorry. It looked fine when I sent it. Below I've added back in the line feeds that somehow disappeared.
Jim
-----Original Message-----
From: r-sig-ecology-bounces at r-project.org [mailto:r-sig-ecology-bounces at r-project.org] On Behalf Of Baldwin, Jim -FS
Sent: Friday, June 29, 2012 10:28 AM
To: Peter Solymos; Manuel Sp?nola
Cc: r-sig-ecology at r-project.org
Subject: Re: [R-sig-eco] Re-arrange data frame
Here is an alternative approach that takes a few more steps and assumes the original data frame is named d0:
# Split into two data frames
d1 <- d0[,c(1:3)]
d2 <- d0[,c(1,4,5)]
# Rename the columns in the second one so that the names match
names(d2) <- names(d1)
# Concatenate the two identically named data frames
d0.combined <- rbind(d1,d2)
# Sort by Item (assuming it needs to be sorted which matches your example)
d0.combined <- d0.combined[order(d0.combined$Item),]
Jim Baldwin
USDA Forest Service
-----Original Message-----
From: r-sig-ecology-bounces at r-project.org [mailto:r-sig-ecology-bounces at r-project.org] On Behalf Of Peter Solymos
Sent: Friday, June 29, 2012 9:45 AM
To: Manuel Sp?nola
Cc: r-sig-ecology at r-project.org
Subject: Re: [R-sig-eco] Re-arrange data frame
Manuel,
You haven't specified the general problem, but for this particular situation this is how you can do it:
x <- data.frame(array(1:12, c(3,4), list(paste("item", 1:3), paste("col", 1:4)))) x <- data.frame(Item=rownames(x), x) y <- data.frame(Item=x$Item[rep(1:3, each=2)], matrix(as.matrix(x[,-1]), 6, 2, byrow=TRUE))
Cheers,
Peter
--
P?ter S?lymos, Dept Biol Sci, Univ Alberta, T6G 2E9, Canada AB solymos at ualberta.ca, Ph 780.492.8534, http://psolymos.github.com Alberta Biodiversity Monitoring Institute, http://www.abmi.ca Boreal Avian Modelling Project, http://www.borealbirds.ca
2012/6/29 Manuel Sp?nola <mspinola10 at gmail.com>:
Dear List members,
How can I re-arrange a data frame as detailed below.
old data frame
Item col1 col2 col3 col4
item1 12 11 6 7
item2 10 8 5 4
item3 3 5 4 3
New data frame
item1 12 11
item1 6 7
item2 10 8
item2 5 4
item3 3 5
item3 4 3
Best,
Manuel
--
*Manuel Sp?nola, Ph.D.*
Instituto Internacional en Conservaci?n y Manejo de Vida Silvestre
Universidad Nacional Apartado 1350-3000 Heredia COSTA RICA
mspinola at una.ac.cr mspinola10 at gmail.com
Tel?fono: (506) 2277-3598
Fax: (506) 2237-7036
Personal website: Lobito de r?o
<https://sites.google.com/site/lobitoderio/>
Institutional website: ICOMVIS <http://www.icomvis.una.ac.cr/>
[[alternative HTML version deleted]]
_______________________________________________
R-sig-ecology mailing list
R-sig-ecology at r-project.org
https://stat.ethz.ch/mailman/listinfo/r-sig-ecology
This electronic message contains information generated by the USDA solely for the intended recipients. Any unauthorized interception of this message or the use or disclosure of the information it contains may violate the law and subject the violator to civil or criminal penalties. If you believe you have received this message in error, please notify the sender and delete the email immediately.
_______________________________________________
R-sig-ecology mailing list
R-sig-ecology at r-project.org
https://stat.ethz.ch/mailman/listinfo/r-sig-ecology