5

R でこの問題を解決するのに苦労しています。次のようなデータがあります。

item   id
1      500
2      500
2      600
2      700
3      500
3      600

data.frame(item = c(1, 2, 2, 2, 3, 3),
           id = c(500, 500, 600, 700, 500, 600))

そして、アイテムのペアが同じ ID にリンクされている回数を数えたいと思います。だから私はこの出力が欲しい：

item1    item2    count
    1        2        1
    2        3        2
    1        3        2

次のようなコマンドでこれにアプローチしようとしました：

x_agg = aggregate(x, by=list(x$id), c)

その後

x_agg_id = lapply(x_agg$item, unique)

そうすれば、各項目の出現回数を数えることができると考えました。しかし、by関数はリストのオブジェクトを作成するようで、操作方法がわかりません。もっと簡単な方法があることを願っています....

4

2 に答える 2

3 
# 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

編集

IDとアイテムはいくつありますか？いつでも名前を変更できます。例えば

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")

その後、元の名前をマージして戻します....

于 2012-08-22T11:47:32.837 に答える
2

@ user1317221_G からの回答がまさに探しているものであるかどうかが出力例から明らかではないため、このアプローチをお勧めします。その例では、組み合わせは4回2 3カウントされ、 は 2 回、 は 2 回カウントされます。item1 = 2, item2 = 3item1 = 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
于 2012-08-22T17:06:10.843 に答える