Dear sir,
I have one more problem.Sorry to disturb you again.
I have a data frame like this-
Col1 Col2 Col3 Col4
1 0 1 4
0 0 0 2
4 2 0 0
1 5 0 0
0 0 4 3
0 0 0 2
0 0 0 0
1 1 0 5
I want to delete all those rows which have more than two 0s
like in above input row2 has 3 zeros,row6 has 3 zeros and row 7 has 4 zeros.so
i want to exclude them so that my output should be-
Col1 Col2 Col3 Col4
1 0 1 4
4 2 0 0
1 5 0 0
0 0 4 3
1 1 0 5
Can you please tell me how to code for this problem?
Thanking you,
Warm Regards
Vikas Bansal
Msc Bioinformatics
Kings College London
________________________________________
From: David Winsemius [dwinsem...@comcast.net]
Sent: Monday, July 04, 2011 2:02 AM
To: Bansal, Vikas
Cc: Dennis Murphy; r-help@r-project.org
Subject: Re: [R] For help in R coding
On Jul 3, 2011, at 6:10 PM, Bansal, Vikas wrote:
>> So I want to code so that it will give the output like this-
>>
>> DATA FRAME (Input)
Editing the task so it is reproducible:
dat <- read.table(textConnection(' col3 col9
T .a,g,,
A .t,t,,
A .,c,c,
C .,a,,,
G .,t,t,t
A .c,,g,^!.
A .g,ggg.^!,
A .$,,,,,.,
C a,g,,t,
T ,,,,,.,^!.
T ,$,,,,.,."'), header=TRUE,
stringsAsFactors=FALSE)
>> output
>>
>> A C G T
>> 1 0 1 4
>> 4 0 0 2
>> 4 2 0 0
>> 1 5 0 0
>> 0 0 4 3
It's also possible to apply the logic that Gabor Grothendieck offered
at the beginning of this thread:
dat[, "newcol"] <- apply(dat, 1, function(x) gsub("\\,|\\." ,x[1],
x[2]) )
# ... and the obvious repetition for C.G.T
> dat[,"A"] <- nchar( gsub("[^aA]", "", dat[ , "newcol"] ))
> dat
col3 col9 newcol A
1 T .a,g,, TaTgTT 1
2 A .t,t,, AtAtAA 4
3 A .,c,c, AAcAcA 4
4 C .,a,,, CCaCCC 1
5 G .,t,t,t GGtGtGt 0
6 A .c,,g,^!. AcAAgA^!A 5
7 A .g,ggg.^!, AgAgggA^!A 4
8 A .$,,,,,., A$AAAAAAA 8
9 C a,g,,t, aCgCCtC 1
10 T ,,,,,.,^!. TTTTTTT^!T 0
11 T ,$,,,,.,." T$TTTTTTT" 0
I am deeply in debt to Gabor Grothendieck. He taught me all I know
regarding regex. The man is a master at patterns.
--
David Winsemius, MD
West Hartford, CT
______________________________________________
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.
