R 计算字符串变量中的对数

对于一个研究项目，我想在一个高度分散的政党系统的面板数据集中，基于一个包含政党组成的联盟的字符串变量，形成两个组（如左/右），如以下简化示例的第（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)

parties
library（tidyverse）
d%>%
独立行（联合）%>%
过滤器（各方！=联盟）%>%
计数（政党、联盟）
##tibble:6 x 3
#政党联盟
#            
#1 A C 2
#2 A D 1
#3 A E 1
#4 B F 1
#5 B G 2
#6b1
库（tidyverse）
d%>%
独立行（联合）%>%
过滤器（各方！=联盟）%>%
计数（政党、联盟）
##tibble:6 x 3
#政党联盟
#            
#1 A C 2
#2 A D 1
#3 A E 1
#4 B F 1
#5 B G 2
#6b1
解决此问题的最佳方法是更新您的问题（包括类似的案例），并指定输出的外观。谢谢，代码有效，我只需在数据集中做一些小更改。解决此问题的最佳方法是更新您的问题（包括类似的案例），并指定输出的外观。谢谢，代码有效，我只需要对我的数据集做一些小的更改。
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