include

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 <drjimlemon at 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 <valkremk at 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 <valkremk at 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.duncan at 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 <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]]

posting-guide.html

         [[alternative HTML version deleted]]

        [[alternative HTML version deleted]]

        [[alternative HTML version deleted]]