<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:10pt"><div style="font-family: arial, helvetica, sans-serif; font-size: 10pt;"><span>Aline,</span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 13px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;"><span><br></span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 13px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;"><span>Supondo uma lista 'x' do tipo </span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 13px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;"><span><br></span></div><div style="background-color: transparent;"><span><font size="2" style="font-family: 'Courier New', courier, monaco, monospace, sans-serif;">x <- lapply(4:5, function(i) rnorm(i))</font><br></span></div><div
style="background-color: transparent; color: rgb(0, 0, 0); font-size: 16px; font-family: arial, helvetica, sans-serif; font-style: normal;"><span><font size="2"><br></font></span></div><div style="background-color: transparent; color: rgb(0, 0, 0); font-size: 13px; font-family: arial, helvetica, sans-serif; font-style: normal;"><span><font size="2">você pode criar um índice que identifique os vetores e exportar num data frame. P. ex.:</font></span></div><div style="background-color: transparent; color: rgb(0, 0, 0); font-size: 13px; font-family: arial, helvetica, sans-serif; font-style: normal;"><span><font size="2"><br></font></span></div><div style="background-color: transparent;"><span><font><div style="font-size: 13px; color: rgb(0, 0, 0); font-family: arial, helvetica, sans-serif; font-style: normal; background-color: transparent;"><span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif;">x.lista <- mapply(function(i,
x) data.frame(i, x), 1:length(x), x, SIMPLIFY = F)</span></div><div style="font-size: 13px; color: rgb(0, 0, 0); font-family: arial, helvetica, sans-serif; font-style: normal; background-color: transparent;"><span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif;">(x.df <- do.call(rbind, x.lista))</span></div><div style="font-size: 13px; color: rgb(0, 0, 0); font-family: arial, helvetica, sans-serif; font-style: normal; background-color: transparent;"><span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif;">write.csv(x.df, "lista.csv", row.names = F)</span></div><div style="font-size: 13px; color: rgb(0, 0, 0); font-family: arial, helvetica, sans-serif; font-style: normal;"><br></div><div style="font-size: 13px; color: rgb(0, 0, 0); font-family: arial, helvetica, sans-serif; font-style: normal;">Daí, em uma outra sessão, a lista original pode ser recuperada fazendo</div><div style="font-size: 13px;
color: rgb(0, 0, 0); font-family: arial, helvetica, sans-serif; font-style: normal;"><br></div><div><div><span style="font-size: 13px; font-family: 'Courier New', courier, monaco, monospace, sans-serif;">x.df <- read.csv('lista.csv')</span></div><div><span style="font-size: 13px; font-family: 'Courier New', courier, monaco, monospace, sans-serif;">(x <- split(x.df$x, x.df$i))</span></div></div></font></span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 10pt;"><br></div><div style="font-family: arial, helvetica, sans-serif; font-size: 13px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;">Att.,</div><div style="font-family: arial, helvetica, sans-serif; font-size: 13px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;">Rubem</div><div style="font-family: arial, helvetica, sans-serif; font-size: 13px; color: rgb(0, 0, 0); background-color: transparent; font-style:
normal;"><br></div> <div style="font-family: arial, helvetica, sans-serif; font-size: 10pt;"> <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"> <div dir="ltr"> <font size="2" face="Arial"> <hr size="1"> <b><span style="font-weight:bold;">De:</span></b> Aline Lipsky <line_lips@hotmail.com><br> <b><span style="font-weight: bold;">Para:</span></b> programa r <r-br@listas.c3sl.ufpr.br> <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Quinta-feira, 4 de Abril de 2013 14:04<br> <b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] exportar um vetor do tipo list<br> </font> </div> <br><div id="yiv121243079">
<style><!--
#yiv121243079 .yiv121243079hmmessage P
{
margin:0px;
padding:0px;}
#yiv121243079 body.yiv121243079hmmessage
{
font-size:12pt;
font-family:Calibri;}
--></style>
<div><div dir="ltr"><div>Manoel,</div><div><br></div>Como minha lista tem 6000 vetores é mais fácil eu inserir NA nos vetores.<div>Qual função devo usar para isso?</div><div><br></div><div>Grata, </div><div><br></div><div>Aline F. Lipsky<br><br><div><div id="yiv121243079SkyDrivePlaceholder"></div><hr id="yiv121243079stopSpelling">From: mcz.fea@gmail.com<br>Date: Tue, 2 Apr 2013 19:11:13 -0300<br>To: r-br@listas.c3sl.ufpr.br<br>Subject: Re: [R-br] exportar um vetor do tipo list<br><br><div dir="ltr">Aline, normalmente exportamos um data.frame para csv. E você quer exportar uma lista. Isso cria um problema. Tem duas possibilidades. Uma é transformar sua lista num data.frame. Como um data.frame é, tecnicamente, uma lista, não é um problema. De todo modo, o jeito mais fácil é fazer todos os vetores terem o mesmo tamanho, inserindo NA nos vetores de tamanho menores.<div>
<br></div><div>Outra possibilidade é você salvar cada vetor numa aba em excel, usando o pacote xlsx. Abaixo segue uma função que criamos aqui na empresa que salva sua lista em um arquivo de excel:</div><div><br>
</div><div><div>cria_xlsx <- function (ldf, arquivo) { # ldf é a lista, em que cada elemento da lista (se nomeado) é uma aba do excel. arquivo é como quer salvar o arquivo.</div><div> if (require(xlsx) == F) install.packages('xlsx')</div>
<div> wb <- createWorkbook()</div><div> lsheets <- as.list(1:length(ldf))</div><div> for (i in 1:length(ldf)) {</div><div> lsheets [[i]] <- createSheet(wb, sheetName=names(ldf)[[i]])</div><div> addDataFrame(ldf[[i]], lsheets[[i]], row.names=F)</div>
<div> }</div><div> saveWorkbook(wb, paste(getwd(), "/", arquivo, ".xlsx", sep=""))</div><div>}</div><div><br></div><div>após criar a função, assumindo que sua lista se chama lista, basta:</div>
<div><br></div><div>cria_xlsx(lista, "arquivo_export")</div><div><br></div><div>abçs</div><div>M</div></div></div><div class="yiv121243079ecxgmail_extra"><br><br><div class="yiv121243079ecxgmail_quote">2013/4/2 Aline Lipsky <span dir="ltr"><<a rel="nofollow" ymailto="mailto:line_lips@hotmail.com" target="_blank" href="mailto:line_lips@hotmail.com">line_lips@hotmail.com</a>></span><br>
<blockquote class="yiv121243079ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex;">
<div><div dir="ltr"><br>Boa tarde,<div><br></div><div>Eu tenho um vetor do tipo list com vetores de tamanhos diferentes. Preciso exportar do r no formato "csv" ou "txt", mas não estou conseguindo.</div>
<div>Alguém sabe se tem como fazer essa exportação?</div><div><br></div><div>Grata,</div><div><br></div><div>Aline F. Lipsky</div> </div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>
Manoel Galdino<br><a rel="nofollow" target="_blank" href="https://sites.google.com/site/galdinomcz/">https://sites.google.com/site/galdinomcz/</a><br>
</div>
<br>_______________________________________________
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.</div></div> </div></div>
</div><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" 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><br> </div> </div> </div></body></html>