R 为了网络分析目的，将数据框转换为长格式列联表

发布于03月15日

这可能是非常基本的(对不起)，但我是一个编程初学者，还没有能够在网上找到指令.我使用R，有一个像这样的框架:

id<-c(1:4)
happy<-c(1,0,1,0)
sad<-c(0,0,0,1)
angry<-c(0,1,0,0)
excited<-c(1,0,1,1)
emot<-data.frame(id, happy, sad, angry, excited)
emot
  id happy sad angry excited
  1     1   0     0       1
  2     0   0     1       0
  3     1   0     0       1
  4     0   1     0       1

id表示一个人，而其他变量表示该人是否提到了某种情绪(1)或没有(0).我想转换的框架以获得以下结果:

source target  count
happy  sad      0
happy  angry    0
happy  excited  2
sad    angry    0
sad    excited  1
angry  excited  0

我真的try 了表功能，但没有效果.提前感谢！

推荐答案

在R基地，你可以做这样的事情:

combo <- combn(names(emot)[-1], 2)

as.data.frame(t(combo)) |>
  setNames(c("target", "source")) |>
  transform(count = sapply(asplit(combo, 2), \(x) sum(rowMeans(emot[,x]) == 1L)))

基本上，获取列名的所有组合(不包括id个)，然后重新查找这些列并应用一些逻辑.

Output个

  target  source count
1  happy     sad     0
2  happy   angry     0
3  happy excited     2
4    sad   angry     0
5    sad excited     1
6  angry excited     0