Dividing columns by colSums in R

by

See ?sweep, eg:

> sweep(m,2,colSums(m),`/`)
           [,1]      [,2]      [,3]
[1,] 0.08333333 0.1333333 0.1666667
[2,] 0.33333333 0.3333333 0.3333333
[3,] 0.58333333 0.5333333 0.5000000

or you can transpose the matrix and then colSums(m) gets recycled correctly. Don’t forget to transpose afterwards again, like this :

> t(t(m)/colSums(m))
           [,1]      [,2]      [,3]
[1,] 0.08333333 0.1333333 0.1666667
[2,] 0.33333333 0.3333333 0.3333333
[3,] 0.58333333 0.5333333 0.5000000

Or you use the function prop.table() to do basically the same:

> prop.table(m,2)
           [,1]      [,2]      [,3]
[1,] 0.08333333 0.1333333 0.1666667
[2,] 0.33333333 0.3333333 0.3333333
[3,] 0.58333333 0.5333333 0.5000000

The time differences are rather small. the sweep() function and the t() trick are the most flexible solutions, prop.table() is only for this particular case

More Related Contents:

  1. Boolean operators && and ||
  2. Formatting Decimal places in R
  3. In R, how to get an object’s name after it is sent to a function?
  4. Plot multiple columns on the same graph in R [duplicate]
  5. Add ID column by group [duplicate]
  6. Unique rows, considering two columns, in R, without order
  7. Collapsing rows where some are all NA, others are disjoint with some NAs
  8. What do hjust and vjust do when making a plot using ggplot?
  9. Changing Column Names in a List of Data Frames in R
  10. Read a CSV from github into R
  11. dplyr filter with condition on multiple columns
  12. Animated sorted bar chart with bars overtaking each other
  13. Find the n most common values in a vector [duplicate]
  14. What is the meaning of the dollar sign “$” in R function()?
  15. Set NA to 0 in R
  16. Case-insensitive search of a list in R
  17. Directly creating dummy variable set in a sparse matrix in R
  18. Error: package or namespace load failed for ‘tidyverse’ in loadNamespace
  19. Create frequency tables for multiple factor columns in R
  20. R function not returning values
  21. Reason behind speed of fread in data.table package in R
  22. Unicode with knitr and Rmarkdown
  23. activate tabpanel from another tabpanel
  24. Avoid wasting space when placing multiple aligned plots onto one page
  25. Count unique values for every column
  26. R data.table breaks in exported functions
  27. Remove part of a string in dataframe column (R)
  28. How to remove strange characters using gsub in R? [duplicate]
  29. R, car package unable to load
  30. Failure to connect to odbc database in R

Leave a Comment