HI,
Try this:
dat1<- read.table(text="
V1,V2,V3,V4,V5,V6,V7
chr1,564563,564598,564588 564589,1336,+,134
chr1,564620,564649,564644 564645,94,+,10
chr1,565369,565404,565371 565372,217,+,8
chr1,565463,565541,565480 565481,1214,+,15
chr1,565653,565697,565662 565663,1031,+,28
chr1,565861,565922,565883 565884,316,+,12
",sep=",",header=TRUE,stringsAsFactors=FALSE)
library(reshape2)
dat2<-with(dat1,{cbind(dat1[,-4],colsplit(V4,pattern="
",names=c("peak_start","peak_end")))})
dat2
# V1 V2 V3 V5 V6 V7 peak_start peak_end
#1 chr1 564563 564598 1336 + 134 564588 564589
#2 chr1 564620 564649 94 + 10 564644 564645
#3 chr1 565369 565404 217 + 8 565371 565372
#4 chr1 565463 565541 1214 + 15 565480 565481
#5 chr1 565653 565697 1031 + 28 565662 565663
#6 chr1 565861 565922 316 + 12 565883 565884
library(data.table)
datNew<- data.table(dat2)
A.K.
----- Original Message -----
From: "deconstructed.morn...@gmail.com" <deconstructed.morn...@gmail.com>
To: smartpink...@yahoo.com
Cc:
Sent: Sunday, March 10, 2013 5:48 PM
Subject: Re: splitting column into two
Hello,
I saw your solution for this question and I want to ask you should I do when I
have a very large file, that looks like this:
> clusters<-data.table(CTSS[, grep("V1$|V2$|V3$|V4$|V5$|V6$|V7$", names(CTSS))])
> head(clusters)
V1 V2 V3 V4 V5 V6 V7
1: chr1 564563 564598 564588 564589 1336 + 134
2: chr1 564620 564649 564644 564645 94 + 10
3: chr1 565369 565404 565371 565372 217 + 8
4: chr1 565463 565541 565480 565481 1214 + 15
5: chr1 565653 565697 565662 565663 1031 + 28
6: chr1 565861 565922 565883 565884 316 + 12
What I want is to replace column V4 which contain two numbers separated by a
space, with two columns that are numerical. I have tried this:
new <- cbind(CTSS,colsplit(CTSS$V4, ' ', c('peak_start', 'peak_end')) )
but instead of replacing the column it keeps it the same and adds two new
columns at end of the columns(after 625 columns). Please let me know if you
have a better solution.
Thank you,
Nanami
<quote author='arun kirshna'>
Hi,
May be this helps:
dat1<-read.table(text="
0111 0214 0203 0404 1112 0513 0709 1010 0915 0813
0112 0314 0204 0504 1132 0543 0789 1020 0965 0823
",sep="",header=FALSE,colClasses=rep("character",10))
res<-do.call(data.frame,lapply(dat1,function(x)
do.call(rbind,lapply(strsplit(x,""),function(y)
c(paste0(y[1],y[2]),paste0(y[3],y[4]))))))
colnames(res)<-paste0("V",1:20)
res
# V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19 V20
#1 01 11 02 14 02 03 04 04 11 12 05 13 07 09 10 10 09 15 08 13
#2 01 12 03 14 02 04 05 04 11 32 05 43 07 89 10 20 09 65 08 23
A.K.
</quote>
Quoted from:
http://r.789695.n4.nabble.com/splitting-column-into-two-tp4656108p4656111.html
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
