1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
|
library(tidyverse)
donnees <- data.frame(
ind= c("A1", "A2", "C4", "D8", "D9", "A7", "E8", "A9", "Z7", "I8", "T1","T2", "T3","R1", "R2", "R3"),
fam= c("aa", "aa", "bb", "bb", "cc", "cc", "dd", "dd", "ee", "ee","gg","gg", "gg","hh", "hh", "hh"),
diag= c(1,1,1,2,2,1,2,2, 2,3,1,1,1,1,2,1))
> donnees
ind fam diag
1 A1 aa 1
2 A2 aa 1
3 C4 bb 1
4 D8 bb 2
5 D9 cc 2
6 A7 cc 1
7 E8 dd 2
8 A9 dd 2
9 Z7 ee 2
10 I8 ee 3
11 T1 gg 1
12 T2 gg 1
13 T3 gg 1
14 R1 hh 1
15 R2 hh 2
16 R3 hh 1
donnees %>%
arrange(fam, diag) %>%
group_by(fam) %>%
summarise(nb_enfants = n(),
nb_diagnostics = n_distinct(diag),
diag_list = paste((diag), collapse = "/"))%>%
group_by(nb_enfants)%>%
group_by(diag_list, .add=TRUE)%>%
count()
# A tibble: 6 x 3
# Groups: nb_enfants, diag_list [6]
nb_enfants diag_list n
<int> <chr> <int>
1 2 1/1 1
2 2 1/2 2
3 2 2/2 1
4 2 2/3 1
5 3 1/1/1 1
6 3 1/1/2 1 |
Partager