<HTML><HEAD>
<STYLE type=text/css>p { margin: 0; }</STYLE>
</HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: 'Arial'; COLOR: #000000">
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: 'Arial'; COLOR: #000000">
<DIV>melt_check <- function (data, id.vars, measure.vars) </DIV>
<DIV>{</DIV>
<DIV> varnames <- names(data)</DIV>
<DIV> if (!missing(id.vars) && is.numeric(id.vars)) </DIV>
<DIV> id.vars <- varnames[id.vars]</DIV>
<DIV> if (!missing(measure.vars) && is.numeric(measure.vars))
</DIV>
<DIV> measure.vars <- varnames[measure.vars]</DIV>
<DIV> if (!missing(id.vars)) {</DIV>
<DIV> unknown <- setdiff(id.vars, varnames)</DIV>
<DIV> if (length(unknown) > 0) {</DIV>
<DIV> stop("id variables not found in data: ",
paste(unknown, </DIV>
<DIV>
collapse = ", "), call. = FALSE)</DIV>
<DIV> }</DIV>
<DIV> }</DIV>
<DIV> if (!missing(measure.vars)) {</DIV>
<DIV> unknown <- setdiff(measure.vars, varnames)</DIV>
<DIV> if (length(unknown) > 0) {</DIV>
<DIV> stop("measure variables not found in data:
", paste(unknown, </DIV>
<DIV>
collapse = ", "), call. = FALSE)</DIV>
<DIV> }</DIV>
<DIV> }</DIV>
<DIV> if (missing(id.vars) && missing(measure.vars)) {</DIV>
<DIV> categorical <- sapply(data, function(x) class(x)[1])
%in% </DIV>
<DIV> c("factor", "ordered", "character")</DIV>
<DIV> id.vars <- varnames[categorical]</DIV>
<DIV> measure.vars <- varnames[!categorical]</DIV>
<DIV> message("Using ", paste(id.vars, collapse = ", "), " as
id variables")</DIV>
<DIV> }</DIV>
<DIV> if (missing(id.vars)) </DIV>
<DIV> id.vars <- varnames[!(varnames %in%
c(measure.vars))]</DIV>
<DIV> if (missing(measure.vars)) </DIV>
<DIV> measure.vars <- varnames[!(varnames %in%
c(id.vars))]</DIV>
<DIV> list(id = id.vars, measure = measure.vars)</DIV>
<DIV>}</DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV style="FONT: 10pt tahoma">
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A title=luc.souza@usp.br
href="mailto:luc.souza@usp.br">luc.souza@usp.br</A> </DIV>
<DIV><B>Sent:</B> Wednesday, June 04, 2014 5:09 PM</DIV>
<DIV><B>To:</B> <A title=r-br@listas.c3sl.ufpr.br
href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A> </DIV>
<DIV><B>Subject:</B> Re: [R-br] várias linhas em um única
coluna</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV
style="FONT-SIZE: 12pt; FONT-FAMILY: times new roman,new york,times,serif; COLOR: #000000">Obrigado.<BR>Mas
está faltando a função melt_check<BR>abs<BR><BR>
<DIV><SPAN name="x"></SPAN>Lucas F. de Souza<BR>Eng. Agrícola - CONAB<BR>M.Sc.
Produção Vegetal - UENF<BR>Doutor em Agrometeorologia - ESALQ/USP<BR>tel: (19)
98160-7068<SPAN name="x"></SPAN><BR></DIV><BR>
<HR id=zwchr>
<BLOCKQUOTE
style="FONT-SIZE: 12pt; TEXT-DECORATION: none; FONT-FAMILY: helvetica,arial,sans-serif; FONT-WEIGHT: normal; COLOR: #000; FONT-STYLE: normal; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: rgb(16,16,255) 2px solid"><B>De:
</B>"Robert Iquiapaza" <rbali@ufmg.br><BR><B>Para:
</B>r-br@listas.c3sl.ufpr.br<BR><B>Enviadas: </B>Quarta-feira, 4 de Junho de
2014 17:00:03<BR><B>Assunto: </B>Re: [R-br] várias linhas em um única
coluna<BR><BR>
<STYLE>p { margin: 0; }</STYLE>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: 'Arial'; COLOR: #000000">
<DIV>A função melt para data frames:</DIV>
<DIV> </DIV>
<DIV>x=data.frame(rbind(runif(5), rbind(runif(5))))</DIV>
<DIV>t(x)</DIV>
<DIV> </DIV>
<DIV>meltdf <- function (data, id.vars, measure.vars, variable_name =
"variable", </DIV>
<DIV> na.rm =
!preserve.na, preserve.na = TRUE) </DIV>
<DIV>{</DIV>
<DIV> if (!missing(preserve.na)) </DIV>
<DIV> message("Use of preserve.na is now deprecated, please
use na.rm instead")</DIV>
<DIV> var <- melt_check(data, id.vars, measure.vars)</DIV>
<DIV> if (length(var$measure) == 0) {</DIV>
<DIV> return(data[, var$id, drop = FALSE])</DIV>
<DIV> }</DIV>
<DIV> ids <- data[, var$id, drop = FALSE]</DIV>
<DIV> df <- do.call("rbind", lapply(var$measure, function(x) {</DIV>
<DIV> data.frame(ids, x, data[, x])</DIV>
<DIV> }))</DIV>
<DIV> names(df) <- c(names(ids), variable_name, "value")</DIV>
<DIV> df[[variable_name]] <- factor(df[[variable_name]],
unique(df[[variable_name]]))</DIV>
<DIV> if (na.rm) {</DIV>
<DIV> df <- df[!is.na(df$value), , drop = FALSE]</DIV>
<DIV> }</DIV>
<DIV> rownames(df) <- NULL</DIV>
<DIV> df</DIV>
<DIV>}</DIV>
<DIV> </DIV>
<DIV>meltdf(x)</DIV>
<DIV> </DIV>
<DIV>Sds</DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV style="FONT: 10pt tahoma">
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A title=luc.souza@usp.br
href="mailto:luc.souza@usp.br" target=_blank>luc.souza@usp.br</A> </DIV>
<DIV><B>Sent:</B> Wednesday, June 04, 2014 3:56 PM</DIV>
<DIV><B>To:</B> <A title=r-br@listas.c3sl.ufpr.br
href="mailto:r-br@listas.c3sl.ufpr.br"
target=_blank>r-br@listas.c3sl.ufpr.br</A> </DIV>
<DIV><B>Subject:</B> Re: [R-br] várias linhas em um única
coluna</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV
style="FONT-SIZE: 12pt; FONT-FAMILY: times new roman,new york,times,serif; COLOR: #000000">Obrigado.<BR>Mas
como não tenho o pacote instalado, tenho um problema.<BR>Sou func. público e o
proxy não deixa eu baixar o pacote.<BR>Estou procurando uma solução para isso,
através do R, mas não estou conseguindo.<BR>Conhece algo a respeito de
liberação do proxy no R?<BR>Obrigado<BR>Lucas<BR><BR>
<DIV><SPAN></SPAN>Lucas F. de Souza<BR>Eng. Agrícola - CONAB<BR>M.Sc. Produção
Vegetal - UENF<BR>Doutor em Agrometeorologia - ESALQ/USP<BR>tel: (19)
98160-7068<SPAN></SPAN><BR></DIV><BR>
<HR id=zwchr>
<BLOCKQUOTE
style="FONT-SIZE: 12pt; TEXT-DECORATION: none; FONT-FAMILY: helvetica,arial,sans-serif; FONT-WEIGHT: normal; COLOR: #000; FONT-STYLE: normal; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: rgb(16,16,255) 2px solid"><B>De:
</B>"Rodrigo Muniz" <uenf.rodrigo@gmail.com><BR><B>Para:
</B>r-br@listas.c3sl.ufpr.br<BR><B>Enviadas: </B>Quarta-feira, 4 de Junho de
2014 15:49:27<BR><B>Assunto: </B>Re: [R-br] várias linhas em um única
coluna<BR><BR>
<DIV dir=ltr>Exatamente Lucas a função melt é do pacote Reshape.
<DIV>Att..</DIV></DIV>
<DIV class=gmail_extra><BR><BR>
<DIV class=gmail_quote>2014-06-04 15:27 GMT-03:00 <SPAN dir=ltr><<A
href="mailto:luc.souza@usp.br"
target=_blank>luc.souza@usp.br</A>></SPAN>:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">
<DIV>
<DIV
style="FONT-SIZE: 12pt; FONT-FAMILY: times new roman,new york,times,serif; COLOR: #000000">Rodrigo,
obrigado.<BR>Essa função melt é do pacote reshape?
<DIV><BR>Lucas<BR><BR>
<DIV><SPAN></SPAN>Lucas F. de Souza<BR>Eng. Agrícola - CONAB<BR>M.Sc.
Produção Vegetal - UENF<BR>Doutor em Agrometeorologia - ESALQ/USP<BR>tel:
<A href="tel:%2819%29%2098160-7068" target=_blank>(19)
98160-7068</A><SPAN></SPAN><BR></DIV><BR>
<HR>
</DIV>
<BLOCKQUOTE
style="FONT-SIZE: 12pt; TEXT-DECORATION: none; FONT-FAMILY: helvetica,arial,sans-serif; FONT-WEIGHT: normal; COLOR: #000; FONT-STYLE: normal; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: rgb(16,16,255) 2px solid"><B>De:
</B>"Rodrigo Muniz" <<A href="mailto:uenf.rodrigo@gmail.com"
target=_blank>uenf.rodrigo@gmail.com</A>><BR><B>Para: </B><A
href="mailto:r-br@listas.c3sl.ufpr.br"
target=_blank>r-br@listas.c3sl.ufpr.br</A><BR><B>Enviadas:
</B>Quarta-feira, 4 de Junho de 2014 15:08:27<BR><B>Assunto: </B>Re:
[R-br] várias linhas em um única coluna
<DIV>
<DIV class=h5><BR><BR>
<DIV dir=ltr>
<DIV>Considere o seguinte exemplo e veja se da certo para os seus
dados.</DIV>
<DIV> </DIV>
<DIV>x=data.frame(rbind(runif(5), rbind(runif(5))))<BR></DIV>
<DIV>t(x)<BR></DIV>
<DIV>melt(x)<BR></DIV>
<DIV> </DIV>
<DIV>Att..</DIV></DIV>
<DIV class=gmail_extra><BR><BR>
<DIV class=gmail_quote>2014-06-04 14:27 GMT-03:00 <SPAN dir=ltr><<A
href="mailto:luc.souza@usp.br"
target=_blank>luc.souza@usp.br</A>></SPAN>:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">
<DIV>
<DIV
style="FONT-SIZE: 12pt; FONT-FAMILY: times new roman,new york,times,serif; COLOR: #000000">Prezados,<BR>tenho
uma planilha com várias linhas.<BR>Gostaria de colocar os dados dessas
várias linhas, em uma única coluna, um após o outro.<BR>como pode ser
feito isso?<BR>Obrigado<BR>Lucas<BR><BR>
<DIV><SPAN></SPAN>Lucas F. de Souza<BR>Eng. Agrícola - CONAB<BR>M.Sc.
Produção Vegetal - UENF<BR>Doutor em Agrometeorologia -
ESALQ/USP<BR>tel: <A href="tel:%2819%29%2098160-7068"
target=_blank>(19)
98160-7068</A></DIV></DIV></DIV></BLOCKQUOTE></DIV></DIV></DIV></DIV></BLOCKQUOTE></DIV></DIV></BLOCKQUOTE></DIV></DIV></BLOCKQUOTE></DIV></DIV></DIV></DIV></BLOCKQUOTE><BR></DIV>
<P>
<HR>
_______________________________________________<BR>R-br mailing
list<BR>R-br@listas.c3sl.ufpr.br<BR>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br<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></DIV></BODY></HTML>