Directly creating dummy variable set in a sparse matrix in R

by

Thanks for having clarified your question, try this.

Here is sample data with two columns that have three and two levels respectively:

set.seed(123)
n <- 6
df <- data.frame(x = sample(c("A", "B", "C"), n, TRUE),
                 y = sample(c("D", "E"),      n, TRUE))
#   x y
# 1 A E
# 2 C E
# 3 B E
# 4 C D
# 5 C E
# 6 A D

library(Matrix)
spm <- lapply(df, function(j)sparseMatrix(i = seq_along(j),
                                          j = as.integer(j), x = 1))
do.call(cBind, spm)
# 6 x 5 sparse Matrix of class "dgCMatrix"
#               
# [1,] 1 . . . 1
# [2,] . . 1 . 1
# [3,] . 1 . . 1
# [4,] . . 1 1 .
# [5,] . . 1 . 1
# [6,] 1 . . 1 .

Edit: @user20650 pointed out do.call(cBind, ...) was sluggish or failing with large data. So here is a more complex but much faster and efficient approach:

n <- nrow(df)
nlevels <- sapply(df, nlevels)
i <- rep(seq_len(n), ncol(df))
j <- unlist(lapply(df, as.integer)) +
     rep(cumsum(c(0, head(nlevels, -1))), each = n)
x <- 1
sparseMatrix(i = i, j = j, x = x)

More Related Contents:

  1. Calculate Euclidean distance matrix using a big.matrix object
  2. Sparse matrix to a data frame in R
  3. Loop through a R matrix row-wise and print elements [duplicate]
  4. Drop unused factor levels in a subsetted data frame
  5. Reshape three column data frame to matrix (“long” to “wide” format) [duplicate]
  6. Cleaning up factor levels (collapsing multiple levels/labels)
  7. Split a large dataframe into a list of data frames based on common value in column
  8. Multiply rows of matrix by vector?
  9. All Levels of a Factor in a Model Matrix in R
  10. How to divide each row of a matrix by elements of a vector in R
  11. Subscript out of bounds – general definition and solution?
  12. Confusion between factor levels and factor labels
  13. How can I create a correlation matrix in R?
  14. Apply a function to every row of a matrix or a data frame
  15. How to concatenate factors, without them being converted to integer level?
  16. Finding row index containing maximum value using R
  17. Function to split a matrix into sub-matrices in R
  18. Loop in R: how to save the outputs?
  19. Last Observation Carried Forward In a data frame? [duplicate]
  20. Idiom for ifelse-style recoding for multiple categories
  21. Create frequency tables for multiple factor columns in R
  22. Find K nearest neighbors, starting from a distance matrix
  23. Concatenate rows of a data frame
  24. Create Sparse Matrix from a data frame
  25. Creating (and Accessing) a Sparse Matrix with NA default entries
  26. Convert Factor to Date/Time in R
  27. Appending a list to a list of lists in R
  28. Sum a list of matrices [duplicate]
  29. How to remove rows of a matrix by row name, rather than numerical index?
  30. R: Calculate cosine distance from a term-document matrix with tm and proxy

Leave a Comment