Discussion :

[bernards111]

Bonjour,

J'ai deux tableaux que je fusionne avec rbind.
Le premier représente des valeurs numériques associées à deux libellés.
Le deuxième la somme de ces valeurs numériques.

J'aimerais fusionner certains labels identiques dans le tableau
ex:

region1   g1  35
region1   g2  40
region2   g1  10
region2   g2   20 

Résultat voulu :
_______________
region1 g1 35

g2 40

_______________
region2 g1 10

g2 20

_______________
somme g1 45

g2 60

Mais je ne trouve pas de solution. Donc, si quelqu'un a eu ce genre de problématique et peut m'orienter, ce serait cool... Merci d'avance.

[juliatheric]

Bonjour,
Une liste peut faire l'affaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
library("dplyr")
 
ex <- data.frame(region = rep(c("region1", "region2"), c(2L, 2L)),
                 g = rep(c("g1", "g2"), 2L),
                 val = c(35L, 40L, 10L, 20L),
                 stringsAsFactors = FALSE)
 
res <- vector(mode = "list", length = 3L)
names(res) <- c(unique(ex$region), "somme")
 
res$region1 <- dplyr::filter(ex, region == "region1") %>% dplyr::select(g, val)
res$region2 <- dplyr::filter(ex, region == "region2") %>% dplyr::select(g, val)
tmp <- group_by(ex, region)  %>% group_by(g) %>% do(somme = sum(.$val))
names(tmp$somme) <- tmp$g
res$somme <- tmp$somme

> print(ex)
   region  g val
1 region1 g1  35
2 region1 g2  40
3 region2 g1  10
4 region2 g2  20
> 
> print(res)
$region1
   g val
1 g1  35
2 g2  40

$region2
   g val
1 g1  10
2 g2  20

$somme
$somme$g1
[1] 45

$somme$g2
[1] 60