我有这个命名向量:
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)
这是一个非常直接的方法:
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", " ")
我会做这样的事情:
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.
这是tidyverse
使用enframe
然后的解决方案separate
library(tidyverse)
enframe(x, name = "v12", value = "v3") %>%
separate(v12, into = c("v1", "v2"))