dplyr мутировать с функцией выбора внутри группы

Question

Я пытаюсь использовать функцию выбора внутри мутированной функции в dplyr после группировки.

df <- data.frame(city = c(rep(1,4),rep(2,4)), 
            year = rep(1,8),
            victory = rep(c(1,0,0,0),2),
            affiliation = c("a","b","c","d","e","f","g","h"))

Не работает Код:

data %>% 
  group_by(.dots=c("city","year")) %>% 
  mutate(group_affiliation = affiliation(victory==1)) 

Ожидание:

group_affiliation = c(rep("a",4), rep("e",4)

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

PS Я бы сделал это в двух частях,повторное объединение групп, но мой компьютер не способен обрабатывать векторный размер

Answer 1

library(dplyr)      
df %>% 
   group_by(city,year) %>% 
   mutate(group_affiliation = affiliation[victory==1])