web-dev-qa-db-fra.com

Convertir une ligne d'un cadre de données en vecteur

Je veux créer un vecteur sur une ligne d'un bloc de données. Mais je ne veux pas avoir à des noms de lignes et de colonnes. J'ai essayé plusieurs choses ... mais je n'ai pas eu de chance.

Ceci est mon cadre de données:

> df <- data.frame(a=c(1,2,4,2),b=c(2,6,2,1),c=c(2.6,8.2,7.5,3))
> df
  a b   c
1 1 2 2.6
2 2 6 8.2
3 4 2 7.5
4 2 1 3.0

J'ai essayé:

> newV <- as.vector(df[1,])
> newV
  a b   c
1 1 2 2.6

Mais je veux vraiment quelque chose qui ressemble à ça:

> newV <- c( 1,2,2.6)
> newV
[1] 1.0 2.0 2.6

Toute aide, très appréciée.

rvectordataframe
83
Joko

Lorsque vous extrayez une seule ligne d'un cadre de données, vous obtenez un cadre de données d'une ligne. Convertissez-le en un vecteur numérique: 

as.numeric(df[1,])

Comme @Roland le suggère, unlist(df[1,]) convertira le cadre de données d'une ligne en un vecteur numérique sans supprimer les noms. Par conséquent, unname(unlist(df[1,])) est un autre moyen légèrement plus explicite d’obtenir le même résultat.

120
Ben Bolker

Je recommande unlist, qui conserve les noms.

unlist(df[1,])
  a   b   c 
1.0 2.0 2.6 

is.vector(unlist(df[1,]))
[1] TRUE

Si vous ne voulez pas de vecteur nommé:

unname(unlist(df[1,]))
[1] 1.0 2.0 2.6
36
Roland

Si vous ne voulez pas passer au numérique, vous pouvez essayer ceci.

> as.vector(t(df)[,1])
[1] 1.0 2.0 2.6
6
Chinmay Patil

Notez que vous devez faire attention si votre ligne contient un facteur. Voici un exemple:

df_1 = data.frame(V1 = factor(11:15),
                  V2 = 21:25)
df_1[1,] %>% as.numeric() # you expect 11 21 but it returns 
[1] 1 21

Voici un autre exemple (par défaut, data.frame () convertit les caractères en facteurs) 

df_2 = data.frame(V1 = letters[1:5],
                  V2 = 1:5)
df_2[3,] %>% as.numeric() # you expect to obtain c 3 but it returns
[1] 3 3
df_2[3,] %>% as.character() # this won't work neither
[1] "3" "3"

Pour éviter ce problème, vous devez prendre en compte le facteur avant de l'extraire:

df_1$V1 = df_1$V1 %>% as.character() %>% as.numeric()
df_2$V1 = df_2$V1 %>% as.character()
df_1[1,] %>% as.numeric()
[1] 11  21
df_2[3,] %>% as.character()
[1] "c" "3"
0
Rtist

Voici une option basée sur dplyr:

newV = df %>% slice(1) %>% unlist(use.names = FALSE)

# or slightly different:
newV = df %>% slice(1) %>% unlist() %>% unname()
0
sbha