Given three TermDocumentMatrix, text1, text2 and text3, I'd like to calculate word frequency for each of them into a data frame and rbind all the data frames. Three are sample - I have hundreds in reality so I need to functionalize this.
It's easy to calculate word freq for one TDM: apply(x, 1, sum) or rowSums(as.matrix(x)) I want to make a list of TDMs: tdm_list <- Filter(function(x) is(x, "TermDocumentMatrix"), mget(ls())) and calculate word freq for each and put it in a data frame: data.frame(lapply(tdm_list, sum)) # this is wrong. it simply sums frequency of all words instead of frequency by each word. and then rbind it all: do.call(rbind, df_list) I can't figure out how to use lapply on a TDM to calculate word frequency. Adding sample Data to play around with : require(tm) text1 <- c("apple" , "love", "crazy", "peaches", "cool", "coke", "batman", "joker") text2 <- c("omg", "#rstats" , "crazy", "cool", "bananas", "functions", "apple") text3 <- c("Playing", "rstats", "football", "data", "coke", "caffeine", "peaches", "cool") tdm1 <- TermDocumentMatrix(Corpus(VectorSource(text1))) tdm2 <- TermDocumentMatrix(Corpus(VectorSource(text2))) tdm3 <- TermDocumentMatrix(Corpus(VectorSource(text3))) thanks. [[alternative HTML version deleted]] ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.