Konwertuj wiersz ramki danych na wektor

Chcę utworzyć wektor z wiersza ramki danych. Ale nie chcę mieć nazw wierszy i kolumn. Próbowałem kilku rzeczy ... ale nie miałem szczęścia.

To jest moja ramka danych:

> 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

Próbowałem:

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

Ale naprawdę chcę czegoś takiego:

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

Kiedy wyodrębniasz pojedynczy wiersz z ramki danych, otrzymasz jednorzędową ramkę danych. Zamień go na wektor numeryczny:

as.numeric(df[1,])

Jak sugeruje @Roland, unlist(df[1,])konwertuje jednorzędową ramkę danych na wektor numeryczny bez pomijania nazw. Dlatego unname(unlist(df[1,]))jest inny, nieco bardziej wyraźny sposób na osiągnięcie tego samego wyniku.

Jak komentuje @Josh poniżej, jeśli masz ramkę danych nie do końca numeryczną (alfabetyczną, dzieloną, mieszaną ...), potrzebujesz as.character(df[1,])zamiast tego.

Polecam unlist, który zachowuje nazwy.

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

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

Jeśli nie chcesz nazwanego wektora:

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

Jeśli nie chcesz zmieniać na numeryczne, możesz spróbować tego.

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

Oto dplyropcja oparta na:

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

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

Pamiętaj, że musisz uważać, jeśli wiersz zawiera czynnik. Oto przykład:

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

Oto kolejny przykład (domyślnie data.frame () konwertuje znaki na współczynniki)

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"

Aby temu zapobiec, musisz zadbać o czynnik, zanim go wyodrębnisz:

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"

Kolumny ramek danych są już wektorami, wystarczy je wyciągnąć. Zwróć uwagę, że umieszczasz żądaną kolumnę po przecinku, a nie przed nim:

> newV <- df[,1]
> newV
[1] 1 2 4 2

Jeśli naprawdę chcesz wiersz, zrób to, co powiedział Ben i używaj poprawnie słów w przyszłości.