Chuyển đổi một hàng của khung dữ liệu thành vectơ

Tôi muốn tạo một vectơ từ một hàng của khung dữ liệu. Nhưng tôi không muốn có tên hàng và cột. Tôi đã thử nhiều thứ ... nhưng không gặp may.

Đây là khung dữ liệu của tôi:

> 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

Tôi đã thử:

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

Nhưng tôi thực sự muốn một cái gì đó trông như thế này:

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

Khi bạn trích xuất một hàng từ một khung dữ liệu, bạn sẽ nhận được một khung dữ liệu một hàng. Chuyển đổi nó thành một vectơ số:

as.numeric(df[1,])

Như @Roland gợi ý, unlist(df[1,])sẽ chuyển đổi khung dữ liệu một hàng thành vectơ số mà không bỏ tên. Do đó, unname(unlist(df[1,]))là một cách khác, rõ ràng hơn một chút để đạt được kết quả tương tự.

Như @Josh nhận xét bên dưới, nếu bạn có khung dữ liệu không phải hoàn toàn là số (chữ cái, thừa số, hỗn hợp ...), bạn cần as.character(df[1,])thay thế.

Tôi đề nghị unlist, giữ các tên.

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

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

Nếu bạn không muốn một vectơ được đặt tên:

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

Nếu bạn không muốn thay đổi thành số, bạn có thể thử điều này.

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

Đây là một dplyrtùy chọn dựa trên:

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

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

Lưu ý rằng bạn phải cẩn thận nếu hàng của bạn chứa một hệ số. Đây là một ví dụ:

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

Đây là một ví dụ khác (theo mặc định data.frame () chuyển đổi ký tự thành thừa số)

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"

Để ngăn chặn hành vi này, bạn cần quan tâm đến yếu tố trước khi giải nén nó:

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"

Các cột của khung dữ liệu đã là vectơ, bạn chỉ cần kéo chúng ra. Lưu ý rằng bạn đặt cột bạn muốn sau dấu phẩy, không phải trước cột:

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

Nếu bạn thực sự muốn có một hàng, thì hãy làm theo những gì Ben đã nói và hãy sử dụng các từ một cách chính xác trong tương lai.