如何计算常见概念并将结果存储在矩阵中？

我想/需要创建一个1和0的矩阵，其中包含有关常用术语的信息。我在列之间创建了一个常用术语矩阵（例如像1,4,2行），但我不知道如何分解它。如何计算常见概念并将结果存储在矩阵中？

这里是一个玩具和可重复的例子。步骤（1） - （4）可以，步骤（5）是我目前无法做到的。

（1）I有此（虚构的）数据集

vec1 <- c("apple","pear","apple and pear") 
vec2 <- c("apple and pear","banana","orange") 
vec3 <- c("orange and pear","banana","apple") 

my.data.frame <- as.data.frame(cbind(vec1,vec2,vec3)) 

      vec1   vec2   vec3 
1   apple apple and pear orange and pear 
2   pear   banana   banana 
3 apple and pear   orange   apple

（2）I提取的变量和所述内容

vectors.list <- as.vector(colnames(my.data.frame)) 

list.of.fruits <- unique(as.vector(unlist(my.data.frame)))

（2）I写下一个函数来计算的常用术语（这是这篇文章的变形：How to count common words and store the result in a matrix?）

common.fruits <- function(vList) { 
    v <- lapply(vList, tolower) 
    do.call(rbind, lapply(v, function(x) { 
    do.call(c, lapply(v, function(y) length(intersect(x, y)))) 
    })) 
}

（4）我使用get和lapply到一切都做得那么青梅有效的（我猜）计算

compare <- lapply(vectors.list,get) 
common.terms.matrix <- common.fruits(compare) 
rownames(common.terms.matrix) <- vectors.list 
colnames(common.terms.matrix) <- vectors.list 
common.terms.matrix 

    vec1 vec2 vec3 
vec1 3 1 1 
vec2 1 3 1 
vec3 1 1 3

（5）如何解聚，去年矩阵这个矩阵或data.frame（以下简称“|”都表明，这是手写的）

 | apple | pear | apple and pear | banana | orange | orange and pear 
vec1 | 1  | 1 | 1    | 0  | 0  | 0 
vec2 | 0  | 0 | 1    | 1  | 1  | 0 
vec3 | 1  | 0 | 0    | 1  | 0  | 1

来源

2016-09-30 pachamaltese

唔该非常感谢 – pachamaltese

我在中国通过改变后面会出现一个小时OSX语言图标写:) – pachamaltese

您可以尝试

table(col(my.data.frame), as.matrix(my.data.frame)) 
     apple apple and pear banana orange orange and pear pear 
    1  1    1  0  0    0 1 
    2  0    1  1  1    0 0 
    3  1    0  1  0    1 0

然后你就可以订购使用sort左右的输出。

来源

2016-09-30 13:14:18 Jimbou

这似乎是有很多列的最快解决方案。通过添加as.data.frame.matrix（表（col（my.data.frame），as.matrix（my.data.frame）））它太棒了！ – pachamaltese

您可以尝试类似如下：

my.data.frame$id <- 1:nrow(my.data.frame) 
m <- melt(my.data.frame, id='id') 
m$val <- 1 
df <- dcast(m, variable~value, value.var='val') 
df[is.na(df)] <- 0 

df 
    variable apple apple and pear banana orange orange and pear pear 
1  vec1  1    1  0  0    0 1 
2  vec2  0    1  1  1    0 0 
3  vec3  1    0  1  0    1 0

来源

2016-09-30 13:16:05

如何计算常见概念并将结果存储在矩阵中？

回答

相关问题