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
| # création d'un jeu de données d'exemple
set.seed(123)
df <- data.frame(ID = c(1, 1, 1, 2, 2, 2, 3, 3, 3, 3), X = sample(1:10, 10, replace=TRUE), Y = rnorm(10))
df
ID X Y
1 1 3 1.7150650
2 1 8 0.4609162
3 1 5 -1.2650612
4 2 9 -0.6868529
5 2 10 -0.4456620
6 2 1 1.2240818
7 3 6 0.3598138
8 3 9 0.4007715
9 3 6 0.1106827
10 3 5 -0.5558411
# création du jeu de données souhaité : maximums des colonnes X et Y pour chaque valeur d'ID existante
library(dplyr)
df_max <- df %>% group_by(ID) %>% summarise(max_X = max(X), max_Y = max(Y))
df_max
Source: local data frame [3 x 3]
ID max_X max_Y
1 1 8 1.7150650
2 2 10 1.2240818
3 3 9 0.4007715 |
Partager