names(myTable)
a<-read.csv("file.csv", header=T, sep=",") names(a) motility<-subset(a, Putative.orf.function=="Motility & Attachment") write.csv(motolity, file="motility.csv")
Edit Feb 15th 2012
grep("Motility", a$Putative.orf.function)
gives the list of rows whose Putative.orf.function column contains the string "Motility".
Using this, one can get the entire row information.
df<-read.csv("file.csv", header=T, sep=",")
names(df)
> names(df) [1] "Strain.Name" "ID" "Location" [4] "PA.ORF" "Gene" "Gene.Abbrev." [7] "Putative.orf.function" "Position.in.ORF" "Frame" [10] "Genome.Position" "Transposon.Direction" "Transposon" [13] "F.Primer.Name" "F.Primer.Seq" "F.Primer.Position" [16] "F.Primer.Tm" "Insert...F" "R.Primer.Name" [19] "R.Primer.Seq" "R.Primer.Position" "R.Primer.Tm" [22] "R...Insert" "WT.PCR.Len" "Confirmed." [25] "How.confirmed." "Notes" > df$Strain.Name[grep("Attachment",df$Putative.orf.function)] [1] PW10299 PW10300 PW1728 PW1729 PW1730 PW1731 PW1749 PW1750 PW1751 [10] PW1752 PW1753 PW1754 PW1755 PW1756 PW1757 PW2791 PW2792 PW2794 [19] PW2795 PW2941 PW2942 PW2943 PW2944 PW2945 PW2946 PW2947 PW2948 ...
[118] PW8681 PW8682 PW9465 PW9466 PW9467 PW9468 PW9469 PW9470 PW9471 [127] PW9472 PW9473 PW9474
No comments:
Post a Comment