Hi,
May be this helps: df1<-read.table(text=" V1 V2 V3 V4 V5 V6 chr1 18884 C CAAAA 2 0 chr1 135419 TATACA T 2 0 chr1 332045 T TTG 0 2 chr1 453838 T TAC 2 0 chr1 567652 T TG 1 0 chr1 602541 TTTA T 2 0 ",header=TRUE,sep="",stringsAsFactors=FALSE) df1$newCol1<- ifelse(nchar(df1$V3)>1,df1$V2-1,ifelse(nchar(df1$V3)==1 & nchar(df1$V4)>1, df1$V2,NA)) df1$newCol2<- ifelse(nchar(df1$V3)>1,df1$V2+nchar(df1$V3)+1,ifelse(nchar(df1$V3)==1 & nchar(df1$V4)>1, df1$V2+2,NA)) df1 # V1 V2 V3 V4 V5 V6 newCol1 newCol2 #1 chr1 18884 C CAAAA 2 0 18884 18886 #2 chr1 135419 TATACA T 2 0 135418 135426 #3 chr1 332045 T TTG 0 2 332045 332047 #4 chr1 453838 T TAC 2 0 453838 453840 #5 chr1 567652 T TG 1 0 567652 567654 #6 chr1 602541 TTTA T 2 0 602540 602546 A.K. ----- Original Message ----- From: Tom Oates <toate...@gmail.com> To: r-help@r-project.org Cc: Sent: Sunday, February 3, 2013 12:20 PM Subject: [R] Adding complex new columns to data frame depending on existing column Hello I have a data frame as below V1 V2 V3 V4 V5 V6 chr1 18884 C CAAAA 2 0 chr1 135419 TATACA T 2 0 chr1 332045 T TTG 0 2 chr1 453838 T TAC 2 0 chr1 567652 T TG 1 0 chr1 602541 TTTA T 2 0 on which I want to perform complex rearrangement such that: if V3 is a string >1 (i.e line 2) then I generate 2 new columns where first new column = V2-1 & second new column = V2+(length of string in V3)+1 therefore, for line 2 output would look like: chr1 135419 TATACA T 2 0 135418 135426 if length of string in V3 = 1 and V4=string of length>1 (i.e. line 1) then first new column = V2 & second new column = V2+2 output for line 1 would be: chr1 18884 C CAAAA 2 0 18884 18886 I am not sure: a) how to use R to substitute the length of the string in V3 with the number representing this length b) whether apply would be best to use here Thanks [[alternative HTML version deleted]] ______________________________________________ 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. ______________________________________________ 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.
