# [R] Condensing data.frame

John Posner john.posner at MJBIOSTAT.COM
Mon Dec 8 03:01:43 CET 2014

```Looking over Jeff's "dplyr" solution, I see that I forgot this part of the original spec:

where the first 6 have the highest "countPercentage"

So here's a corrected sum_cid() function for my "plyr" solution:

summ_cid = function(frm) {
# sort by countPercentage
sorted_frm = arrange(frm, desc(countPercentage))
# grab at most 6 rows
toprows[nrow(toprows)+1,] = c(toprows[1,1], NA, NA, NA, sum(toprows\$countPercentage))
# all done
return(toprows)
}

-John

> -----Original Message-----
> From: Jeff Newmiller [mailto:jdnewmil at dcn.davis.ca.us]
> Sent: Sunday, December 07, 2014 3:14 PM
> To: John Posner
> Cc: 'Chel Hee Lee'; Morway, Eric; R mailing list
> Subject: Re: [R] Condensing data.frame
>
> dplyr version (good for large datasets):
>
> library(dplyr)
>
> # if original example dat data.frame is used # using read.csv with as.is=TRUE
> or stringsAsFactors=FALSE is better dat\$tax_name <- as.character(
> dat\$tax_name )
>
> # dplyr pipe chain
> (   dat
> %>% arrange( site, desc( countPercentage )) %>% group_by( site ) %>% do(
> rbind_list( .[ 1:6, c( "site", "tax_name", "countPercentage" ) ]
>                    , data.frame( site=.[ 1, "site" ]
>                                , tax_name="Other"
>                                , countPercentage=sum( .[ -(1:6)
>                                                        , "countPercentage" ] )
>                                )
>                    )
>        )
> %>% as.data.frame
> )
>
> #note that this will break if there are fewer than 7 rows for any site
>
> On Sun, 7 Dec 2014, John Posner wrote:
>
> > Here's a solution using the plyr library:
> >
> > ####################
> > library(plyr)
> >
> as.is=TRUE
> > text="site,tax_name,count,countTotal,countPercentage
> > CID_1,Cyanobacteria,46295,123509,37.483098398
> > CID_1,Proteobacteria,36120,123509,29.244832360
> > CID_1,Bacteroidetes,19546,123509,15.825567368
> > CID_1,Verrucomicrobia,7886,123509,6.384959801
> > CID_1,Firmicutes,2843,123509,2.301856545
> >   ... <lines deleted here>
> > CID_9,Fusobacteria,25,77120,0.032417012
> > CID_9,Aquificae,13,77120,0.016856846
> > CID_9,Synergistetes,12,77120,0.015560166
> > CID_9,Deferribacteres,8,77120,0.010373444
> > CID_9,Thermotogae,7,77120,0.009076763
> > CID_9,Chrysiogenetes,3,77120,0.003890041.
> > ")
> >
> > summ_cid = function(frm) {
> >  # grab at most 6 rows from data frame  toprows = head(frm, 6)  # add
> > a 7th row  toprows[nrow(toprows)+1,] = c(toprows[1,1], "", NA, NA,
> > sum(toprows\$countPercentage))  # all done
> >  return(toprows)
> > }
> >
> > result = ddply(dat, "site", summ_cid)
> > ####################
> >
> > Notes:
> >
> > 1. I needed to add the as.is=TRUE option to read.table() 2. The
> > invocation of ddply() does *not* use summarize() 3. Because there is
> > no use of summarize(), I have not figured out how to use the dplyr package
> in this context.
> >
> > -John
> >
> >> -----Original Message-----
> >> From: R-help [mailto:r-help-bounces at r-project.org] On Behalf Of Chel
> >> Hee Lee
> >> Sent: Sunday, December 07, 2014 11:43 AM
> >> To: Morway, Eric; R mailing list
> >> Subject: Re: [R] Condensing data.frame
> >>
> >> > datBySite <- split(dat, dat\$site)
> >> > output <- lapply(datBySite, function(x){
> >> + x\$idx <- seq_len(nrow(x))
> >> + x\$grp <- ifelse(x\$idx < 7, x\$idx, 7) rval <-
> >> + tapply(x\$countPercentage, x\$grp, sum) x\$grp <- x\$count <-
> >> + x\$countTotal <- NULL x <- x[seq_len(7), ] x\$tax_name <-
> >> + as.character(x\$tax_name) x\$tax_name[7] <- "Others"
> >> + x\$new <- rval
> >> + return(x)
> >> + })
> >> >
> >> > head(do.call(rbind, output), 14)
> >>              site        tax_name countPercentage idx       new
> >> CID_1.1    CID_1   Cyanobacteria       37.483098   1 37.483098
> >> CID_1.2    CID_1  Proteobacteria       29.244832   2 29.244832
> >> CID_1.3    CID_1   Bacteroidetes       15.825567   3 15.825567
> >> CID_1.4    CID_1 Verrucomicrobia        6.384960   4  6.384960
> >> CID_1.5    CID_1      Firmicutes        2.301857   5  2.301857
> >> CID_1.6    CID_1   Acidobacteria        2.075152   6  2.075152
> >> CID_1.7    CID_1          Others        1.675182   7  6.684533
> >> CID_10.27 CID_10  Proteobacteria       35.366606   1 35.366606
> >> CID_10.28 CID_10   Bacteroidetes       25.188484   2 25.188484
> >> CID_10.29 CID_10   Cyanobacteria       23.294828   3 23.294828
> >> CID_10.30 CID_10 Verrucomicrobia        6.970592   4  6.970592
> >> CID_10.31 CID_10   Acidobacteria        1.988448   5  1.988448
> >> CID_10.32 CID_10  Actinobacteria        1.644548   6  1.644548
> >> CID_10.33 CID_10          Others        1.582823   7  5.546493
> >> >
> >>
> >> I hope this helps.
> >>
> >> Chel Hee Lee
> >>
> >> On 12/07/2014 08:21 AM, Morway, Eric wrote:
> >>> Using the dataset "dat" (found below), I'm seeking a way to condense
> >>> down the data.frame such that each "site" (i.e., "CID_1"..."CID_13")
> >>> has a maximum of 7 rows of post-processed data, where the first 6
> >>> have the highest "countPercentage" and the 7th row is the sum of
> >> "countPercentage"
> >>> from all other rows within that "site", and it is assigned the name
> >>> "Other".  So, for the first two sites in the provided data.frame,
> >>> CID_1 & CID_10, they would reduce to:
> >>>
> >>> CID_1 Cyanobacteria     37.48
> >>> CID_1 Proteobacteria     29.24
> >>> CID_1 Bacteroidetes      15.83
> >>> CID_1 Verrucomicrobia  6.38
> >>> CID_1 Firmicutes          2.30
> >>> CID_1 Acidobacteria      2.08
> >>> CID_1 Other                6.68
> >>> CID_10 Proteobacteria     35.37
> >>> CID_10 Bacteroidetes      25.19
> >>> CID_10 Cyanobacteria     23.29
> >>> CID_10 Verrucomicrobia  6.97
> >>> CID_10 Acidobacteria      1.99
> >>> CID_10 Actinobacteria     1.64
> >>> CID_10 Other                 5.55
> >>>
> >>>
> >>> text="site,tax_name,count,countTotal,countPercentage
> >>> CID_1,Cyanobacteria,46295,123509,37.483098398
> >>> CID_1,Proteobacteria,36120,123509,29.244832360
> >>> CID_1,Bacteroidetes,19546,123509,15.825567368
> >>> CID_1,Verrucomicrobia,7886,123509,6.384959801
> >>> CID_1,Firmicutes,2843,123509,2.301856545
> >>> CID_1,Acidobacteria,2563,123509,2.075152418
> >>> CID_1,Actinobacteria,2069,123509,1.675181566
> >>> CID_1,Planctomycetes,1481,123509,1.199102899
> >>> CID_1,Chloroflexi,1181,123509,0.956205621
> >>> CID_1,Spirochaetes,688,123509,0.557044426
> >>> CID_1,Lentisphaerae,526,123509,0.425879895
> >>> CID_1,Ignavibacteriae,324,123509,0.262329061
> >>> CID_1,Chlorobi,238,123509,0.192698508
> >>> CID_1,Nitrospirae,230,123509,0.186221247
> >>> CID_1,Nitrospinae,169,123509,0.136832134
> >>> CID_1,Elusimicrobia,131,123509,0.106065145
> >>> CID_1,Tenericutes,114,123509,0.092300966
> >>> CID_1,Fibrobacteres,72,123509,0.058295347
> >>> CID_1,Thermotogae,21,123509,0.017002810
> >>> CID_1,Fusobacteria,21,123509,0.017002810
> >>> CID_1,Synergistetes,10,123509,0.008096576
> >>> CID_1,Deinococcus-Thermus,6,123509,0.004857946
> >>> CID_1,Deferribacteres,2,123509,0.001619315
> >>> CID_1,Caldiserica,2,123509,0.001619315
> >>> CID_10,Proteobacteria,16043,45362,35.366606411
> >>> CID_10,Bacteroidetes,11426,45362,25.188483753
> >>> CID_10,Cyanobacteria,10567,45362,23.294828270
> >>> CID_10,Verrucomicrobia,3162,45362,6.970592126
> >>> CID_10,Acidobacteria,902,45362,1.988448481
> >>> CID_10,Actinobacteria,746,45362,1.644548300
> >>> CID_10,Firmicutes,718,45362,1.582822627
> >>> CID_10,Planctomycetes,357,45362,0.787002337
> >>> CID_10,Chloroflexi,265,45362,0.584189410
> >>> CID_10,Spirochaetes,235,45362,0.518054759
> >>> CID_10,Ignavibacteriae,177,45362,0.390194436
> >>> CID_10,Lentisphaerae,108,45362,0.238084741
> >>> CID_10,Nitrospinae,75,45362,0.165336625
> >>> CID_10,Nitrospirae,58,45362,0.127860324
> >>> CID_10,Chlorobi,44,45362,0.096997487
> >>> CID_10,Elusimicrobia,28,45362,0.061725673
> >>> CID_10,Fibrobacteres,26,45362,0.057316697
> >>> CID_10,Deinococcus-Thermus,13,45362,0.028658348
> >>> CID_10,Tenericutes,10,45362,0.022044883
> >>> CID_10,Synergistetes,9,45362,0.019840395
> >>> CID_10,Fusobacteria,9,45362,0.019840395
> >>> CID_10,Deferribacteres,6,45362,0.013226930
> >>> CID_10,Thermotogae,3,45362,0.006613465
> >>> CID_10,Caldiserica,2,45362,0.004408977
> >>> CID_11,Proteobacteria,10019,31387,31.920858954
> >>> CID_11,Cyanobacteria,8811,31387,28.072131774
> >>> CID_11,Bacteroidetes,7930,31387,25.265237200
> >>> CID_11,Verrucomicrobia,1750,31387,5.575556759
> >>> CID_11,Firmicutes,806,31387,2.567942142
> >>> CID_11,Acidobacteria,548,31387,1.745945774
> >>> CID_11,Actinobacteria,434,31387,1.382738076
> >>> CID_11,Chloroflexi,203,31387,0.646764584
> >>> CID_11,Planctomycetes,197,31387,0.627648389
> >>> CID_11,Ignavibacteriae,87,31387,0.277184822
> >>> CID_11,Spirochaetes,80,31387,0.254882595
> >>> CID_11,Tenericutes,71,31387,0.226208303
> >>> CID_11,Fusobacteria,67,31387,0.213464173
> >>> CID_11,Lentisphaerae,54,31387,0.172045751
> >>> CID_11,Chlorobi,40,31387,0.127441297
> >>> CID_11,Nitrospinae,33,31387,0.105139070
> >>> CID_11,Fibrobacteres,15,31387,0.047790487
> >>> CID_11,Nitrospirae,13,31387,0.041418422
> >>> CID_11,Elusimicrobia,13,31387,0.041418422
> >>> CID_11,Deinococcus-Thermus,2,31387,0.006372065
> >>> CID_12,Cyanobacteria,241,644,37.422360248
> >>> CID_12,Bacteroidetes,210,644,32.608695652
> >>> CID_12,Proteobacteria,118,644,18.322981366
> >>> CID_12,Verrucomicrobia,38,644,5.900621118
> >>> CID_12,Acidobacteria,11,644,1.708074534
> >>> CID_12,Ignavibacteriae,6,644,0.931677019
> >>> CID_12,Lentisphaerae,5,644,0.776397516
> >>> CID_12,Firmicutes,5,644,0.776397516
> >>> CID_12,Planctomycetes,3,644,0.465838509
> >>> CID_12,Fusobacteria,3,644,0.465838509
> >>> CID_12,Tenericutes,2,644,0.310559006
> >>> CID_12,Actinobacteria,2,644,0.310559006
> >>> CID_13,Cyanobacteria,8581,25530,33.611437524
> >>> CID_13,Bacteroidetes,6878,25530,26.940853897
> >>> CID_13,Proteobacteria,5341,25530,20.920485703
> >>> CID_13,Verrucomicrobia,1244,25530,4.872698786
> >>> CID_13,Firmicutes,1148,25530,4.496670584
> >>> CID_13,Acidobacteria,548,25530,2.146494320
> >>> CID_13,Spirochaetes,477,25530,1.868390129
> >>> CID_13,Ignavibacteriae,298,25530,1.167254211
> >>> CID_13,Actinobacteria,227,25530,0.889150020
> >>> CID_13,Planctomycetes,184,25530,0.720720721
> >>> CID_13,Chloroflexi,181,25530,0.708969839
> >>> CID_13,Lentisphaerae,93,25530,0.364277321
> >>> CID_13,Tenericutes,61,25530,0.238934587
> >>> CID_13,Fibrobacteres,47,25530,0.184097141
> >>> CID_13,Nitrospinae,28,25530,0.109674892
> >>> CID_13,Nitrospirae,26,25530,0.101840971
> >>> CID_13,Chlorobi,18,25530,0.070505288
> >>> CID_13,Elusimicrobia,13,25530,0.050920486
> >>> CID_13,Synergistetes,8,25530,0.031335684
> >>> CID_13,Fusobacteria,4,25530,0.015667842
> >>> CID_13,Deinococcus-Thermus,2,25530,0.007833921
> >>> CID_13,Thermotogae,2,25530,0.007833921
> >>> CID_2,Cyanobacteria,43812,94826,46.202518297
> >>> CID_2,Proteobacteria,22180,94826,23.390209436
> >>> CID_2,Bacteroidetes,16993,94826,17.920190665
> >>> CID_2,Verrucomicrobia,4779,94826,5.039757029
> >>> CID_2,Acidobacteria,1728,94826,1.822285027
> >>> CID_2,Firmicutes,1385,94826,1.460569886
> >>> CID_2,Planctomycetes,815,94826,0.859468922
> >>> CID_2,Actinobacteria,677,94826,0.713939215
> >>> CID_2,Chloroflexi,416,94826,0.438698247
> >>> CID_2,Spirochaetes,415,94826,0.437643684
> >>> CID_2,Lentisphaerae,221,94826,0.233058444
> >>> CID_2,Ignavibacteriae,180,94826,0.189821357
> >>> CID_2,Fibrobacteres,155,94826,0.163457280
> >>> CID_2,Chlorobi,112,94826,0.118111067
> >>> CID_2,Elusimicrobia,111,94826,0.117056503
> >>> CID_2,Tenericutes,75,94826,0.079092232
> >>> CID_2,Nitrospinae,40,94826,0.042182524
> >>> CID_2,Nitrospirae,31,94826,0.032691456
> >>> CID_2,Deinococcus-Thermus,17,94826,0.017927573
> >>> CID_2,Synergistetes,16,94826,0.016873010
> >>> CID_2,Fusobacteria,15,94826,0.015818446
> >>> CID_2,Deferribacteres,7,94826,0.007381942
> >>> CID_2,Caldiserica,2,94826,0.002109126
> >>> CID_2,Thermotogae,2,94826,0.002109126
> >>> CID_3,Cyanobacteria,18888,46181,40.899937204
> >>> CID_3,Proteobacteria,12532,46181,27.136701241
> >>> CID_3,Bacteroidetes,9070,46181,19.640111734
> >>> CID_3,Verrucomicrobia,2291,46181,4.960914662
> >>> CID_3,Acidobacteria,689,46181,1.491955566
> >>> CID_3,Firmicutes,631,46181,1.366362790
> >>> CID_3,Actinobacteria,470,46181,1.017734566
> >>> CID_3,Spirochaetes,366,46181,0.792533726
> >>> CID_3,Planctomycetes,326,46181,0.705918018
> >>> CID_3,Chloroflexi,282,46181,0.610640740
> >>> CID_3,Fibrobacteres,116,46181,0.251185552
> >>> CID_3,Ignavibacteriae,109,46181,0.236027804
> >>> CID_3,Nitrospinae,46,46181,0.099608064
> >>> CID_3,Nitrospirae,44,46181,0.095277279
> >>> CID_3,Tenericutes,40,46181,0.086615708
> >>> CID_3,Lentisphaerae,38,46181,0.082284922
> >>> CID_3,Chlorobi,16,46181,0.034646283
> >>> CID_3,Elusimicrobia,14,46181,0.030315498
> >>> CID_3,Fusobacteria,10,46181,0.021653927
> >>> CID_3,Synergistetes,2,46181,0.004330785
> >>> CID_4,Proteobacteria,433,1005,43.084577114
> >>> CID_4,Bacteroidetes,301,1005,29.950248756
> >>> CID_4,Actinobacteria,111,1005,11.044776119
> >>> CID_4,Cyanobacteria,44,1005,4.378109453
> >>> CID_4,Acidobacteria,28,1005,2.786069652
> >>> CID_4,Chloroflexi,24,1005,2.388059701
> >>> CID_4,Nitrospirae,21,1005,2.089552239
> >>> CID_4,Verrucomicrobia,12,1005,1.194029851
> >>> CID_4,Firmicutes,7,1005,0.696517413
> >>> CID_4,Spirochaetes,5,1005,0.497512438
> >>> CID_4,Ignavibacteriae,5,1005,0.497512438
> >>> CID_4,Elusimicrobia,2,1005,0.199004975
> >>> CID_5,Proteobacteria,5002,11914,41.984220245
> >>> CID_5,Bacteroidetes,1512,11914,12.690951821
> >>> CID_5,Verrucomicrobia,1361,11914,11.423535337
> >>> CID_5,Acidobacteria,1207,11914,10.130938392
> >>> CID_5,Cyanobacteria,721,11914,6.051703878
> >>> CID_5,Planctomycetes,635,11914,5.329864026
> >>> CID_5,Actinobacteria,398,11914,3.340607688
> >>> CID_5,Nitrospirae,314,11914,2.635554809
> >>> CID_5,Chloroflexi,313,11914,2.627161323
> >>> CID_5,Firmicutes,195,11914,1.636729898
> >>> CID_5,Chlorobi,31,11914,0.260198086
> >>> CID_5,Ignavibacteriae,21,11914,0.176263220
> >>> CID_5,Fusobacteria,14,11914,0.117508813
> >>> CID_5,Deinococcus-Thermus,10,11914,0.083934867
> >>> CID_5,Lentisphaerae,9,11914,0.075541380
> >>> CID_5,Elusimicrobia,7,11914,0.058754407
> >>> CID_5,Nitrospinae,7,11914,0.058754407
> >>> CID_5,Synergistetes,4,11914,0.033573947
> >>> CID_5,Spirochaetes,2,11914,0.016786973
> >>> CID_6,Cyanobacteria,6462,17852,36.197624916
> >>> CID_6,Proteobacteria,5036,17852,28.209724401
> >>> CID_6,Bacteroidetes,3906,17852,21.879901412
> >>> CID_6,Verrucomicrobia,1016,17852,5.691239077
> >>> CID_6,Acidobacteria,317,17852,1.775711405
> >>> CID_6,Actinobacteria,286,17852,1.602061394
> >>> CID_6,Firmicutes,234,17852,1.310777504
> >>> CID_6,Planctomycetes,134,17852,0.750616177
> >>> CID_6,Spirochaetes,97,17852,0.543356487
> >>> CID_6,Chloroflexi,77,17852,0.431324221
> >>> CID_6,Lentisphaerae,56,17852,0.313690343
> >>> CID_6,Ignavibacteriae,35,17852,0.196056464
> >>> CID_6,Nitrospirae,23,17852,0.128837105
> >>> CID_6,Nitrospinae,19,17852,0.106430652
> >>> CID_6,Tenericutes,12,17852,0.067219359
> >>> CID_6,Chlorobi,8,17852,0.044812906
> >>> CID_6,Fibrobacteres,7,17852,0.039211293
> >>> CID_6,Elusimicrobia,4,17852,0.022406453
> >>> CID_6,Fusobacteria,2,17852,0.011203227
> >>> CID_6,Deferribacteres,2,17852,0.011203227
> >>> CID_7,Cyanobacteria,11046,30425,36.305669680
> >>> CID_7,Proteobacteria,8418,30425,27.668036154
> >>> CID_7,Bacteroidetes,6197,30425,20.368118324
> >>> CID_7,Verrucomicrobia,1745,30425,5.735414955
> >>> CID_7,Firmicutes,732,30425,2.405916187
> >>> CID_7,Acidobacteria,582,30425,1.912900575
> >>> CID_7,Actinobacteria,365,30425,1.199671323
> >>> CID_7,Fusobacteria,344,30425,1.130649137
> >>> CID_7,Planctomycetes,253,30425,0.831552999
> >>> CID_7,Chloroflexi,221,30425,0.726376335
> >>> CID_7,Spirochaetes,127,30425,0.417419885
> >>> CID_7,Lentisphaerae,88,30425,0.289235826
> >>> CID_7,Ignavibacteriae,69,30425,0.226787182
> >>> CID_7,Nitrospinae,37,30425,0.121610518
> >>> CID_7,Nitrospirae,21,30425,0.069022186
> >>> CID_7,Chlorobi,17,30425,0.055875103
> >>> CID_7,Elusimicrobia,15,30425,0.049301561
> >>> CID_7,Fibrobacteres,9,30425,0.029580937
> >>> CID_7,Deferribacteres,4,30425,0.013147083
> >>> CID_8,Cyanobacteria,14446,43589,33.141388883
> >>> CID_8,Proteobacteria,13270,43589,30.443460506
> >>> CID_8,Bacteroidetes,8834,43589,20.266581018
> >>> CID_8,Verrucomicrobia,2529,43589,5.801922503
> >>> CID_8,Firmicutes,1176,43589,2.697928376
> >>> CID_8,Acidobacteria,780,43589,1.789442290
> >>> CID_8,Actinobacteria,542,43589,1.243432976
> >>> CID_8,Spirochaetes,406,43589,0.931427654
> >>> CID_8,Planctomycetes,295,43589,0.676776251
> >>> CID_8,Chloroflexi,277,43589,0.635481429
> >>> CID_8,Ignavibacteriae,243,43589,0.557480098
> >>> CID_8,Lentisphaerae,230,43589,0.527656060
> >>> CID_8,Fusobacteria,106,43589,0.243180619
> >>> CID_8,Tenericutes,57,43589,0.130766937
> >>> CID_8,Nitrospirae,51,43589,0.117001996
> >>> CID_8,Chlorobi,50,43589,0.114707839
> >>> CID_8,Nitrospinae,36,43589,0.082589644
> >>> CID_8,Fibrobacteres,34,43589,0.078001331
> >>> CID_8,Elusimicrobia,29,43589,0.066530547
> >>> CID_8,Aquificae,8,43589,0.018353254
> >>> CID_8,Deferribacteres,7,43589,0.016059097
> >>> CID_8,Dictyoglomi,2,43589,0.004588314
> >>> CID_9,Proteobacteria,26463,77120,34.314056017
> >>> CID_9,Cyanobacteria,20329,77120,26.360217842
> >>> CID_9,Bacteroidetes,15956,77120,20.689834025
> >>> CID_9,Verrucomicrobia,3323,77120,4.308869295
> >>> CID_9,Firmicutes,2726,77120,3.534751037
> >>> CID_9,Spirochaetes,1644,77120,2.131742739
> >>> CID_9,Acidobacteria,1634,77120,2.118775934
> >>> CID_9,Actinobacteria,1200,77120,1.556016598
> >>> CID_9,Chloroflexi,1128,77120,1.462655602
> >>> CID_9,Planctomycetes,872,77120,1.130705394
> >>> CID_9,Ignavibacteriae,578,77120,0.749481328
> >>> CID_9,Lentisphaerae,264,77120,0.342323651
> >>> CID_9,Fibrobacteres,170,77120,0.220435685
> >>> CID_9,Nitrospirae,148,77120,0.191908714
> >>> CID_9,Nitrospinae,136,77120,0.176348548
> >>> CID_9,Chlorobi,74,77120,0.095954357
> >>> CID_9,Tenericutes,71,77120,0.092064315
> >>> CID_9,Elusimicrobia,46,77120,0.059647303
> >>> CID_9,Fusobacteria,25,77120,0.032417012
> >>> CID_9,Aquificae,13,77120,0.016856846
> >>> CID_9,Synergistetes,12,77120,0.015560166
> >>> CID_9,Deferribacteres,8,77120,0.010373444
> >>> CID_9,Thermotogae,7,77120,0.009076763
> >>> CID_9,Chrysiogenetes,3,77120,0.003890041
> >>> ")
> >>>
> >>> 	[[alternative HTML version deleted]]
> >>>
> >>> ______________________________________________
> >>> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> >>> https://stat.ethz.ch/mailman/listinfo/r-help
> >>> http://www.R-project.org/posting-guide.html
> >>> and provide commented, minimal, self-contained, reproducible code.
> >>>
> >>
> >> ______________________________________________
> >> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> >> https://stat.ethz.ch/mailman/listinfo/r-help
> >> guide.html and provide commented, minimal, self-contained,
> >> reproducible code.
> >
> > ______________________________________________
> > R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > http://www.R-project.org/posting-guide.html
> > and provide commented, minimal, self-contained, reproducible code.
> >
>
> ---------------------------------------------------------------------------
> Jeff Newmiller                        The     .....       .....  Go Live...
> DCN:<jdnewmil at dcn.davis.ca.us>        Basics: ##.#.       ##.#.  Live Go...
>                                        Live:   OO#.. Dead: OO#..  Playing
> Research Engineer (Solar/Batteries            O.O#.       #.O#.  with
> /Software/Embedded Controllers)               .OO#.       .OO#.  rocks...1k
> ---------------------------------------------------------------------------

```