Só mais uma pergunta Como posso salvar esses arquivos em excel? Eu tentei o comando da biblioteca WriteXLS, mas não rodou
for (nm in Nms) WriteXLS(Res[[nm]], ExcelFileName = paste(nm, 'xls', sep='.')) tem algum jeito melhor de salvar? Obrigado Em 23 de junho de 2013 12:51, Sérgio Henrique almeida da silva ju < [email protected]> escreveu: > Obrigado > > Deu tudo certinho! > > Abraços > > > Em 23 de junho de 2013 01:28, Benilton Carvalho < > [email protected]> escreveu: > > Para dividir em subconjuntos, use o comando split(). >> >> Res = split(dados, dados$codigo) >> >> Daí, combine com um for() loop para gravar (ou mesmo um lapply). >> >> Nms = names(Res) >> for (nm in Nms) write.table(Res[[nm]], file=paste(nm, 'txt', sep='.')) >> >> (código não-testado) >> >> Sobre gravar compactado, vc pode mudar o nome do arquivo para uma conexão >> gzip ou, se bem me lembro, zip. Veja a ajuda para os comandos de mesmo >> nome. >> >> b >> On 22 Jun 2013 23:23, "Sérgio Henrique almeida da silva ju" < >> [email protected]> wrote: >> >>> Prezados >>> >>> Gostaria de fazer uma função que através de um banco formasse diversos >>> outros bancos selecionados por uma variável. >>> >>> Exemplo: >>> >>> codigo <- c(rep("10001",10), rep("10005",15),rep("20001",20)) >>> sexo <- c(rep("m",20),rep("f",25)) >>> idade <- rnorm(45,20) >>> >>> dados <- >>> cbind(as.data.frame(codigo),as.data.frame(sexo),as.data.frame(idade)) >>> >>> Quero quebrar esse banco dados em diversos outros bancos pela variável >>> codigo >>> >>> como: >>> >>> dados1 <- dados[which(dados$codigo=="10001"),] >>> . >>> . >>> . >>> dadosn <- dados[which(dados$codigo=="n"),] >>> >>> Posso fazer uma table(codigo) e jogar os valores dentro desse comando, >>> mas não sei como fazer isso, deixando a função mais automática. >>> >>> Outra pergunta tem como eu saber esses bancos comprimidos através do R, >>> por exemplo em ZIP ou RAR? >>> >>> Obrigado >>> -- >>> 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) 68463637 >>> http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro >>> >>> _______________________________________________ >>> R-br mailing list >>> [email protected] >>> 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 >> [email protected] >> 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) 68463637 > http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro > -- 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) 68463637 http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro
_______________________________________________ R-br mailing list [email protected] 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.
