Hi,

One way could be

with(base, tapply(r, list(p, q), sum))

HTH,
Jorge.-


On Sat, Dec 1, 2012 at 11:37 PM, CE.KA <> wrote:

> Hi R users
>
> Imagine the table "base":
> p=c("d","d","b","b","a","a")
> q=c("v1","v2","v1","v2","v1","v2")
> r=c(5,2,4,8,9,7)
> base=data.frame(p,q,r)
> base
>
>      p   q     r
> 1  d   v1   5
> 2  d   v2   2
> 3  b   v1  4
> 4  b   v2   8
> 5  a   v1   9
> 6  a   v2   7
>
> How programming R to get this result:
>
>              v1   v2
> a          9        7
> b         4        8
> d         5        2
>
> I tried the function table but the result is divided in several matrix:
> table(base$p,base$q,base$r)
> , ,  = 2
>
>
>     v1 v2
>   a  0  0
>   b  0  0
>   d  0  1
>
> , ,  = 4
>
>
>     v1 v2
>   a  0  0
>   b  1  0
>   d  0  0
>
> , ,  = 5
>
>
>     v1 v2
>   a  0  0
>   b  0  0
>   d  1  0
>
> , ,  = 7
>
>
>     v1 v2
>   a  0  1
>   b  0  0
>   d  0  0
>
> , ,  = 8
>
>
>     v1 v2
>   a  0  0
>   b  0  1
>   d  0  0
>
> , ,  = 9
>
>
>     v1 v2
>   a  1  0
>   b  0  0
>   d  0  0
>
> SIncerely yours
>
>
>
> --
> View this message in context:
> http://r.789695.n4.nabble.com/How-to-built-a-pivot-table-of-value-tp4651539.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> 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.
>

        [[alternative HTML version deleted]]

______________________________________________
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