Thank you all for your help and sorry for that.
On Sun, Feb 25, 2018 at 12:18 PM, Jeff Newmiller <jdnew...@dcn.davis.ca.us>
wrote:
> Jim has been exceedingly patient (and may well continue to be so), but
> this smells like "failure to launch". At what point will you start showing
> your (failed) attempts at solving your own problems so we can help you work
> on your specific weaknesses and become self-sufficient?
> --
> Sent from my phone. Please excuse my brevity.
>
> On February 25, 2018 7:55:55 AM PST, Val <valkr...@gmail.com> wrote:
> >HI Jim and all,
> >
> >I want to put one more condition. Include col2 and col3 if they are
> >not
> >in col1.
> >
> >Here is the data
> >mydat <- read.table(textConnection("Col1 Col2 col3
> >K2 X1 NA
> >Z1 K1 K2
> >Z2 NA NA
> >Z3 X1 NA
> >Z4 Y1 W1"),header = TRUE,stringsAsFactors=FALSE)
> >
> >The desired out put would be
> >
> > Col1 Col2 col3
> >1 X1 0 0
> >2 K1 0 0
> >3 Y1 0 0
> >4 W1 0 0
> >6 K2 X1 0
> >7 Z1 K1 K2
> >8 Z2 0 0
> >9 Z3 X1 0
> >10 Z4 Y1 W1
> >
> >K2 is already is already in col1 and should not be added.
> >
> >Thank you in advance
> >
> >
> >
> >
> >
> >
> >
> >On Sat, Feb 24, 2018 at 6:38 PM, Jim Lemon <drjimle...@gmail.com>
> >wrote:
> >
> >> Hi Val,
> >> My fault - I assumed that the NA would be first in the result
> >produced
> >> by "unique":
> >>
> >> mydat <- read.table(textConnection("Col1 Col2 col3
> >> Z1 K1 K2
> >> Z2 NA NA
> >> Z3 X1 NA
> >> Z4 Y1 W1"),header = TRUE,stringsAsFactors=FALSE)
> >> val23<-unique(unlist(mydat[,c("Col2","col3")]))
> >> napos<-which(is.na(val23))
> >> preval<-data.frame(Col1=val23[-napos],
> >> Col2=NA,col3=NA)
> >> mydat<-rbind(preval,mydat)
> >> mydat[is.na(mydat)]<-"0"
> >> mydat
> >>
> >> Jim
> >>
> >> On Sun, Feb 25, 2018 at 11:27 AM, Val <valkr...@gmail.com> wrote:
> >> > 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.
>
[[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.
