if (FALSE) {
# A CrunchCube with a heading and subtotals
crtabs(~opinion, ds)
# All opinions
# Strongly Agree 23
# Somewhat Agree 24
# Agree 47
# Neither Agree nor Disagree 18
# Somewhat Disagree 16
# Strongly Disagree 19
# Disagree 35
noTransforms(crtabs(~opinion, ds))
# Strongly Agree Somewhat Agree Neither Agree nor Disagree
# 23 24 18
# Somewhat Disagree Strongly Disagree
# 16 19
}
Run the code above in your browser using DataLab