Thanks Rui, It is very useful indeed. Bests, Niklas 2013/2/26 Rui Barradas <ruipbarra...@sapo.pt>
> Hello, > > I'm not sure I understand, do you want to treat BCC, CBC and CCB as the > same? If so try > > w2 <- apply( y , 1 , function(x) paste0(sort(x) , collapse = "" )) > > table(w2) > > > Hope this helps, > > Rui Barradas > > Em 26-02-2013 13:58, Niklas Fischer escreveu: > >> Hi again, >> >> >> >> Thanks for Anthony about the links on reproducible codes. >> >> >> >> Thanks for Rui about ordering when rows are intact. >> >> >> >> One more question >> >> >> >> >> >> Here is your code. >> >> >> >> x <- >> cbind( >> sample( LETTERS[1:6] , 100 , replace = TRUE ) , >> sample( LETTERS[1:6] , 100 , replace = TRUE ) , >> sample( LETTERS[1:6] , 100 , replace = TRUE ) >> ) >> >> y <- as.matrix( x ) >> >> w2 <- apply( y , 1 , paste0 , collapse = "" ) >> table(w2) >> >> >> >> >> >> >> >> Do you know any trick to organize merge certain elements together? >> >> For example, if the final table includes >> >> BCC, CCB, CBC how should I sum frequency of one element like BCC? I have a >> very long table it would be indeed very useful! >> >> >> >> >> >> Niklas. >> >> 2013/2/25 Rui Barradas <ruipbarra...@sapo.pt> >> >> Hello, >>> >>> I disagree with the way you've sorted the matrix, like this all A's >>> become >>> first, then B's, etc, irrespective of the respondents. Each row is a >>> respondent, and the rows should be kept intact, but with a different >>> ordering. To this effect, use order(): >>> >>> z <- y[order(y[,1], y[,2], y[,3]), ] >>> >>> >>> Then use the rest of your code. >>> >>> Or, which would save us the sorting, paste the rows elements together >>> directly from matrix 'y' and use the fact that table() sorts its output. >>> >>> w2 <- apply( y , 1 , paste0 , collapse = "" ) >>> table(w2) >>> >>> >>> Hope this helps, >>> >>> Rui Barradas >>> >>> Em 25-02-2013 18:32, Anthony Damico escreveu: >>> >>> in the future, please provide R code to re-create some example data :) >>> >>>> read >>>> http://stackoverflow.com/****questions/5963269/how-to-make-****<http://stackoverflow.com/**questions/5963269/how-to-make-**> >>>> a-great-r-reproducible-****examplefor<http://** >>>> stackoverflow.com/questions/**5963269/how-to-make-a-great-r-** >>>> reproducible-examplefor<http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-examplefor> >>>> > >>>> >>>> more detail.. >>>> >>>> >>>> >>>> # create a data table with three unique columns' values.. >>>> # treat these values just like letters >>>> x <- >>>> cbind( >>>> sample( LETTERS[1:6] , 100 , replace = TRUE ) , >>>> sample( LETTERS[1:6] , 100 , replace = TRUE ) , >>>> sample( LETTERS[1:6] , 100 , replace = TRUE ) >>>> ) >>>> >>>> # look at x.. this is good data i hope? >>>> x >>>> >>>> # convert this to a matrix >>>> y <- as.matrix( x ) >>>> >>>> # i don't think you care about ordering, so sort left-to-rightwards >>>> z <- apply( y , 2 , sort ) >>>> >>>> # look at your results >>>> z >>>> >>>> # paste these results together across the matrix >>>> w <- apply( z , 1 , paste0 , collapse = "" ) >>>> >>>> # count the final distinct results >>>> table( w ) >>>> >>>> >>>> >>>> >>>> On Mon, Feb 25, 2013 at 1:04 PM, Niklas Fischer >>>> <niklasfischer...@gmail.com>****wrote: >>>> >>>> Dear R users, >>>> >>>>> >>>>> I have three questions measuring close relationships. >>>>> The questions are same and the respondents put the answer in order. >>>>> >>>>> I'd like to examine the pattern of answers and visualize it. >>>>> >>>>> For example q1 (A,B,C,D,E) and q2 and q3 are the same. If the >>>>> respondents >>>>> selects A B C (so BCA or BAC or CBA or CAB), I'd like to construct >>>>> frequency table for ABC and other combinations for example DEF. >>>>> >>>>> >>>>> Unfortunately, there are many answers, and three-way contingency table >>>>> includes lots of cells which make it diffucult to interpret and >>>>> requires >>>>> lots of extra work to organize data. >>>>> >>>>> What is the best way to construct fruequency table of these kind of >>>>> variables and to visulize the results with the most simple form >>>>> >>>>> >>>>> All the bests, >>>>> Niklas >>>>> >>>>> [[alternative HTML version deleted]] >>>>> >>>>> ______________________________****________________ >>>>> R-help@r-project.org mailing list >>>>> https://stat.ethz.ch/mailman/****listinfo/r-help<https://stat.ethz.ch/mailman/**listinfo/r-help> >>>>> <https://stat.**ethz.ch/mailman/listinfo/r-**help<https://stat.ethz.ch/mailman/listinfo/r-help> >>>>> > >>>>> >>>>> PLEASE do read the posting guide >>>>> http://www.R-project.org/****posting-guide.html<http://www.R-project.org/**posting-guide.html> >>>>> <http://www.**R-project.org/posting-guide.**html<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<https://stat.ethz.ch/mailman/**listinfo/r-help> >>>> <https://stat.**ethz.ch/mailman/listinfo/r-**help<https://stat.ethz.ch/mailman/listinfo/r-help> >>>> > >>>> PLEASE do read the posting guide http://www.R-project.org/** >>>> posting-guide.html >>>> <http://www.R-project.org/**posting-guide.html<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.
