[R-es] Colapsar una matriz con NA en una única fila

# Crear un df con NAs y solo un elemento por columna no NA
df <- as.data.frame(matrix(data = NA, nrow = 10, ncol = 5 ))
set.seed(1)
df2 <- apply(df, 2, function(x) { x[sample(1:10,1)] <- rnorm(1); x})
df2

# Encuentra en cada col las filas con NAs
idx <- apply(df2,2, function(x) { which(!is.na(x)) } )
# Extrae de cada col del df con NA el elemento no NA
idx_df <- data.frame()
for(i in 1:ncol(df2)) {

idx_df

Javier
Muchas gracias por su respuesta
Aunque no está funcionando, pues si ejecuto:

EncDTE1<- t.EncDTE1[ !is.na(t.EncDTE1$Var1),]  obtengo Var1, Var2,
Var3,...Varn con datos "texto", NA, NA....NA

Pero al ejecutar

EncDTE1<- t.EncDTE1[ !is.na(t.EncDTE1$Var2),]  obtengo Var1, Var2,
Var3,...Varn con datos NA,"texto", NA....NA


Estoy tratando de dar la vuelta con el loop otra vez, pero aún no lo
consigo...
Muchas gracias




El 11 de octubre de 2016, 15:27, <javier.ruben.marcuzzi en gmail.com>
escribió:

Estimado Oscar Benitez



Yo utilizo algo como lo siguiente:



Datos<- Datos[ !is.na(Datos$DatoX),]    #Solo dejo filas en las que las
tratamiento son diferentes de cero



Javier Rubén Marcuzzi



*De: *Oscar Benitez <oscar.benitez1962 en gmail.com>
*Enviado: *martes, 11 de octubre de 2016 15:22
*Para: *R-help-es <r-help-es en r-project.org>
*Asunto: *[R-es] Colapsar una matriz con NA en una única fila



Hola



Consulto por un problema que no consigo resolver.



Tengo un dataframe con muchas columnas todas de texto. Cada columna tiene

solamente un valor válido y el resto son NAs. También cada fila tiene un

único valor válido. Quiero colapsar ese data frame en uno que tenga

solamente una fila y todas las columnas. Intenté con loops, while,

apply y

otros parecidos pero no lo logro



El ejemplo del data frame sería así:

V1        V2          V3

a33       <NA>     10-04

<NA>    <NA>     <NA>

<NA>    d52725   <NA>

<NA>    <NA>     <NA>



Y quiero lograr algo así



V1      V2            V3

a33     d52725     10-04



Mi script es así:



Nombre.1<-colnames(df0) #df0 es el dataframe que obtengo con NA



df<-data.frame(1) #inicio un nuevo data frame con una variable sin

nombre y

valor 1





for (i in Nombre.1)

  {merge(df, subset(paste("df0$",i,sep=''),!is.na

(paste("df0$",i,sep=''))

))}

#el loop



Cualquier ayuda será apreciada



--

Oscar Benitez



                [[alternative HTML version deleted]]

--
Oscar Benitez

        [[alternative HTML version deleted]]