Discussion :

[mathieu_r]

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..

[arm3366]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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),]

[ced]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[mathieu_r]

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