使用R查找所有对组合

我需要一些帮助来查找数据帧中的所有对值。我知道聚合函数和计数函数，但我有点挂断了，因为我在一列中有可变数量的属性

样本数据：

           dfs.V2
1          51,26,48
2                51
3                32
4                26
5             92,26
6                94
7                94
8                24
9                26
10            48,51
11               32
12               32
13           25,126
14               32
15            25,24
16               32
17            92,48
18               32
19           118,48
20               32
21               32
22               32
23            51,94
24               26
25               48
26               32
27               48
28               32
29            51,48
30               32
31        50,118,92
32               32
33   24,48,26,51,92
34               32
35               32
36               26
37      25,24,48,50
38               32
39               26
40               32
41  114,24,25,51,92
42  50,51,24,48,118


The example output 
51,26: [count]
51,48: [count]
26,48: [count]

enter code here

等等

订购事宜，例如，51,26和26,51的一对应计为同一对组合中的两个，而不是单独计为一个

---

不，这不是家庭作业，只是一个辅助项目，我正在利用与工作相关的真实数据在业余时间自学R

我假设您希望根据同一行中的数字来确定对。e、 g.51,26,48对{26,51}{26,48}和{48,51}分别获得一个计数

v2 <- c('51,26,48', '51', '32', '26', '92,26', '94', '94', '24', '26', '48,51', '32', '32', '25,126', '32', '25,24', '32', '92,48', '32', '118,48', '32', '32', '32', '51,94', '26', '48', '32', '48', '32', '51,48', '32', '50,118,92', '32', '24,48,26,51,92', '32', '32', '26', '25,24,48,50', '32', '26', '32', '114,24,25,51,92', '50,51,24,48,118')

v2 <- strsplit(v2, split = ',')

comb <- lapply(v2, function(x) if (length(x) > 1) combn(sort(as.numeric(x)), 2))
comb <- do.call(cbind, comb)

result <- as.data.frame(table(paste(comb[1,], comb[2,], sep = ',')))
head(result)
#     Var1 Freq
# 1 24,114    1
# 2 24,118    1
# 3  24,25    3
# 4  24,26    1
# 5  24,48    3
# 6  24,50    2

v2