# [R] Pivot Table "like" structure

John Kane jrkrideau at inbox.com
Tue Oct 16 17:14:06 CEST 2012

```Perhaps this but your results example did not include Char1.
ibrary(reshape2)
md  <-  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")

str(md)

md1  <-  melt(md, id = c("Coutry", "State", "City"))

apply(md1, 2, count)

John Kane

> -----Original Message-----
> From: vickythakre at gmail.com
> Sent: Sat, 13 Oct 2012 19:38:30 -0500
> To: r-help at r-project.org
> 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