Подсчет пар элементов, связанных по значению столбца

# your data
df<-read.table(text="item   id
1      500
2      500
2      600
2      700
3      500
3      600",header=TRUE)


library(tnet)
item_item<-projecting_tm(df, method="sum")
names(item_item)<-c("item1","item2","count")

item_item

  #item1 item2 count
#1     1     2     1
#2     1     3     1
#3     2     1     1
#4     2     3     2
#5     3     1     1
#6     3     2     2

ИЗМЕНИТЬ

сколько у тебя идентификаторов и предметов? вы всегда можете переименовать вещи. например

numberitems<-length(unique(df$id))+9000
items<-data.frame(item=unique(df$item),newitems=c(9000:(numberitems-1)))
numberids<-length(unique(df$id))+1000
ids<-data.frame(id=unique(df$id),newids=c(1000:(numberids-1)))
newdf<-merge(df,items,by="item")
newdf<-merge(newdf,ids,by="id")
DF<-data.frame(item=newdf$newitems,id=newdf$newids)

library(tnet)
item_item<-projecting_tm(DF, method="sum")
names(item_item)<-c("item1","item2","count")

затем объедините исходные имена после этого....

Я предлагаю этот подход, потому что из вашего примера неясно, является ли ответ от @user1317221_G именно тем, что вы ищете. В этом примере комбинация 2 3 подсчитывается 4 раза, дважды для item1 = 2, item2 = 3 и дважды для item1 = 3, item2 = 2.

Я бы попробовал функцию combn. Он не дает вам в точности тот результат, который вы ищете, но, вероятно, может быть адаптирован для этой цели.

Вот пример.

1. Напишите базовую функцию, которая будет генерировать комбинации всего, что мы ей даем.

   myfun = function(x) { apply(combn(x, 2), 2, paste, sep="", collapse="") }
   

2. split() столбец item ваших данных с помощью id и используйте lapply для создания комбинаций в пределах этого id.

   temp = split(df$item, df$id)
   # Drop any list items that have only one value--combn won't work there!
   temp = temp[-(which(sapply(temp,function(x) length(x) == 1),
                       arr.ind=TRUE))]
   temp1 = lapply(temp, function(x) myfun(unique(x)))
   

3. Используйте unlist, а затем table, чтобы занести в таблицу частоты каждой комбинации.

   table(unlist(temp1))
   # 
   # 12 13 23 
   #  1  1  2
   

Вы можете получить data.frame, если хотите.

data.frame(table(unlist(temp)))
#   Var1 Freq
# 1   12    1
# 2   13    1
# 3   23    2

Обновлять

Как уже упоминалось, приложив немного больше усилий, вы можете использовать этот метод, чтобы получить желаемый результат:

myfun = function(x) { apply(combn(x, 2), 2, paste, sep="", collapse=",") }
temp = split(df$item, df$id)
temp = temp[-(which(sapply(temp,function(x) length(x) == 1),
                    arr.ind=TRUE))]
temp1 = lapply(temp, function(x) myfun(unique(x)))
temp1 = data.frame(table(unlist(temp1)))
OUT = data.frame(do.call(rbind, 
                         strsplit(as.character(temp1$Var1), ",")),
                 temp1$Freq)
names(OUT) = c("item1", "item2", "count")
OUT
#   item1 item2 count
# 1     1     2     1
# 2     1     3     1
# 3     2     3     2