2017-01-23 81 views
-2

我有一个看起来像如何划分多列?

V1 V2 V3 V4 V5  V6 V7 V8 
0 Tri1 D D D D D D D D D D D D 
0 Tri2 D D D D D D D D D D D D 
0 Tri3 D D D D D D D D D D D D 
0 Tri4 D D D D D D D D D D D D 
0 Tri5 D D D D D D D D D D D D 

数据帧和我想分列V3-V8

V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12V13V14 
0 Tri1 D D D D D D D D D D D D 
0 Tri2 D D D D D D D D D D D D 
0 Tri3 D D D D D D D D D D D D 
0 Tri4 D D D D D D D D D D D D 
0 Tri5 D D D D D D D D D D D D 

我怎么可以这样做呢?

+0

您正在寻找'strsplit'。 – lmo

+4

为什么不呢?有什么不同?你提供的答案作为答案存在于我的愚蠢目标 – Sotos

+4

@akrun是什么逻辑?你提到的那个被改造后的DATAFRAMES从长到宽等等......虽然它不是一个数据帧,而是一个嵌套列表。所以它被正确地重新开放......海事组织。这个,我没有看到区别,除了做更多的列 – Sotos

回答

1

我们可以cSplit

library(splitstackshape) 
setnames(cSplit(df, 3:8, " "), paste0("V", 1:14))[] 
# V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 
#1: 0 Tri1 D D D D D D D D D D D D 
#2: 0 Tri2 D D D D D D D D D D D D 
#3: 0 Tri3 D D D D D D D D D D D D 
#4: 0 Tri4 D D D D D D D D D D D D 
#5: 0 Tri5 D D D D D D D D D D D D 
3

做到这一点随着基础R方法(但比@akruns答案比较复杂):

lst.1 <- lapply(dat[3:8], strsplit, ' ') 
lst.2 <- lapply(lst, function(x) matrix(unlist(x), ncol = 2, byrow = TRUE)) 
dat2 <- data.frame(dat[1:2], do.call(cbind, lst.2)) 
names(dat2) <- paste0('V',1:14) 

这导致:

> dat2 
    V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 
1 0 Tri1 D A D D D D D D D D D D 
2 0 Tri2 D B D D D D D D D D D D 
3 0 Tri3 D C D D D D D D D D D D 
4 0 Tri4 D D D D D D D D D D D D 
5 0 Tri5 D E D D D D D D D D D D 

随着只有D很难看出方法是否有效。出于这个原因,我使用了一些有所改变的数据:

dat <- read.table(text="V1,V2,V3,V4,V5,V6,V7,V8 
0,Tri1,D A,D D,D D,D D,D D,D D 
0,Tri2,D B,D D,D D,D D,D D,D D 
0,Tri3,D C,D D,D D,D D,D D,D D 
0,Tri4,D D,D D,D D,D D,D D,D D 
0,Tri5,D E,D D,D D,D D,D D,D D", header = TRUE, sep = ',', stringsAsFactors = FALSE)