Tengo un problema a la hora de tratar con los missings en R y luego sacar un fichero Excel sin los missings, aquí estan los datos que quiero manipular
col1=c("Sujeto1","Sujeto2","Sujeto3","Sujeto4","Sujeto5","Sujeto6")
col2=c("A",NA,NA,"G",NA,NA)
col3=c(NA,NA,NA,"K","H","Z")
col4=c(NA,"P",NA,NA,NA,"Q")
col5=c(NA,NA,NA,NA,NA,NA)
col6=c(NA,NA,NA,"B","C",NA)
col7=c("E",NA,NA,"D",NA,"Y")
data=data.frame(col1,col2,col3,col4,col5,col6,col7)
> data
col1 col2 col3 col4 col5 col6 col7
1 Sujeto1 A <NA> <NA> NA <NA> E
2 Sujeto2 <NA> <NA> P NA <NA> <NA>
3 Sujeto3 <NA> <NA> <NA> NA <NA> <NA>
4 Sujeto4 G K <NA> NA B D
5 Sujeto5 <NA> H <NA> NA C <NA>
6 Sujeto6 <NA> Z Q NA <NA> Y
Y quiero que el output sea un Excel que quede así:
Como se puede apreciar no estan los missings y cada individuo tiene un numero diferente de columnas. Para hacer el output en Excel se tiene que utilizar el siguiente comando:
library(xlsx)
write.xlsx2(x=data,file="Data.xlsx",row.names = F)
Es la primera vez que pregunto por aquí, me he leído el manual y diría que no incumplo ningun requisito ya que en principio no parece que se necesite mucho código para hacer la transformación que pido y me parece suficientemente concreto lo que pido. De no ser así pido disculpas de antemano por las molestias ocasionadas y editaré lo que haga falta para que quede en un formato adecuado para este foro.
Muchas gracias por la ayuda, de verdad.