How do I get a contingency table?

I’d like to point out that we can get the same results Andrie posted without using the function with:

R Base Package

# 3 options
table(warpbreaks[, 2:3])
table(warpbreaks[, c("wool", "tension")])
table(warpbreaks$wool, warpbreaks$tension, dnn = c("wool", "tension"))

    tension
wool L M H
   A 9 9 9
   B 9 9 9

Package gmodels:

library(gmodels)
# 2 options    
CrossTable(warpbreaks$wool, warpbreaks$tension)
CrossTable(warpbreaks$wool, warpbreaks$tension, dnn = c("Wool", "Tension"))


   Cell Contents
|-------------------------|
|                       N |
| Chi-square contribution |
|           N / Row Total |
|           N / Col Total |
|         N / Table Total |
|-------------------------|


Total Observations in Table:  54 


                | warpbreaks$tension 
warpbreaks$wool |         L |         M |         H | Row Total | 
----------------|-----------|-----------|-----------|-----------|
              A |         9 |         9 |         9 |        27 | 
                |     0.000 |     0.000 |     0.000 |           | 
                |     0.333 |     0.333 |     0.333 |     0.500 | 
                |     0.500 |     0.500 |     0.500 |           | 
                |     0.167 |     0.167 |     0.167 |           | 
----------------|-----------|-----------|-----------|-----------|
              B |         9 |         9 |         9 |        27 | 
                |     0.000 |     0.000 |     0.000 |           | 
                |     0.333 |     0.333 |     0.333 |     0.500 | 
                |     0.500 |     0.500 |     0.500 |           | 
                |     0.167 |     0.167 |     0.167 |           | 
----------------|-----------|-----------|-----------|-----------|
   Column Total |        18 |        18 |        18 |        54 | 
                |     0.333 |     0.333 |     0.333 |           | 
----------------|-----------|-----------|-----------|-----------|

Related Contents:

  1. How to prevent ifelse() from turning Date objects into numeric objects
  2. Force R not to use exponential notation (e.g. e+10)?
  3. Add a common Legend for combined ggplots
  4. Select the top N values by group
  5. Assign multiple columns using := in data.table, by group
  6. Convert data.frame column format from character to factor
  7. Create a variable name with “paste” in R?
  8. Overlay histogram with density curve
  9. ggplot2 two-line label with expression
  10. Offline install of R package and dependencies
  11. Remove an entire column from a data.frame in R
  12. Extract regression coefficient values
  13. Trimming a huge (3.5 GB) csv file to read into R
  14. Convert week number to date
  15. R tick data : merging date and time into a single object
  16. Count number of rows by group using dplyr
  17. Convert data.frame column to a vector?
  18. read.csv, header on first line, skip second line [duplicate]
  19. Remove all punctuation except apostrophes in R
  20. Subset data frame based on multiple conditions [duplicate]
  21. Formatting dates on X axis in ggplot2
  22. How to use objects from global environment in Rstudio Markdown
  23. What’s the differences between & and &&, | and || in R? [duplicate]
  24. mutate_each / summarise_each in dplyr: how do I select certain columns and give new names to mutated columns?
  25. Apply a function to every row of a matrix or a data frame
  26. Specifying colClasses in the read.csv
  27. Remove rows in R matrix where all data is NA [duplicate]
  28. duplicates in multiple columns
  29. ggplot2, facet_grid, free scales?
  30. Difference between as.POSIXct/as.POSIXlt and strptime for converting character vectors to POSIXct/POSIXlt
  31. Append data frames together in a for loop
  32. Using `geom_line()` with X axis being factors
  33. Create dataframe from a matrix
  34. What leads the first element of a printed list to be enclosed with backticks in R v3.5.1?
  35. How to append rows to an R data frame
  36. Create columns from factors and count [duplicate]
  37. Different legends and fill colours for facetted ggplot?
  38. Rscript: There is no package called …?
  39. Include space for missing factor level used in fill aesthetics in geom_boxplot
  40. Wind rose with ggplot (R)?
  41. Smaller gap between two legends in one plot (e.g. color and size scale)
  42. ggplot replace count with percentage in geom_bar
  43. spearman correlation by group in R
  44. Join two data frames in R based on closest timestamp
  45. Merging rows with the same ID variable [duplicate]
  46. R: ggplot2 barplot and error bar
  47. How to deal with hdf5 files in R?
  48. When should I use setDT() instead of data.table() to create a data.table?
  49. How to not show all labels on ggplot axis?
  50. ggplot2 for grayscale printouts

Leave a Comment