Use the stringsAsFactors=FALSE argument to read.table when making your data.frame - factors are getting in your way here.
Bill Dunlap TIBCO Software wdunlap tibco.com On Wed, Dec 13, 2017 at 3:02 PM, Val <valkr...@gmail.com> wrote: > Thank you Rui, > I did not get the desired result. Here is the output from your script > > A B C Y D E > 1 A12 B03 C04 0.70 0 0 > 2 A23 B05 C06 0.05 0 0 > 3 A14 B06 C07 1.20 0 0 > 4 A25 A23 A12 3.51 1 1 > 5 A16 A25 A14 2,16 4 4 > > > On Wed, Dec 13, 2017 at 4:36 PM, Rui Barradas <ruipbarra...@sapo.pt> > wrote: > > > Hello, > > > > Here is one way. > > > > tdat$D <- ifelse(tdat$B %in% tdat$A, tdat$A[tdat$B], 0) > > tdat$E <- ifelse(tdat$B %in% tdat$A, tdat$A[tdat$C], 0) > > > > > > Hope this helps, > > > > Rui Barradas > > > > > > On 12/13/2017 9:36 PM, Val wrote: > > > >> Hi all, > >> > >> I have a data frame > >> tdat <- read.table(textConnection("A B C Y > >> A12 B03 C04 0.70 > >> A23 B05 C06 0.05 > >> A14 B06 C07 1.20 > >> A25 A23 A12 3.51 > >> A16 A25 A14 2,16"),header = TRUE) > >> > >> I want match tdat$B with tdat$A and populate the column values of > >> tdat$A > >> ( col A and Col B) in the newly created columns (col D and col E). > >> please > >> find my attempt and the desired output below > >> > >> Desired output > >> A B C Y D E > >> A12 B03 C04 0.70 0 0 > >> A23 B05 C06 0.05 0 0 > >> A14 B06 C07 1.20 0 0 > >> A25 A23 A12 3.51 B05 C06 > >> A16 A25 A14 2,16 A23 A12 > >> > >> my attempt, > >> > >> tdat$D <- 0 > >> tdat$E <- 0 > >> > >> if(tdat$B %in% tdat$A) > >> { > >> tdat$D <- tdat$A[tdat$B] > >> tdat$E <- tdat$A[tdat$C] > >> } > >> but did not work. > >> > >> Thank you in advance > >> > >> [[alternative HTML version deleted]] > >> > >> ______________________________________________ > >> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > >> https://stat.ethz.ch/mailman/listinfo/r-help > >> PLEASE do read the posting guide http://www.R-project.org/posti > >> ng-guide.html > >> and provide commented, minimal, self-contained, reproducible code. > >> > >> > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > 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. > [[alternative HTML version deleted]] ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see 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.