<div>Se por exemplo eu busca além do código A39 querer também o G00</div><div> </div><div>dados1$causaa = f(dados1$linhaa, "A39")</div><div>dados1$causab = f(dados1$linhab, "A39")</div><div>dados1$causac = f(dados1$linhac, "A39")</div>
<div>dados1$causad = f(dados1$linhad, "A39")</div><div>dados1$causaii = f(dados1$linhaii, "A39")<br></div><div><div>dados1$causaa1 = f(dados1$linhaa, "G00")</div><div>dados1$causab1 = f(dados1$linhab, "G00")</div>
<div>dados1$causac1 = f(dados1$linhac, "G00")</div><div>dados1$causad1 = f(dados1$linhad, "G00")</div><div>dados1$causaii1 = f(dados1$linhaii, "G00")<br></div><div>E depois agregar essas colunas em uma só!</div>
<div> </div><div>Tem como eu buscar o código A39 e G00 em um comando só? como por exemplo:</div><div><br>dados1$causaa = f(dados1$linhaa, "A39" | "G00")</div><div> </div><div>Abraços</div></div><div class="gmail_quote">
 </div><div class="gmail_quote"> </div><div class="gmail_quote"> </div><div class="gmail_quote">Em 18 de abril de 2012 11:56, Benilton Carvalho <span dir="ltr"><<a href="mailto:beniltoncarvalho@gmail.com">beniltoncarvalho@gmail.com</a>></span> escreveu:<br>
<blockquote style="margin:0px 0px 0px 0.8ex;padding-left:1ex;border-left-color:rgb(204,204,204);border-left-width:1px;border-left-style:solid" class="gmail_quote">Como sugerido no guia de postagem, sinta-se a vontade para colocar seu<br>

arquivo em algum servico como <a href="http://www.datafilehost.com/" target="_blank">http://www.datafilehost.com/</a> , assim<br>
quem esta' tentando te ajudar tem a chance de entender mais<br>
rapidamente qual eh o problema.<br>
<br>
O que vc quer dizer com "mais de um codigo"?<br>
<br>
Em teoria, vc precisa apenas de um wrapper para:<br>
<div class="im"><br>
with(dados1, gsub('NA', '',<br>
paste(dados1$causaa,dados1$causab,dados1$causac,dados1$causad,dados1$causaii,<br>
sep='')))<br>
<br>
</div>mas sem entender o que exatamente vc quer dizer, minha ajuda acaba por aqui.<br>
<br>
b<br>
<br>
2012/4/18 Sérgio Henrique almeida da silva ju <<a href="mailto:sergio.edfisica@gmail.com">sergio.edfisica@gmail.com</a>>:<br>
<div class="HOEnZb"><div class="h5">><br>
><br>
> ---------- Mensagem encaminhada ----------<br>
> De: Sérgio Henrique almeida da silva ju <<a href="mailto:sergio.edfisica@gmail.com">sergio.edfisica@gmail.com</a>><br>
> Data: 18 de abril de 2012 11:22<br>
> Assunto: Re: [R-br] Duvida String<br>
> Para: <a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a><br>
><br>
><br>
> Uma alternativa que encontrei foi<br>
><br>
><br>
> f = function(v, dat, v1=sapply(gregexpr(dat,v),"[",i=1)){<br>
> n = ifelse(v1 > 1, nchar(v), NA)<br>
> substr(v, v1,n)<br>
> }<br>
> dados1$causaa = f(dados1$linhaa, "A39")<br>
> dados1$causab = f(dados1$linhab, "A39")<br>
> dados1$causac = f(dados1$linhac, "A39")<br>
> dados1$causad = f(dados1$linhad, "A39")<br>
> dados1$causaii = f(dados1$linhaii, "A39")<br>
><br>
> dados1$causa<- with(dados1, gsub('NA', '',<br>
> paste(dados1$causaa,dados1$causab,dados1$causac,dados1$causad,dados1$causaii,<br>
> sep='')))<br>
><br>
><br>
> Como faço para buscar mais de um código? Tem que fazer um monte de comando<br>
> como esses?<br>
> Existe uma forma mais simples de fazer isso?<br>
><br>
> Segue o banco anexo<br>
><br>
><br>
> Desculpe enviar o arquivo anexo, mas é uma tentativa para vocês me ajudarem,<br>
> já que o dput não é uma boa saida!<br>
><br>
> Abraços<br>
><br>
><br>
><br>
><br>
> --<br>
> Sérgio Henrique Almeida da Silva Junior<br>
> Doutorando em Epidemiologia em Saúde Pública<br>
> Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ<br>
> <a href="http://lattes.cnpq.br/1611345552843383" target="_blank">http://lattes.cnpq.br/1611345552843383</a><br>
> Tel: (21) 94429486/78101651 id: 123*20942<br>
><br>
><br>
><br>
><br>
><br>
> --<br>
> Sérgio Henrique Almeida da Silva Junior<br>
> Doutorando em Epidemiologia em Saúde Pública<br>
> Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ<br>
> <a href="http://lattes.cnpq.br/1611345552843383" target="_blank">http://lattes.cnpq.br/1611345552843383</a><br>
> Tel: (21) 94429486/78101651 id: 123*20942<br>
><br>
><br>
><br>
</div></div><div class="HOEnZb"><div class="h5">> _______________________________________________<br>
> R-br mailing list<br>
> <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código<br>
> mínimo reproduzível.<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Sérgio Henrique Almeida da Silva Junior<br>Doutorando em Epidemiologia em Saúde Pública<br>Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ<br><a href="http://lattes.cnpq.br/1611345552843383">http://lattes.cnpq.br/1611345552843383</a> <br>
Tel: (21) 94429486/78101651 id: 123*20942<br><br><br>