---------- Mensagem encaminhada ---------- De: Sérgio Henrique almeida da silva ju <sergio.edfisica@gmail.com> Data: 18 de abril de 2012 11:22 Assunto: Re: [R-br] Duvida String Para: r-br@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