# [R] Pivot Table "like" structure

arun smartpink111 at yahoo.com
Sun Oct 14 03:41:00 CEST 2012

```Hi,

Not very clear whether this is you want.
#dat1 -data
aggregate(cbind(dat1\$State,dat1\$Coutry,dat1\$City),list(dat1\$Char1,dat1\$Char2,dat1\$Char3),length)
#or
ddply(dat1,.(Char1,Char2,Char3),colwise(length,c("State","Coutry","City")))
#  Char1 Char2  Char3 State Coutry City
#1     A  ABCD  ASDFG     1      1    1
#2     A  ABCD  DDDDD     1      1    1
#3     B  EFGH  ASDFG     1      1    1
#4     B  GGGG  ASDFG     1      1    1
#5     C  EFGH EEEEEE     1      1    1
#6     C  GGGG  DDDDD     1      1    1
#7     D  FGHJ  ASDFG     1      1    1
#8     M  EFGH EEEEEE     1      1    1
A.K.

----- Original Message -----
From: Bhupendrasinh Thakre <vickythakre at gmail.com>
To: "r-help at r-project.org help" <r-help at r-project.org>
Cc:
Sent: Saturday, October 13, 2012 8:38 PM
Subject: [R] Pivot Table "like" structure

HI Team,

I am currently working on problem and stumped on "for" loop.

Data:

structure(list(Coutry = structure(c(3L, 3L, 3L, 3L, 2L, 2L, 1L,
1L), .Label = c("J", "M", "U"), class = "factor"), State = structure(c(1L,
1L, 4L, 2L, 5L, 5L, 3L, 6L), .Label = c("A", "C", "K", "O", "S",
"T"), class = "factor"), City = structure(c(1L, 8L, 7L, 2L, 3L,
6L, 5L, 4L), .Label = c("BEN", "HRD", "JKL", "KK", "KL", "KMM",
"OKC", "TYU"), class = "factor"), Char1 = structure(c(1L, 2L,
1L, 3L, 4L, 2L, 3L, 5L), .Label = c("A", "B", "C", "D", "M"), class = "factor"),
Char2 = structure(c(1L, 2L, 1L, 2L, 3L, 4L, 4L, 2L), .Label = c("ABCD",
"EFGH", "FGHJ", "GGGG"), class = "factor"), Char3 = structure(c(1L,
1L, 2L, 3L, 1L, 1L, 2L, 3L), .Label = c("ASDFG", "DDDDD",
"EEEEEE"), class = "factor")), .Names = c("Coutry", "State",
"City", "Char1", "Char2", "Char3"), row.names = c(NA, -8L), class = "data.frame")

Question:

I am trying to create a pivot table which will count the occurrences of Char1 : Char4
from the columns Coutry, State, City. I am not sure to use all the four columns and get something like

structure(list(Group.1 = structure(1:4, .Label = c("ABCD", "EFGH",
"FGHJ", "GGGG"), class = "factor"), x = c(2L, 3L, 1L, 2L)), .Names = c("Group.1",
"x"), row.names = c(NA, -4L), class = "data.frame")

Code which I tried to use with not best results:

aggregate(State, list(Char2), FUN="count")

Best Regards,

Bhupendrasinh Thakre

[[alternative HTML version deleted]]

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help