Thank you Jim, I read the data as you suggested but I could not find K1 in col1.
rbind(preval,mydat) Col1 Col2 col3 1 <NA> <NA> <NA> 2 X1 <NA> <NA> 3 Y1 <NA> <NA> 4 K2 <NA> <NA> 5 W1 <NA> <NA> 6 Z1 K1 K2 7 Z2 <NA> <NA> 8 Z3 X1 <NA> 9 Z4 Y1 W1 On Sat, Feb 24, 2018 at 6:18 PM, Jim Lemon <drjimle...@gmail.com> wrote: > hi Val, > Your problem seems to be that the data are read in as a factor. The > simplest way I can think of to get around this is: > > mydat <- read.table(textConnection("Col1 Col2 col3 > Z1 K1 K2 > Z2 NA NA > Z3 X1 NA > Z4 Y1 W1"),header = TRUE,stringsAsFactors=FALSE) > preval<-data.frame(Col1=unique(unlist(mydat[,c("Col2","col3")]))[-1], > Col2=NA,col3=NA) > rbind(preval,mydat) > mydat[is.na(mydat)]<-"0" > > Jiim > > > On Sun, Feb 25, 2018 at 11:05 AM, Val <valkr...@gmail.com> wrote: > > Sorry , I hit the send key accidentally here is my complete message. > > > > Thank you Jim and all, I got it. > > > > I have one more question on the original question > > > > What does this "[-1] " do? > > preval<-data.frame(Col1=unique(unlist(mydat[,c("Col2","col3")]))[-1], > > Col2=NA,col3=NA) > > > > > > mydat <- read.table(textConnection("Col1 Col2 col3 > > Z1 K1 K2 > > Z2 NA NA > > Z3 X1 NA > > Z4 Y1 W1"),header = TRUE) > > > > preval<-data.frame(Col1=unique(unlist(mydat[,c("Col2","col3")]))[-1], > > Col2=NA,col3=NA) > > rbind(unique(preval),mydat) > > > > > > Col1 Col2 col3 > > 1 <NA> <NA> <NA> > > 2 X1 <NA> <NA> > > 3 Y1 <NA> <NA> > > 4 K2 <NA> <NA> > > 5 W1 <NA> <NA> > > 6 Z1 K1 K2 > > 7 Z2 <NA> <NA> > > 8 Z3 X1 <NA> > > 9 Z4 Y1 W1 > > > > I could not find K1 in the first col1. Is that possible to fix this? > > > > On Sat, Feb 24, 2018 at 5:59 PM, Val <valkr...@gmail.com> wrote: > > > >> Thank you Jim and all, I got it. > >> > >> I have one more question on the original question > >> > >> What does this "[-1] " do? > >> preval<-data.frame(Col1=unique(unlist(mydat[,c("Col2","col3")]))[-1], > >> Col2=NA,col3=NA) > >> > >> > >> mydat <- read.table(textConnection("Col1 Col2 col3 > >> Z1 K1 K2 > >> Z2 NA NA > >> Z3 X1 NA > >> Z4 Y1 W1"),header = TRUE) > >> > >> preval<-data.frame(Col1=unique(unlist(mydat[,c("Col2","col3")]))[-1], > >> Col2=NA,col3=NA) > >> rbind(unique(preval),mydat) > >> > >> > >> Col1 Col2 col3 > >> 1 <NA> <NA> <NA> > >> 2 X1 <NA> <NA> > >> 3 Y1 <NA> <NA> > >> 4 K2 <NA> <NA> > >> 5 W1 <NA> <NA> > >> 6 Z1 K1 K2 > >> 7 Z2 <NA> <NA> > >> 8 Z3 X1 <NA> > >> 9 Z4 Y1 W1 > >> > >> > >> > >> > >> > >> > >> > >> > >> > >> > >> > >> > >> > >> > >> > >> On Sat, Feb 24, 2018 at 5:04 PM, Duncan Murdoch < > murdoch.dun...@gmail.com> > >> wrote: > >> > >>> On 24/02/2018 1:53 PM, William Dunlap via R-help wrote: > >>> > >>>> x1 = rbind(unique(preval),mydat) > >>>> x2 <- x1[is.na(x1)] <- 0 > >>>> x2 # gives 0 > >>>> > >>>> Why introduce the 'x2'? x1[...] <- 0 alters x1 in place and I think > >>>> that > >>>> altered x1 is what you want. > >>>> > >>>> You asked why x2 was zero. The value of the expression > >>>> f(a) <- b > >>>> and assignments are processed right to left so > >>>> x2 <- x[!is.na(x1)] <- 0 > >>>> is equivalent to > >>>> x[!is.na(x1)] <- 0 > >>>> x2 <- 0 > >>>> > >>> > >>> That's not right in general, is it? I'd think that should be > >>> > >>> x[!is.na(x1)] <- 0 > >>> x2 <- x1 > >>> > >>> Of course, in this example, x1 is 0, so it gives the same answer. > >>> > >>> Duncan Murdoch > >>> > >>> > >>> > >>>> > >>>> Bill Dunlap > >>>> TIBCO Software > >>>> wdunlap tibco.com > >>>> > >>>> On Sat, Feb 24, 2018 at 9:59 AM, Val <valkr...@gmail.com> wrote: > >>>> > >>>> Thank you Jim > >>>>> > >>>>> I wanted a final data frame after replacing the NA's to "0" > >>>>> > >>>>> x1 = rbind(unique(preval),mydat) > >>>>> x2 <- x1[is.na(x1)] <- 0 > >>>>> x2 > >>>>> but I got this, > >>>>> > >>>>> [1] 0 > >>>>> > >>>>> why I am getting this? > >>>>> > >>>>> > >>>>> On Sat, Feb 24, 2018 at 12:17 AM, Jim Lemon <drjimle...@gmail.com> > >>>>> wrote: > >>>>> > >>>>> Hi Val, > >>>>>> Try this: > >>>>>> > >>>>>> preval<-data.frame(Col1=unique(unlist(mydat[,c("Col2", > "col3")]))[-1], > >>>>>> Col2=NA,col3=NA) > >>>>>> rbind(preval,mydat) > >>>>>> > >>>>>> Jim > >>>>>> > >>>>>> On Sat, Feb 24, 2018 at 3:34 PM, Val <valkr...@gmail.com> wrote: > >>>>>> > >>>>>>> Hi All, > >>>>>>> > >>>>>>> I am reading a file as follow, > >>>>>>> > >>>>>>> mydat <- read.table(textConnection("Col1 Col2 col3 > >>>>>>> Z2 NA NA > >>>>>>> Z3 X1 NA > >>>>>>> Z4 Y1 W1"),header = TRUE) > >>>>>>> > >>>>>>> 1. "NA" are missing should be replace by 0 > >>>>>>> 2. value that are in COl2 and Col3 should be included in col1 > >>>>>>> before > >>>>>>> they appear > >>>>>>> in col2 and col3. So the output data looks like as follow, > >>>>>>> > >>>>>>> X1 0 0 > >>>>>>> Y1 0 0 > >>>>>>> W1 0 0 > >>>>>>> Z2 0 0 > >>>>>>> Z3 X1 0 > >>>>>>> Z4 Y1 W1 > >>>>>>> > >>>>>>> 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/ > >>>>>>> > >>>>>> 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. > >>>>> > >>>>> > >>>> [[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.