R:Gephi:操作数据帧以与 write.gexf 一起使用

Question

我正在尝试操作数据框。举个例子:假设我有一个包含客户及其访问的商店的数据框:

df = data.frame(customers = c("a", "b", "b", "c", "c"),
                shop_visited = c("X", "X", "Y", "X", "Z"))
customers shop_visited
        a            X
        b            X
        b            Y
        c            X
        c            Z

总结此数据框:

• 一名顾客 (b) 在 X 和 Y 购物；
• 一名顾客 (b) 在 Y 和 X 购物；
• 一名顾客 (c) 在 X 和 Z 购物；
• 一名顾客 (c) 在 Z 和 X 购物

或者，更简洁地说:

relations = data.frame(source = c("X","Y", "X", "Z"), 
                       target = c("Y","X","Z","X"))
 source target
      X      Y
      Y      X
      X      Z
      Z      X

我正在寻找一种能够进行df -> 关系转换的方法。其背后的动机是我可以使用 relations 作为 write.gexf 中的 edges 参数。为任何帮助干杯。

Answer 1

df <- data.frame(customers = c("a", "b", "b", "c", "c"),
                 shop_visited = c("X", "X", "Y", "X", "Z"))

#create an identifier df
dfnames <- data.frame(i = as.numeric(df$shop_visited), 
                      shop_visited = df$shop_visited)

library(tnet)
tdf       <- as.tnet( cbind(df[,2],df[,1]),type =  "binary two-mode tnet" )
relations <- projecting_tm(tdf, method = "sum")

# match original names
relations[["i"]] <- dfnames[ match(relations[['i']], dfnames[['i']] ) , 'shop_visited']
relations[["j"]] <- dfnames[ match(relations[['j']], dfnames[['i']] ) , 'shop_visited']

# clean up names
names(relations) <- c("source" , "target", "weight")


#> relations
#  source target weight
#1      X      Y      1
#2      X      Z      1
#3      Y      X      1
#4      Z      X      1