如何劃分多列？

-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

我怎麼可以這樣做呢？

來源

2017-01-23 CN_AE

您正在尋找'strsplit'。 – lmo

爲什麼不呢？有什麼不同？你提供的答案作爲答案存在於我的愚蠢目標 – Sotos

@akrun是什麼邏輯？你提到的那個被改造後的DATAFRAMES從長到寬等等......雖然它不是一個數據幀，而是一個嵌套列表。所以它被正確地重新開放......海事組織。這個，我沒有看到區別，除了做更多的列 – Sotos

我們可以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

來源

2017-01-23 13:13:46 akrun

做到這一點隨着基礎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)

來源

2017-01-23 14:02:33 h3rm4n

如何劃分多列？

回答

相關問題