HI all,
I have created a function for matrix summary
so data is like values in different columns
col1 col2 col3 col4.........
1 4 3 7
4 3 2 3
4 2 1 5
"multi<-function(data,list,name){
data<-data[unlist(list)]
lst1 <- lapply(names(data[,1:ncol(data)]), function(x) freq(data,x))
lst2 <- lst1[!sapply(lst1, is.null)]
tab<-Reduce(rbind,lst2) %>% sort_desc(Freq)
tab
}"