dplyr 变异与组内选择功能答案

【问题标题】：dplyr mutate with within group select functiondplyr 变异与组内选择功能
【发布时间】：2018-09-24 10:19:55
【问题描述】：

我正在尝试在分组后在 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 定义的条目的隶属关系值，然后变异到整个组。

附：我会分两部分完成，重新合并组，但我的计算机无法处理矢量大小

【问题讨论】：

标签： r function dplyr

【解决方案1】：

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

【讨论】：

我在这方面花了很多时间，而且我很接近。非常感谢。