Create a co-occurrence matrix from dummy-coded observations

by

This will do the trick:

X <- as.matrix(X)
out <- crossprod(X)  # Same as: t(X) %*% X
diag(out) <- 0       # (b/c you don't count co-occurrences of an aspect with itself)
out
#      [,1] [,2] [,3] [,4]
# [1,]    0    0    1    0
# [2,]    0    0    2    1
# [3,]    1    2    0    1
# [4,]    0    1    1    0

To get the results into a data.frame exactly like the one you showed, you can then do something like:

nms <- paste("X", 1:4, sep="")
dimnames(out) <- list(nms, nms)
out <- as.data.frame(out)

More Related Contents:

  1. Controlling number of decimal digits in print output in R
  2. Merging a lot of data.frames [duplicate]
  3. How do you specifically order ggplot2 x axis instead of alphabetical order? [duplicate]
  4. How to flatten / merge overlapping time periods
  5. Using regex in R to find strings as whole words (but not strings as part of words)
  6. Convert column with pipe delimited data into dummy variables [duplicate]
  7. Replace specific characters within strings
  8. dplyr: nonstandard column names (white space, punctuation, starts with numbers)
  9. Displaying text below the plot generated by ggplot2
  10. How can I disable scientific notation?
  11. ggplot2 and a Stacked Bar Chart with Negative Values
  12. backtransform `scale()` for plotting
  13. Is there a way of manipulating ggplot scale breaks and labels?
  14. Setting Function Defaults R on a Project Specific Basis
  15. Create empty data frame with column names by assigning a string vector? [duplicate]
  16. Combine/merge lists by elements names
  17. How to determine if you have an internet connection in R
  18. data.frame Group By column [duplicate]
  19. How to group data.table by multiple columns?
  20. How do I change the number of decimal places on axis labels in ggplot2?
  21. What is difference between dataframe and list in R?
  22. R – How to make a click on webpage using rvest or rcurl
  23. Merge overlapping ranges into unique groups, in dataframe
  24. Time series plot gets offset by 2 hours if scale_x_datetime is used
  25. suppress console output in r markdown, but keep plot
  26. Add row in each group using dplyr and add_row()
  27. list of masked functions in R
  28. Using R convert data.frame to simple vector
  29. find all functions (including private) in a package
  30. Difference between r-base and r-recommended packages

Leave a Comment