data("Adult")
### get unique transactions
vals <- unique(Adult)
### count frequency of unique transactions
cnts <- tabulate(match(Adult, vals))
### plot frequency of unique transactions
plot(sort(cnts, decreasing=TRUE))
Run the code above in your browser using DataLab