14

我有这个命名向量:

x <-  1:5

names(x) <- c('0 15', '1 15', '2 15', '0 16', '1 16')

转换x为此数据框的最佳方法是什么:

xDF <- data.frame(V1 = c(0, 1, 2, 0, 1), V2 = c(15, 15, 15, 16, 16), V3 = 1:5)
4

3 回答 3

16

这是一个非常直接的方法:

cbind(read.table(text = names(x)), x)
     V1 V2 x
0 15  0 15 1
1 15  1 15 2
2 15  2 15 3
0 16  0 16 4
1 16  1 16 5

在这种情况下,read.table将自动处理您的names(x)组件拆分(默认情况下,按空格,但如果需要,可以指定其他字符)。

您也可以x直接在中设置名称cbind

cbind(read.table(text = names(x)), V3 = x)

更直接的方法是使用cSplit我的“splitstackshape”包,如下所示:

library(splitstackshape)
cSplit(stack(x), "ind", " ")
于 2013-06-10T12:00:18.293 回答
5

我会做这样的事情:

res = data.frame(cbind(do.call('rbind', strsplit(names(x), " ")), x))
res
     V1 V2 x
0 15  0 15 1
1 15  1 15 2
2 15  2 15 3
0 16  0 16 4
1 16  1 16 5

请注意数据类型还不正确,前两列是factor's.

于 2013-06-10T09:22:58.653 回答
0

这是tidyverse使用enframe然后的解决方案separate

library(tidyverse)
enframe(x, name = "v12", value = "v3") %>% 
  separate(v12, into = c("v1", "v2"))
于 2019-09-02T16:55:07.087 回答