![](/img/trans.png)
[英]how to generate a vector or factor from a numeric matrix based on logic (no for loop)
[英]How to split out numeric vector of bigrams from TDM matrix
我在R中有一个大数字(46201个元素,3.3 Mb)。
tdm_pairs.matrix <- as.matrix(tdm_pairs)
top_pairs <- colSums(tdm_pairs.matrix)
head(sort(top_pairs, decreasing = T),2)
i know i dont i think i can i just i want
46 42 41 31 30 28
我试着把每个分开:
unlist(strsplit(as.character(top_pairs)," "))
"46" "42" "41" "31" "30" "28"
我正在寻找拆分每个,所以输出将类似于此:
"i" "know" "46"
"i" "dont" "42"
由于文件很大,因此您可能要使用stringi
library(stringi)
data.frame(stri_split_fixed(names(top_pairs), " ", simplify=T),
count=top_pairs, row.names=seq_along(top_pairs))
# X1 X2 count
# 1 i know 46
# 2 i dont 42
像这样吗
> top_pairs <- structure(c(46, 42), .Names = c("i know", "i dont"))
> do.call(rbind, strsplit(paste(names(top_pairs), top_pairs), " "))
[,1] [,2] [,3]
[1,] "i" "know" "46"
[2,] "i" "dont" "42"
或者,如果您想保留数值,则可以使用tidyr
转换为数据框:
> library(magrittr)
> library(tidyr)
> data.frame(names=names(top_pairs), count=top_pairs) %>%
separate(names, into=c("name1", "name2"), sep=" ") %>%
set_rownames(NULL)
name1 name2 count
1 i know 46
2 i dont 42
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.