FIRST:
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
If you expect an answer, please provide the data. Here is one way of doing it:
> N <- 30
> x <- data.frame(A=sample(1:3, N, TRUE), B=sample(1:2, N, TRUE),
+ C=sample(1:2, N, TRUE), D=sample(1:4, N, TRUE), data=runif(N))
> require(reshape)
> x.m <- melt(x, measure='data')
> cast(x.m, A+B+C~D, mean)
A B C 1 2 3 4
1 1 1 1 0.51473265 0.7396417 0.0853110 NaN
2 1 1 2 0.07246063 0.2939918 NaN NaN
3 1 2 1 NaN NaN 0.5297180 0.10505014
4 1 2 2 NaN 0.8383841 NaN NaN
5 2 1 1 NaN NaN 0.8016877 0.04152843
6 2 1 2 0.34448739 NaN NaN 0.35757999
7 2 2 1 0.87943330 NaN 0.1431666 0.92051784
8 2 2 2 NaN NaN 0.5008505 NaN
9 3 1 1 0.48216957 0.4230986 NaN 0.53786492
10 3 1 2 NaN 0.7602803 NaN 0.33989081
11 3 2 1 0.43471764 NaN 0.2642490 NaN
12 3 2 2 NaN 0.3665636 NaN 0.37875944
On Tue, Oct 27, 2009 at 8:32 PM, Jonathan Greenberg
<greenb...@ucdavis.edu> wrote:
> R-helpers:
>
> I have a data frame containing 4 factor variables (let's say A,B,C, and D)
> and 1 numerical variable (N). I would like to produce a cross-tabulated
> data frame in which A,B,C are individual columns, each factor of D is its
> own column, and the field is calculated as a given function of N (I would
> like to have two output data frames, one with the mean(N) and one with the
> sum(N), e.g.:
>
> A, B, C, D1, D2,
> ..., DM
> A1 B1 C1 mean(N{A1,B1,C1,D1)}) mean(N{A1,B1,C1,D2)})
> mean(N{A1,B1,C1,DM)})
> A2 B1 C1 mean(N{A2,B1,C1,D1)}) mean(N{A2,B1,C1,D2)})
> mean(N{A2,B1,C1,DM)})
> etc...
>
> I can mostly do this with aggregate, e.g.
> output = aggregate(N,list(A,B,C,D),mean), but I can't get that last step of
> cross-tabulating the Ds to column headers. table() and xtabs() appear to
> just count, rather than giving me access to sum() and mean(). Any ideas?
> Ideally I'd like to do this in a single step, as the aggregate output
> (above) produces a much larger data frame than a cross-tabulated output
> would (in my particular case).
>
> --j
>
> --
>
> Jonathan A. Greenberg, PhD
> Postdoctoral Scholar
> Center for Spatial Technologies and Remote Sensing (CSTARS)
> University of California, Davis
> One Shields Avenue
> The Barn, Room 250N
> Davis, CA 95616
> Phone: 415-763-5476
> AIM: jgrn307, MSN: jgrn...@hotmail.com, Gchat: jgrn307
>
> ______________________________________________
> 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.
>
--
Jim Holtman
Cincinnati, OH
+1 513 646 9390
What is the problem that you are trying to solve?
______________________________________________
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.
