J'essaye de reproduire la sortie suivante de dplyr
code avec R
paquet collapse
.
dplyr
Code
library(tidyverse)
starwars %>%
select(name, mass, species) %>%
group_by(species) %>%
mutate(mass_norm = mean(mass, na.rm = TRUE))
dplyr
Sortie du code
# A tibble: 87 x 4
# Groups: species [38]
name mass species mass_norm
<chr> <dbl> <chr> <dbl>
1 Luke Skywalker 77 Human 82.8
2 C-3PO 75 Droid 69.8
3 R2-D2 32 Droid 69.8
4 Darth Vader 136 Human 82.8
5 Leia Organa 49 Human 82.8
6 Owen Lars 120 Human 82.8
7 Beru Whitesun lars 75 Human 82.8
8 R5-D4 32 Droid 69.8
9 Biggs Darklighter 84 Human 82.8
10 Obi-Wan Kenobi 77 Human 82.8
# … with 77 more rows
collapse
Code
library(collapse)
starwars %>%
fselect(name, mass, species) %>%
fgroup_by(species) %>%
ftransform(mass_norm = fmean(mass, na.rm = TRUE))
collapse
Sortie du code
# A tibble: 87 x 4
name mass species mass_norm
* <chr> <dbl> <chr> <dbl>
1 Luke Skywalker 77 Human 97.3
2 C-3PO 75 Droid 97.3
3 R2-D2 32 Droid 97.3
4 Darth Vader 136 Human 97.3
5 Leia Organa 49 Human 97.3
6 Owen Lars 120 Human 97.3
7 Beru Whitesun lars 75 Human 97.3
8 R5-D4 32 Droid 97.3
9 Biggs Darklighter 84 Human 97.3
10 Obi-Wan Kenobi 77 Human 97.3
# … with 77 more rows
Grouped by: species [38 | 2 (5.5)]
Je me demande pourquoi j'obtiens une mauvaise réponse avec collapse
code. Des conseils.