R help - Dec 2008 - complex(?) reshaping question

Hello,

I have a problem with data reshaping. Here's my data

DF <-
structure(list(idvar1 = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("patient1",
"patient2"
), class = "factor"), idvar2 = structure(c(1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("dob",
"hog"), class "factor"),
    eka1 = structure(c(NA, NA, NA, NA, NA, NA, NA, NA, 2L, 1L,
    NA, NA, NA, NA), .Label = c("as", "df"), class =
"factor"),
    eka2 = structure(c(NA, NA, NA, NA, NA, NA, NA, NA, 2L, 1L,
    NA, NA, NA, NA), .Label = c("as", "df"), class =
"factor"),
    eka3 = structure(c(NA, NA, NA, NA, NA, NA, NA, NA, 2L, 1L,
    NA, NA, NA, NA), .Label = c("as", "df"), class =
"factor"),
    toka1 = structure(c(NA, NA, NA, NA, NA, NA, 1L, 2L, NA, NA,
    NA, NA, NA, 2L), .Label = c("as", "fg"), class =
"factor"),
    toka2 = structure(c(NA, NA, NA, NA, NA, NA, 1L, 2L, NA, NA,
    NA, NA, NA, 2L), .Label = c("as", "fg"), class =
"factor"),
    toka3 = structure(c(NA, NA, NA, NA, NA, NA, 1L, 2L, NA, NA,
    NA, NA, NA, 2L), .Label = c("as", "fg"), class =
"factor"),
    kol1 = structure(c(NA, NA, NA, NA, 1L, 2L, NA, NA, NA, NA,
    1L, 2L, NA, NA), .Label = c("hj", "ht"), class =
"factor"),
    kol2 = structure(c(NA, NA, NA, NA, 1L, 2L, NA, NA, NA, NA,
    1L, 2L, NA, NA), .Label = c("hj", "ht"), class =
"factor"),
    kol3 = structure(c(NA, NA, NA, NA, 1L, 2L, NA, NA, NA, NA,
    1L, 2L, NA, NA), .Label = c("hj", "th"), class =
"factor")),
.Names = c("idvar1",
"idvar2", "eka1", "eka2", "eka3",
"toka1", "toka2", "toka3",
"kol1", "kol2", "kol3"), class =
"data.frame", row.names = c(NA,
-14L))

I'm trying to omit NA:s in this DF and produce a reduced DF. The
problem is that I cannot completely omit NA rows.

I tried

library(reshape)
g <- melt(DF, id=c("idvar1", "idvar2"))
g <- na.omit(g)
reshape(g, idvar=c("idvar1", "idvar2"),
timevar="variable", direction="wide")

But this drops the second row. This is the resulting DF I should be getting

res <-
structure(list(idvar1 = structure(c(1L, 1L, 2L, 2L), .Label =
c("patient1",
"patient2"), class = "factor"), idvar2 = structure(c(1L, 1L,
2L, 2L), .Label = c("dob", "hog"), class =
"factor"), eka1 = structure(c(NA,
NA, 2L, 1L), .Label = c("as", "df"), class =
"factor"), eka2 = structure(c(NA,
NA, 2L, 1L), .Label = c("as", "df"), class =
"factor"), eka3 = structure(c(NA,
NA, 2L, 1L), .Label = c("as", "df"), class =
"factor"), toka1 = structure(c(1L,
2L, NA, 2L), .Label = c("as", "fg"), class =
"factor"), toka2 = structure(c(1L,
2L, NA, 2L), .Label = c("as", "fg"), class =
"factor"), toka3 = structure(c(1L,
2L, NA, 2L), .Label = c("as", "fg"), class =
"factor"), kol1 = structure(c(1L,
2L, 1L, 2L), .Label = c("hj", "ht"), class =
"factor"), kol2 = structure(c(1L,
2L, 1L, 2L), .Label = c("hj", "ht"), class =
"factor"), kol3 = structure(c(1L,
2L, 1L, 2L), .Label = c("hj", "th"), class =
"factor")), .Names = c("idvar1",
"idvar2", "eka1", "eka2", "eka3",
"toka1", "toka2", "toka3",
"kol1", "kol2", "kol3"), class =
"data.frame", row.names = c(NA,
-4L))

Any ideas how to proceed?

Many thanks
Lauri

> I'm trying to omit NA:s in this DF and produce a reduced DF. The
> problem is that I cannot completely omit NA rows.
>
> I tried
>
> library(reshape)
> g <- melt(DF, id=c("idvar1", "idvar2"))
> g <- na.omit(g)
You're missing an id variable:

DF$idvar3 <- 1:2
g <- melt(DF, id=c("idvar1", "idvar2",
"idvar3"), na.rm = T)
cast(g, idvar1 + idvar2 + idvar3 ~ variable)

Hadley

-- 
http://had.co.nz/