将数据框的一行转换为矢量

我想从数据帧的一行中创建一个向量。但是我不需要行名和列名。我尝试了几件事...但是没有运气。

这是我的数据框：

> 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

我试过了：

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

但是我真的想要这样的东西：

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

从数据框中提取一行时，您将获得一个单行数据框。将其转换为数值向量：

as.numeric(df[1,])

正如@Roland所建议的那样，unlist(df[1,])无需删除名称即可将单行数据帧转换为数字矢量。因此，这unname(unlist(df[1,]))是获得相同结果的另一种更为明确的方法。

就像下面的@Josh注释一样，如果您有一个不完全数字（字母，因子，混合...）的数据框，则需要as.character(df[1,])。

我建议使用unlist，保留名称。

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

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

如果您不想使用命名向量：

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

如果您不想更改为数字，则可以尝试此操作。

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

这是一个dplyr基本选项：

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

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

请注意，如果您的行包含一个因子，则必须小心。这是一个例子：

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

这是另一个示例（默认情况下，data.frame（）将字符转换为因数）

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"

为防止此行为，在提取它之前，您需要照顾该因素：

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"

数据帧的列已经是向量，您只需要将它们拉出即可。请注意，将所需的列放在逗号之后，而不是之前：

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

如果您确实想要排行，请按照Ben所说的去做，请将来正确使用单词。