Я хочу создать флаг в группе. Группировка идет по раунду, а затем по команде, как показано ниже. Флаг должен быть равен 0 против команды с наименьшим количеством очков в каждом раунде, 1 для команды с наибольшим количеством очков и 2, если счет одинаков в каждом раунде. Ожидаемый результат для столбца «Флаг» и примеры данных ниже:
Круглый | Команда | Счет | Флаг |
---|---|---|---|
1 | Команда1 | 4 | 0 |
1 | Команда2 | 8 | 1 |
2 | Команда1 | 9 | 1 |
2 | Команда2 | 2 | 0 |
3 | Команда1 | 6 | 2 |
3 | Команда2 | 6 | 2 |
4 | Команда1 | 14 | 1 |
4 | Команда2 | 9 | 0 |
Мы думали об использовании pivot_wider и получении результата, но позже для построения графика потребуется снова использовать pivot_longer, и я хотел избежать этого шага. Я попытался использовать упомянутые решения здесь и здесь, которые похожи, но не могут их взломать. Может ли кто-нибудь помочь? ТИА
df %>%
group_by(Round) %>%
# mutate(Flag = case_when(Score == max(Score) & Score == min(Score) ~ 2, # equivalent
mutate(Flag = case_when(diff(range(Score)) == 0 ~ 2,
Score == max(Score) ~ 1,
TRUE ~ 0))
df %>%
group_by(Round) %>%
mutate( Flag1 = replace(rank(Score) - 1, length(unique(Score)) == 1, 2))
Round Team Score Flag Flag1
<int> <chr> <int> <int> <dbl>
1 1 Team1 4 0 0
2 1 Team2 8 1 1
3 2 Team1 9 1 1
4 2 Team2 2 0 0
5 3 Team1 6 2 2
6 3 Team2 6 2 2
7 4 Team1 14 1 1
8 4 Team2 9 0 0