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
| # création du jeu de données pour pouvoir tester
data <- data.frame(
Navire = c("Nav1", "Nav1", "Nav1", "Nav2", "Nav2", "Nav2","Nav3", "Nav3", "Nav3"),
Sequence_peche = c("18/08/2000", "18/08/2000", "18/08/2000", "21/08/2000", "21/08/2000", "21/08/2000", "23/08/2000", "23/08/2000", "23/08/2000"),
annee = rep(2000, 9),
mois = rep(8, 9),
Rect = rep("R", 9),
div_ciem = rep("37.1.2", 9),
Met5 = rep("eng5", 9),
Met6 = rep("eng5-6", 9),
ESP = c("AUT", "MUR", "NAS", "AUT", "MUR", "NAS", "AUT", "MUR", "NAS"),
Poids = c(644, 10, 238, 11, 688, 67, 626, 31, 708),
montant = c(1609, 12, 713, 29, 825, 201, 1566, 37, 2123)
)
library(dplyr) # chargement du package, doit être installé au préalable
# Manipulation des données :
new_data <- data %>% group_by(Navire) %>% summarize(
Sequence_peche = first(Sequence_peche),
annee = first(annee),
mois = first(mois),
Rect = first(Rect),
div_ciem = first(div_ciem),
Met5 = first(Met5),
Met6 = first(Met6),
AUT = Poids[which(ESP=="AUT")],
MUR = Poids[which(ESP=="MUR")],
NAS = Poids[which(ESP=="NAS")])
as.data.frame(new_data)
# Navire Sequence_peche annee mois Rect div_ciem Met5 Met6 AUT MUR NAS
# 1 Nav1 18/08/2000 2000 8 R 37.1.2 eng5 eng5-6 644 10 238
# 2 Nav2 21/08/2000 2000 8 R 37.1.2 eng5 eng5-6 11 688 67
# 3 Nav3 23/08/2000 2000 8 R 37.1.2 eng5 eng5-6 626 31 708 |
Partager