[R-br] Agregar colunas

[Sérgio Henrique almeida da silva ju]

Obrigado mais uma vez Benilton!

Em 18 de abril de 2012 11:00, Benilton Carvalho
<beniltoncarvalho em gmail.com>escreveu:

> por sinal, usando sua tentativa inicial, eu faria simplesmente:
>
> with(tmp, gsub('NA', '', paste(x,y,z, sep='')))
>
> b
>
> 2012/4/18 Benilton Carvalho <beniltoncarvalho em gmail.com>:
> > tmp = data.frame(x=c('A1', NA, 'A2', NA, 'A3', NA, NA),
> > y=c(NA, NA, NA, 'A4', NA, 'A5', NA),
> > z=c(NA, 'A6', NA, NA, NA, NA, 'A7'), stringsAsFactors=FALSE)
> > tmp[is.na(tmp)]=''
> > apply(tmp, 1, paste, collapse='', sep='')
> >
> >
> > 2012/4/18 Sérgio Henrique almeida da silva ju <sergio.edfisica em gmail.com
> >:
> >> Olá
> >>
> >> Estou tentando agregar três colunas em uma, porém quando faço isso os
> NAs
> >> também se agregam, como faço para descosiderá-los
> >>
> >> Ex:
> >>
> >> # Dados
> >>
> >> tmp = data.frame(x=c('A1', NA, 'A2', NA, 'A3', NA, NA),
> >> y=c(NA, NA, NA, 'A4', NA, 'A5', NA),
> >> z=c(NA, 'A6', NA, NA, NA, NA, 'A7'))
> >>
> >> # Agregando com o PASTE
> >>
> >> tmp$W <-paste(tmp$x,tmp$y,tmp$z, sep = "")
> >>
> >> # Como os dados ficam
> >> dput(tmp)
> >>
> >> structure(list(x = structure(c(1L, NA, 2L, NA, 3L, NA, NA), .Label =
> c("A1",
> >> "A2", "A3"), class = "factor"), y = structure(c(NA, NA, NA, 1L,
> >> NA, 2L, NA), .Label = c("A4", "A5"), class = "factor"), z =
> structure(c(NA,
> >> 1L, NA, NA, NA, NA, 2L), .Label = c("A6", "A7"), class = "factor"),
> >>     W = c("A1NANA", "NANAA6", "A2NANA", "NAA4NA", "A3NANA", "NAA5NA",
> >>     "NANAA7")), .Names = c("x", "y", "z", "W"), row.names = c(NA,
> >> -7L), class = "data.frame")
> >>
> >> # Gostaria que minha coluna W ficasse assim e não como acima:
> >>
> >> W = c("A1", "A6", "A2", "A4", "A3", "A5", "A7")
> >>
> >> Como faço
> >>
> >>
> >> Abraços
> >>
> >>
> >>
> >> --
> >> Sérgio Henrique Almeida da Silva Junior
> >> Doutorando em Epidemiologia em Saúde Pública
> >> Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ
> >> http://lattes.cnpq.br/1611345552843383
> >> Tel: (21) 94429486/78101651 id: 123*20942
> >>
> >>
> >>
> >> _______________________________________________
> >> R-br mailing list
> >> R-br em listas.c3sl.ufpr.br
> >> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> >> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
> código
> >> mínimo reproduzível.
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
> código mínimo reproduzível.
>



-- 
Sérgio Henrique Almeida da Silva Junior
Doutorando em Epidemiologia em Saúde Pública
Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ
http://lattes.cnpq.br/1611345552843383
Tel: (21) 94429486/78101651 id: 123*20942
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120418/efafea57/attachment.html>