Подсчет количества пар в строковой переменной

Question

Для исследовательского проекта я хотел бы сформировать две группы (например, влево / вправо) в наборе данных панели сильно фрагментированной партийной системы на основе строковой переменной, содержащей коалиции, которые формируют партии, как в столбце (3). ) следующего упрощенного примера:

parties <- c("A","A", "A", "B", "B", "B")
year <- c(2000, 2001, 2003, 2001, 2002, 2003)
coalitions <- c("A, C, D", "A,C", "A,E", "B,F,G", "B,G", "B,H")
d <- data.frame(parties,year,coalitions)

У меня есть две фиксированные точки, скажем, сторона A (слева) и сторона B (справа). Чтобы получить две группы, я хотел бы иметь таблицу, в которой указано, с какими партиями эти две партии A и B образуют коалицию, в каком количестве, в моем примере:

Группа A: (A, C: 2), (A, D: 1), (A, E: 1)

Группа B: (B, G: 2), (B, F: 1), (B, H : 1)

Это позволило бы мне установить порог (в случае, если мало партий, формирующих коалиции как с А, так и с В). Может ли кто-нибудь помочь мне с решением, которое не (из-за большого числа) требует кодирования сторон, отличных от A и B, в идеале основанных исключительно на столбце (3)? Большое спасибо заранее!

Answer 1

library(tidyverse)

d %>%
  separate_rows(coalitions) %>%
  filter(parties != coalitions) %>%
  count(parties, coalitions)

# # A tibble: 6 x 3
#   parties coalitions     n
#   <fct>   <chr>      <int>
# 1 A       C              2
# 2 A       D              1
# 3 A       E              1
# 4 B       F              1
# 5 B       G              2
# 6 B       H              1