Não foi possível enviar o arquivo. Será algum problema com as permissões?
Diferenças
Aqui você vê as diferenças entre duas revisões dessa página.
| Ambos lados da revisão anterior Revisão anterior | Próxima revisão Ambos lados da revisão seguinte | ||
|
ridiculas [2011/11/30 15:39] walmes [section 2] |
ridiculas [2012/01/26 16:40] walmes [section 4] |
||
|---|---|---|---|
| Linha 262: | Linha 262: | ||
| # http://www.youtube.com/watch?v=E4uR5I1uLFM | # http://www.youtube.com/watch?v=E4uR5I1uLFM | ||
| + | #------------------------------------------------------------------------------------------ | ||
| + | |||
| + | mergeAll <- function(..., by="date", all=TRUE){ | ||
| + | dotArgs <- list(...) | ||
| + | Reduce( | ||
| + | function(x, y){ | ||
| + | merge(x, y, by = by, all = all, suffixes=paste(".", names(dotArgs), sep = "")) | ||
| + | }, | ||
| + | dotArgs) | ||
| + | } | ||
| + | |||
| + | mergeAll(a = a1, b = a2, c = a3, by="id") | ||
| + | |||
| + | str(.Last.value) | ||
| + | |||
| + | You also might be able to set it up to capture names without you having to put "a = a" etc. using substitute. | ||
| + | |||
| + | # http://r.789695.n4.nabble.com/merge-multiple-data-frames-td4331089.html | ||
| + | # ver reshape::merge_all() | ||
| #------------------------------------------------------------------------------------------ | #------------------------------------------------------------------------------------------ | ||
| </code> | </code> | ||
