Fantastic. Creating a map vector with Biobase::reverseSplit worked great when I coerced the well.id (factor) as.character. thanks, Tom kellert at ohsu.edu 503-494-2442 On Feb 29, 2012, at 2:53 PM, Martin Morgan wrote: > On 02/29/2012 02:29 PM, Tom Keller wrote: >> Greetings, >> I read a table as a dataframe that contains read metadata for DNA sequences. Each row contains the well.id and various parameters like signal2noise, etc.. >> e.g. >>> welldfrm[1:3,] >> well.id signal.noise contiguous.read.length num.high.quality.bases sample.score comment container_name >> 1 A1 195.983 976 907 53.629 162194 111201a >> 3 C1 169.206 990 923 53.665 162196 111201a >> 4 D1 126.441 923 832 44.197 162197 111201a >> >> >> What I don't have and would like to add is the capillary that each well was loaded into. So I created a dataframe with those groupings. >> >> I would like to analyze the add the capillary, e.g. cap1, cap2, ... cap16 to each row based on whether the well.id was a member of the wells that capillary draws from. I can't quite figure out how to do that. >>> capillaries$cap1 >> [1] A1 A3 A5 A7 A9 A11 >> Levels: A1 A11 A3 A5 A7 A9 >>> capillaries$cap5 >> [1] C1 C3 C5 C7 C9 C11 >> Levels: C1 C11 C3 C5 C7 C9 >> >> So for example, every row with a well.id in the cap1 list would have the factor "cap1": >> E.G. >> well.id signal.noise crl num score ... capillary >> 1 A1 195.983 976 907 53.629 ... cap1 >> 3 C1 169.206 990 923 53.665 ... cap5 > > Hi Tom, > > Not exactly sure that I've got it, but maybe Biobase::reverseSplit can help? > >> library(Biobase) >> capilaries = data.frame(cap1=c("A1", "A3"), cap5=c("C1", "C3")) >> map = unlist(reverseSplit(capliaries)) >> map > A1 A3 C1 C3 > "cap1" "cap1" "cap5" "cap5" > > and then > > welldfrm$capilary = map[welldfrm$well.id] > > (if well.id is a factor then perhaps you'll want to coerce it to a > character, map[as.character(welldfrm$well.id0]) > > It might have been more straight-forward to create 'map' directly, along > the lines of > > map = setNames(paste("cap", rep(c(1, 5), each=2), sep=""), > paste(rep(c("A", "C"), each=2), c(1, 3), sep="")) > > Martin > >> I hope that makes sense. I think one of the 'apply' functions is the way to go, or perhaps rearrange capillaries with stack (?) but I'm stumbling with the syntax. (not to mention thinking in terms of complex data structures 8-) >> >> thanks for any suggestions >> >> Tom >> MMI DNA Services Core Facility<http: www.ohsu.edu="" xd="" research="" research-cores="" dna-analysis=""/> >> 503-494-2442 >> kellert at ohsu.edu<http: ohsu.edu=""> >> Office: 6588 RJH (CROET/BasicScience) >> >> OHSU Shared Resources<http: www.ohsu.edu="" xd="" research="" research-="" cores="" index.cfm=""> >> >> >> >> >> >> >> >> >> _______________________________________________ >> Bioconductor mailing list >> Bioconductor at r-project.org >> https://stat.ethz.ch/mailman/listinfo/bioconductor >> Search the archives: http://news.gmane.org/gmane.science.biology.informatics.conductor > > > -- > Computational Biology > Fred Hutchinson Cancer Research Center > 1100 Fairview Ave. N. PO Box 19024 Seattle, WA 98109 > > Location: M1-B861 > Telephone: 206 667-2793