交叉连接不同的数据元素以在 R 中创建二部图

Question

我想根据实际事件创建条件和治疗者的二部图（在 r 中）。 如果我可以将我的数据转换为下表中的正确格式，我可以轻松地做到这一点：

	理疗师	全科医生	化学家	心理	牙医
背疼	1	1	1	0	0
沮丧	0	1	1	1	0
流感	0	1	1	0	0
焦虑	0	1	0	1	0
牙疼	0	0	0	0	1

为了进一步说明，最左边的列是“条件”，列是“治疗者”（显然是虚构的），如果针对特定条件访问了治疗者，则交集 = 1。

我的数据是下面的长格式。 它由患者 id、包含 Condition/Treater 词的术语和表示该术语是 Condition 还是 Treater 类型的类型组成。

df <-
  data.frame(
    id = c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5),
    term = c("BackPain", "Physio", "GP", "Chemist", "Depression", "GP", "Chemist", "Psych", "Flu", "GP", "Chemist", "Anxiety", "GP", "Psych", "Toothache", "Dentist"),
    type = c("Condition", "Treater", "Treater", "Treater", "Condition", "Treater", "Treater", "Treater", "Condition", "Treater", "Treater", "Condition", "Treater", "Treater", "Condition", "Treater")
  )

我怀疑我需要一个聪明的 pivot_wider 类型的解决方案，或者完全绕过上述结构，直接从我的源数据转到 igraph Bipartite 格式。 我到处搜索，但找不到长格式数据的类似问题/答案。

任何想法：1）将长格式转换为宽格式或2）如何从长格式直接转换为igraph二部图？

帮助将不胜感激！ 谢谢

Answer 1

library(igraph)
library(magrittr)
library(data.table)
data.table::setDT(df)
DT <- df[!type == "Condition", ][df[type == "Condition", ], on = .(id)]
DT.wide <- dcast(DT, term ~ i.term, value.var = "id", fun.aggregate = length)
graph_from_incidence_matrix(as.matrix(DT.wide, rownames = 1)) %>%
  add_layout_(as_bipartite()) %>%
  plot()

Answer 2

一个data.table选项

table(setDT(df)[, expand.grid(split(term, type)), id][, id := NULL])

给

            Treater
Condition    Physio GP Chemist Psych Dentist
  BackPain        1  1       1     0       0
  Depression      0  1       1     1       0
  Flu             0  1       1     0       0
  Anxiety         0  1       0     1       0
  Toothache       0  0       0     0       1

---

如果你想有情节，你可以添加如下两行

table(setDT(df)[, expand.grid(split(term, type)), id][, id := NULL]) %>%
    graph_from_incidence_matrix() %>%
    plot(layout = layout_as_bipartite)

这使

Answer 3

要将数据转换为宽格式，您可以使用：

library(tidyr)
library(dplyr)

df %>% 
  filter(type == "Treater") %>% 
  mutate(type = 1 * (type == "Treater")) %>% 
  pivot_wider(names_from = "term", values_from = "type", values_fill = 0) %>% 
  left_join(df %>% filter(type == "Condition"), by = "id") %>% 
  select(Condition = term, Physio, GP, Chemist, Psych, Dentist)

返回

# A tibble: 5 x 6
  Condition  Physio    GP Chemist Psych Dentist
  <chr>       <dbl> <dbl>   <dbl> <dbl>   <dbl>
1 BackPain        1     1       1     0       0
2 Depression      0     1       1     1       0
3 Flu             0     1       1     0       0
4 Anxiety         0     1       0     1       0
5 Toothache       0     0       0     0       1

Answer 4

另一个选择从长边 data.frame 直接到没有关联矩阵的二部图：

library(igraph)
#create long edges data.frame
d <- do.call(rbind, tapply(df$term, df$id, 
    function(x) data.frame(Condition=x[1L], Treater=x[-1L])))

#create graph
g <- graph_from_data_frame(d, directed=FALSE)

#see https://rpubs.com/pjmurphy/317838 by Phil Murphy & Brendan Knapp
V(g)$type <- bipartite_mapping(g)$type
plot(g, layout=layout_as_bipartite)