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")
head(md)
str(md)
md1 <- melt(md, id = c("Coutry", "State", "City"))
apply(md1, 2, count)
John Kane
Kingston ON Canada
> -----Original Message-----
> From: vickytha...@gmail.com
> Sent: Sat, 13 Oct 2012 19:38:30 -0500
> To: r-help@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@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.
____________________________________________________________
GET FREE SMILEYS FOR YOUR IM & EMAIL - Learn more at
http://www.inbox.com/smileys
Works with AIM®, MSN® Messenger, Yahoo!® Messenger, ICQ®, Google Talk™ and most
webmails
______________________________________________
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.
