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
| > tmp <- data.frame(Var1=runif(4, 2000, 9000),
+ Var2=sample(c(26, 30), 4, replace=TRUE),
+ Var3=sample(c(14, 16), 4, replace=TRUE))
> tmp
Var1 Var2 Var3
1 2707.683 26 16
2 8098.849 30 16
3 6161.392 30 14
4 7880.800 26 16
> split(tmp, list(tmp$Var2, tmp$Var3))
$`26.14`
[1] Var1 Var2 Var3
<0 lignes> (ou 'row.names' de longueur nulle)
$`30.14`
Var1 Var2 Var3
3 6161.392 30 14
$`26.16`
Var1 Var2 Var3
1 2707.683 26 16
4 7880.800 26 16
$`30.16`
Var1 Var2 Var3
2 8098.849 30 16 |