permutations et unification de lignes

Bonjour,

J'ai un tableau des flux domicile travail avec départ, destination et nombre d'individus impliqués dans le déplacement

Et dans le cas suivant:
A vers B, 150 personnes
B vers A, 50 personnes

J'aimerais unifier les flux de telle façon à avoir
A vers B et B vers A, 200 personnes

Considérons un tel data frame:
A;B;150
B;A;50
A;C;40
A;D;10
D;A;20
etc...

Comment obtenir:
A;B;200
A;C;40
A;D;30

Existe-t-il un paquet pour avoir la solution de manière élégante?

Merci..:ccool:

Bonjour,
Est que la fonction order() ne résout pas votre problème?

Code:

---

1 2 3 4 5

C1 <- c("A","B","A","A", "D") C2 <- c("B","A","C","D","A") C3 <- c(150,50,40,10,20) df <- data.frame(C1=C1,C2=C2,C3=C3) df2 <- df[order(df$C1),]

---

Citation:

---

Envoyé par arm3366

Bonjour,
Est que la fonction order() ne résout pas votre problème?

Code:

---

1 2 3 4 5

C1 <- c("A","B","A","A", "D") C2 <- c("B","A","C","D","A") C3 <- c(150,50,40,10,20) df <- data.frame(C1=C1,C2=C2,C3=C3) df2 <- df[order(df$C1),]

---

---

Ben là, pour le coup, ça ne change absolument rien à son problème... et le résultat obtenu par ton code n'est pas celui qu'il demande...:aie:

Pas besoin d'un package spécial. A mon avis, le code suivant devrait suffire :

Code:

---

1 2 3 4 5 6 7 8 9 10

C1 <- c("A","B","A","A", "D") C2 <- c("B","A","C","D","A") C3 <- c(150,50,40,10,20) df <- data.frame(C1=C1,C2=C2,C3=C3)   mn <- pmin(df$C1, df$C2) mx <- pmax(df$C1, df$C2) df2 <- data.frame(C1=mn, C2=mx, C3=df$C3)   aggregate(C3~C1+C2, df2, sum)

---

Là, visiblement, on obtient bien le résultat attendu.

super, c'est exactement ce qu'il me fallait :ccool: