On Nov 2, 2011, at 2:11 PM, Sarah Goslee wrote:

Hi,

On Wed, Nov 2, 2011 at 8:44 AM, Celine <bellard.cel...@gmail.com> wrote:

Celine. Please stop posting duplicates.


CELLCD AreaProtected
 8928      52.39389
 8928      41.91511
 8929      21.21975
 8929      63.65925
 8930      26.08547
 8930      14.04602

You'll need to figure out how you want it to be combined with the
original data frame, since there can't be empty cells, but:

dput(testdata)
structure(list(CELLCD = c(8928L, 8928L, 8929L, 8929L, 8930L,
8930L), AreaProtected = c(52.39389, 41.91511, 21.21975, 63.65925,
26.08547, 14.04602)), .Names = c("CELLCD", "AreaProtected"), class =
"data.frame", row.names = c(NA,
-6L))

aggregate(testdata$AreaProtected, by=list(CELLCD=testdata$CELLCD), FUN="sum")
CELLCD        x
1   8928 94.30900
2   8929 84.87900
3   8930 40.13149

Or:
> testdata$SumArea <- with(testdata, ave(AreaProtected, CELLCD, FUN=sum))
> testdata
 CELLCD AreaProtected  SumArea
1   8928      52.39389 94.30900
2   8928      41.91511 94.30900
3   8929      21.21975 84.87900
4   8929      63.65925 84.87900
5   8930      26.08547 40.13149
6   8930      14.04602 40.13149

--
David Winsemius, MD
Heritage Laboratories
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.

Reply via email to