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 <drjimlemon at 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 <valkremk at 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 at 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]]
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 Bill Dunlap TIBCO Software wdunlap tibco.com On Sat, Feb 24, 2018 at 9:59 AM, Val <valkremk at 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 <drjimlemon at 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 <valkremk at 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 at 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 at 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]]
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 <- 0That'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 <valkremk at 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 <drjimlemon at 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 <valkremk at 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 at 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 at 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 at 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. >