---------- 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
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@gmail.com>:
---------- 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
_______________________________________________ R-br mailing list R-br@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.
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@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@gmail.com>:
---------- 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
_______________________________________________ R-br mailing list R-br@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@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
talvez f(dados1$linhaa, "A39|G00") mas e' apenas achometro. boa sorte. 2012/4/18 Sérgio Henrique almeida da silva ju <sergio.edfisica@gmail.com>:
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@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@gmail.com>:
---------- 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
_______________________________________________ R-br mailing list R-br@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@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
_______________________________________________ R-br mailing list R-br@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.
participantes (2)
-
Benilton Carvalho -
Sérgio Henrique almeida da silva ju