Convertir un vecteur en matrice logique

Question

Existe-t-il une fonction R native qui prendra un vecteur d'entrée et renverra la matrice binaire correspondante où la matrice a le même nombre de colonnes que des valeurs uniques dans le vecteur d'entrée?

Par exemple, étant donné x <- 1:3, je veux retourner la matrice suivante:

 [,1] [,2] [,3] 
[1,] 1 0 0 
[2,] 0 1 0 
[3,] 0 0 1 

Les fonctions contrasts se rapproche, mais je ne peux pas sembler se déplacer dans les colonnes n-1 retourné:

> contrasts(as.factor(x)) 
    2 3 
1 0 0 
2 1 0 
3 0 1 

Answer 1

model.matrix() pourrait aider, mais vous devez supprimer l'interception:

> model.matrix(~ factor(1:3) - 1) 
    factor(1:3)1 factor(1:3)2 factor(1:3)3 
1   1   0   0 
2   0   1   0 
3   0   0   1 
attr(,"assign") 
[1] 1 1 1 
attr(,"contrasts") 
attr(,"contrasts")$`factor(1:3)` 
[1] "contr.treatment" 

Quelque chose un peu plus complexe:

> set.seed(1) 
> fac <- factor(sample(1:3, 10, replace = TRUE)) 
> model.matrix(~ fac - 1) 
    fac1 fac2 fac3 
1  1 0 0 
2  0 1 0 
3  0 1 0 
4  0 0 1 
5  1 0 0 
6  0 0 1 
7  0 0 1 
8  0 1 0 
9  0 1 0 
10 1 0 0 
attr(,"assign") 
[1] 1 1 1 
attr(,"contrasts") 
attr(,"contrasts")$fac 
[1] "contr.treatment" 

Answer 2

En fait, contrasts est ce que vous voulez.

contrasts(as.factor(1:3), contrasts=FALSE) 

    1 2 3 
1 1 0 0 
2 0 1 0 
3 0 0 1