[R-br] Duvida String

[Sérgio Henrique almeida da silva ju]

Se por exemplo eu busca além do código A39 querer também o G00

dados1$causaa = f(dados1$linhaa, "A39")
dados1$causab = f(dados1$linhab, "A39")
dados1$causac = f(dados1$linhac, "A39")
dados1$causad = f(dados1$linhad, "A39")
dados1$causaii = f(dados1$linhaii, "A39")
dados1$causaa1 = f(dados1$linhaa, "G00")
dados1$causab1 = f(dados1$linhab, "G00")
dados1$causac1 = f(dados1$linhac, "G00")
dados1$causad1 = f(dados1$linhad, "G00")
dados1$causaii1 = f(dados1$linhaii, "G00")
E depois agregar essas colunas em uma só!

Tem como eu buscar o código A39 e G00 em um comando só? como por exemplo:

dados1$causaa = f(dados1$linhaa, "A39" | "G00")

Abraços



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

> Como sugerido no guia de postagem, sinta-se a vontade para colocar seu
> arquivo em algum servico como http://www.datafilehost.com/ , assim
> quem esta' tentando te ajudar tem a chance de entender mais
> rapidamente qual eh o problema.
>
> O que vc quer dizer com "mais de um codigo"?
>
> Em teoria, vc precisa apenas de um wrapper para:
>
> with(dados1, gsub('NA', '',
>
> paste(dados1$causaa,dados1$causab,dados1$causac,dados1$causad,dados1$causaii,
> sep='')))
>
> mas sem entender o que exatamente vc quer dizer, minha ajuda acaba por
> aqui.
>
> b
>
> 2012/4/18 Sérgio Henrique almeida da silva ju <sergio.edfisica em gmail.com>:
> >
> >
> > ---------- Mensagem encaminhada ----------
> > De: Sérgio Henrique almeida da silva ju <sergio.edfisica em gmail.com>
> > Data: 18 de abril de 2012 11:22
> > Assunto: Re: [R-br] Duvida String
> > Para: r-br em listas.c3sl.ufpr.br
> >
> >
> > Uma alternativa que encontrei foi
> >
> >
> > f = function(v, dat, v1=sapply(gregexpr(dat,v),"[",i=1)){
> > n = ifelse(v1 > 1, nchar(v), NA)
> > substr(v, v1,n)
> > }
> > dados1$causaa = f(dados1$linhaa, "A39")
> > dados1$causab = f(dados1$linhab, "A39")
> > dados1$causac = f(dados1$linhac, "A39")
> > dados1$causad = f(dados1$linhad, "A39")
> > dados1$causaii = f(dados1$linhaii, "A39")
> >
> > dados1$causa<- with(dados1, gsub('NA', '',
> >
> paste(dados1$causaa,dados1$causab,dados1$causac,dados1$causad,dados1$causaii,
> > sep='')))
> >
> >
> > Como faço para buscar mais de um código? Tem que fazer um monte de
> comando
> > como esses?
> > Existe uma forma mais simples de fazer isso?
> >
> > Segue o banco anexo
> >
> >
> > Desculpe enviar o arquivo anexo, mas é uma tentativa para vocês me
> ajudarem,
> > já que o dput não é uma boa saida!
> >
> > 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
> >
> >
> >
> >
> >
> > --
> > 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/433de709/attachment.html>