Сопоставление шаблонов в фрейме данных

У меня возникли проблемы с сопоставлением шаблонов в фрейме данных. Я работаю с функцией grepl в R.

У меня есть набор данных по 5 местным районам за два года (2001 и 2002 гг.). Я хочу проверить, совпадают ли правящая партия(и) округа с правящей партией(ями) на национальном уровне.

Моя модель должна предполагать, что существует согласие, когда хотя бы одна из правящих партий страны также правит на уровне округа.

Мои исходные данные выглядят так

df.1 <- data.frame(district= rep(c(1000:1004), times=2),
                  district.party= rep(c("PartyA-PartyB", "PartyA", "PartyB", "PartyC", "PartyA-PartyC"), times=2),
                  year= rep(2000:2001, each=5),
                  national.party= rep(c("PartyA|PartyB", "PartyA"), each=5))

> df.1
   district district.party year national.party
1      1000  PartyA-PartyB 2000  PartyA|PartyB
2      1001         PartyA 2000  PartyA|PartyB
3      1002         PartyB 2000  PartyA|PartyB
4      1003         PartyC 2000  PartyA|PartyB
5      1004  PartyA-PartyC 2000  PartyA|PartyB
6      1000  PartyA-PartyB 2001         PartyA
7      1001         PartyA 2001         PartyA
8      1002         PartyB 2001         PartyA
9      1003         PartyC 2001         PartyA
10     1004  PartyA-PartyC 2001         PartyA

В идеале я хочу, чтобы мой новый фрейм данных выглядел так:

df.1.neat <- data.frame(district= rep(c(1000:1004), times=2),
                  district.party= rep(c("PartyA-PartyB", "PartyA", "PartyB", "PartyC", "PartyA-PartyC"), times=2),
                  year= rep(2000:2001, each=5),
                  national.party= rep(c("PartyA|PartyB", "PartyA"), each=5),
                  alignment= c("TRUE", "TRUE", "TRUE", "FALSE", "TRUE", "TRUE", "TRUE", "FALSE", "FALSE", "TRUE"))

> df.1.neat
   district district.party year national.party alignment
1      1000  PartyA-PartyB 2000  PartyA|PartyB      TRUE
2      1001         PartyA 2000  PartyA|PartyB      TRUE
3      1002         PartyB 2000  PartyA|PartyB      TRUE
4      1003         PartyC 2000  PartyA|PartyB     FALSE
5      1004  PartyA-PartyC 2000  PartyA|PartyB      TRUE
6      1000  PartyA-PartyB 2001         PartyA      TRUE
7      1001         PartyA 2001         PartyA      TRUE
8      1002         PartyB 2001         PartyA     FALSE
9      1003         PartyC 2001         PartyA     FALSE
10     1004  PartyA-PartyC 2001         PartyA      TRUE

Я использую grepl и dplyr

df.1.neat.OP <- df.1 %>% 
  mutate(alignment= grepl(national.coalition, county.party))

> df.1.neat.OP
   district  county.party year national.coalition alignment
1      1000 PartyA-PartyB 2000      PartyA|PartyB      TRUE
2      1001        PartyA 2000      PartyA|PartyB      TRUE
3      1002        PartyB 2000      PartyA|PartyB      TRUE
4      1003        PartyC 2000      PartyA|PartyB     FALSE
5      1004 PartyA-PartyC 2000      PartyA|PartyB      TRUE
6      1000 PartyA-PartyB 2001             PartyA      TRUE
7      1001        PartyA 2001             PartyA      TRUE
8      1002        PartyB 2001             PartyA      TRUE
9      1003        PartyC 2001             PartyA     FALSE
10     1004 PartyA-PartyC 2001             PartyA      TRUE

Обратите внимание, что моя команда хорошо работает для 2000 года, но вычисляет неправильный результат для округа 1002 в 2001 году. В моем более широком массиве данных имеется множество подобных ошибок.

какие-либо предложения?