R：字符串中的逗號會干擾新列

Question

我正嘗試將特定值從一行移動到列中。

數據集：

table<- structure(list(V1 = c(1931432L, 1931432L, 1931434L, 1931434L, 1931434L), V2 = c(9548326L, 9548327L, 9551339L, 9551338L, 9551337L), V3 = c("D", "N", "N", "D", "D"), V4 = c(1L, 1L, 1L, 1L, 1L), V5 = c(NA, NA, NA, NA, NA), V6 = c("This belongs in column 1", "This belongs in column 2", "This belongs in column 1", "This belongs in, column 2", "This belongs in column 3")), .Names = c("V1", "V2", "V3", "V4", "V5", "V6"), class = "data.frame", row.names = c(NA, -5L)) 

目前我的代碼：

tableNEW <-subset(table, select = c(1,2,6)) 
tableEND <- aggregate(.~ V1, data=tableNEW, FUN=function(x) paste(sort(x), collapse="|")) 

是生產：

V1  | V2       | V3 
1|1931432 |9548326, 9548327   | "This belongs in column 1", "This belongs in column 2" 
2|1931434 |9551339, 9551338, 9551337 | "This belongs in column 1", "This belongs in, column 2", "This belongs in column 3" 

理想情況下，我在尋找：

V1  | V2       | V3      |V4      |V5 
1|1931432 |9548326, 9548327   | "This belongs in column 1"| "This belongs in column 2"| 
2|1931434 |9551339, 9551338, 9551337 | "This belongs in column 1"| "This belongs in, column 2"| "This belongs in column 3" 

我嘗試過其他方法，試圖在產生什麼之後工作，但[2，V3]中的血腥逗號奇蹟般地顯示出混亂的分裂。我需要在決賽桌中保留文本內的逗號。

是否有一種有效的方法，將摺疊步驟與列創建結合起來？

Answer 1

嘗試

library(reshape2) 
res1 <- aggregate(V2~V1, data=tableNEW, FUN=paste, collapse=",") 
tableNEW$indx <- with(tableNEW, ave(V1, V1, FUN=seq_along)) 
res2 <- setNames(merge(res1, dcast(tableNEW, V1~indx, value.var="V6")), paste0("V",1:5)) 
res2 
#  V1      V2      V3 
#1 1931432   9548326,9548327 This belongs in column 1 
#2 1931434 9551339,9551338,9551337 This belongs in column 1 
#       V4      V5 
#1 This belongs in column 2      <NA> 
#2 This belongs in, column 2 This belongs in column 3 

Answer 2

也許嘗試在table 像工作：

的代碼

table$V6 = gsub(',', '', table$V6)

其餘部分將保持不變。