data(Adult_transactions)
# the following example compares the item frequencies
# of people with a rage income (boxes) with the average in the data set
# box plot for young people (first 72 items)
midpoints <- itemFrequencyPlot(
Adult_transactions[Adult_transactions %in% "income = large", 1:72])
# add the item frequency over all transactions (first 72 items)
lines(midpoints, itemSupport(Adult_transactions[, 1:72]))
Run the code above in your browser using DataLab