Dans le monde des statistiques, la réduction des dimensions est une bonne chose, avec de nombreuses procédures statistiques visant à bien le faire. Si nous travaillons avec, par exemple, 10 variétés et que nous pouvons réduire ce nombre à 3 qui capte toujours l'essence de nos données, nous sommes heureux.
Cependant, dans R, quelque chose d'autre pourrait mériter la réduction de la dimension du nom que nous pouvons parfois souhaiter éviter. Disons que nous avons une matrice à quatre rangées et que nous extrayons une ligne:

> z
      [,1] [,2]
[1,]   1    5
[2,]   2    6
[3,]   3    7
[4,]   4    8
> r <- z[2,]
> r
[1] 2 6

> z
      [,1] [,2]
[1,]   1    5
[2,]   2    6
[3,]   3    7
[4,]   4    8
> r <- z[2,]
> r
[1] 2 6

Cela semble inoffensif, mais notez le format dans lequel R a affiché r. C'est un format vectoriel, pas un format matriciel. En d'autres termes, r est un vecteur de longueur 2, et non une matrice 1-par-2. Nous pouvons le confirmer de plusieurs façons:

> attributes(z)
$dim
[1] 4 2
> attributes(r)
NULL
> str(z)
int [1:4, 1:2] 1 2 3 4 5 6 7 8
> str(r)
int [1:2] 2 6

> attributes(z)
$dim
[1] 4 2
> attributes(r)
NULL
> str(z)
int [1:4, 1:2] 1 2 3 4 5 6 7 8
> str(r)
int [1:2] 2 6

Ici, R nous informe que z a des numéros de lignes et de colonnes, alors que r ne le fait pas. De même, str () nous dit que z a des indices allant en 1: 4 et 1: 2, pour les lignes et les colonnes, alors que les indices de r sont tout simplement en 1: 2. Aucun doute à ce sujet-r est un vecteur, pas une matrice.
Cela semble naturel, mais dans de nombreux cas, cela entraînera des problèmes dans les programmes qui font beaucoup d'opérations matricielles. Vous pouvez constater que votre code fonctionne bien en général mais échoue dans un cas particulier. Par exemple, supposons que votre code extrait une sous-matrice d'une matrice donnée puis effectue des opérations matricielles sur la sous-matrice. Si la sous-matrice n'a qu'une seule ligne, R en fera un vecteur, ce qui pourrait ruiner votre calcul.
Heureusement, R a un moyen de supprimer cette réduction de dimension: l'argument de baisse. Voici un exemple, en utilisant la matrice z d'en haut:

> r <- z[2,, drop=FALSE]
> r
[,1] [,2]
[1,] 2 6
> dim(r)
[1] 1 2

> r <- z[2,, drop=FALSE]
> r
[,1] [,2]
[1,] 2 6
> dim(r)
[1] 1 2

> z[3,2]
[1] 7
> "["(z,3,2)
[1] 7

> z[3,2]
[1] 7
> "["(z,3,2)
[1] 7

> u
[1] 1 2 3
> v <- as.matrix(u)
> attributes(u)
NULL
> attributes(v)
$dim
[1] 3 1

> u
[1] 1 2 3
> v <- as.matrix(u)
> attributes(u)
NULL
> attributes(v)
$dim
[1] 3 1