[R-es] Resumen de R-help-es, Vol 103, Envío 9

Carlos Ortega cof en qualityexcellence.es
Vie Sep 8 01:03:39 CEST 2017


Hola,

Esto también puede ayudar:

https://cloud.r-project.org/web/packages/tibbletime/index.html

Es un paquete especialmente orientado para tratar este caso, agregar por
fechas...

Saludos,
Carlos Ortega
www.qualityexcellence.es

El 6 de septiembre de 2017, 19:51, Eduardo Villagómez <
eduardo_vd en hotmail.com> escribió:

> Estimado Javier:
>
> A ver si mi caso te sirve como ejemplo. He estado trabajando con
> precipitaciones y usando la función "aggregate" para calcular acumulados en
> diferentes escalas temporales, talvez es algo aplicable a lo que estas
> buscando.
> Te mando adjunto el archivo que realiza estas operaciones y a continuación
> escribo el código correspondiente a la parte de la función aggregate:
>
> tab <- read.xlsx("precip_todas.xlsx", sheet = paste(sheetnames[i]), cols =
> c(1,2))              # Variable temporal donde se graba los datos de cada
> hoja ## de excel
>     assign(tmp, tab)
>                                               # Crea la variable de nombre
> y con los datos de cada hoja (nam1, nam2, nam3)
>     convertToDateTime(tab[,1], origin = "1900-01-01") -> tab[,1]
>                               # Convierte las fechas, de formato excel a
> formato fecha y hora, y reemplaza en la misma variable
>     tab$Fecha <- trunc.POSIXt(tab$Fecha, units = "mins")
>                               # Redondea a minutos. La serie de datos, en
> mi caso, tiene resolución hasta décimas de segundo, que es innecesario.
>     tab [is.na(tab[,2]),2] <- 0
>                                                # Identifica valores NA en
> la serie y les convierte en ceros
>
>     tab <- aggregate(x = tab[,2],
>                                      # Utilizar la segunda columna
> (precip), ignora la columna de "fecha"
>                                 by = list( Fecha = substr( tab$Fecha, 1,
> 16)),                          # Agregar por fecha = únicamente considera
> las coincidencias hasta minutos.
>                                 FUN = sum )
>                                    # Los que coincidan deben sumarse para
> obtener el acumulado periódico (función sum)
>     names(tab) <- c("Fecha", paste("Precip", min, sep = "_"))
>                              # Renombra los títulos de las columnas a fecha
> y precip
>
> Espero poder sido de ayuda y cualquier adicional, no dudes en contactarme.
>
> Saludos,
> Eduardo.
>
> -----Original Message-----
> From: R-help-es [mailto:r-help-es-bounces en r-project.org] On Behalf Of
> r-help-es-request en r-project.org
> Sent: Tuesday, 5 September, 2017 16:09
> To: r-help-es en r-project.org
> Subject: Resumen de R-help-es, Vol 103, Envío 9
>
> Envíe los mensajes para la lista R-help-es a
>         r-help-es en r-project.org
>
> Para subscribirse o anular su subscripción a través de la WEB
>         https://stat.ethz.ch/mailman/listinfo/r-help-es
>
> O por correo electrónico, enviando un mensaje con el texto "help" en el
> asunto (subject) o en el cuerpo a:
>         r-help-es-request en r-project.org
>
> Puede contactar con el responsable de la lista escribiendo a:
>         r-help-es-owner en r-project.org
>
> Si responde a algún contenido de este mensaje, por favor, edite la linea
> del asunto (subject) para que el texto sea mas especifico que:
> "Re: Contents of R-help-es digest...". Además, por favor, incluya en la
> respuesta sólo aquellas partes del mensaje a las que está respondiendo.
>
>
> Asuntos del día:
>
>    1. funcion aggregate por mes (Javier Valdes Cantallopts (DGA))
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Tue, 5 Sep 2017 21:09:38 +0000
> From: "Javier Valdes Cantallopts (DGA)" <javier.valdes en mop.gov.cl>
> To: "Carlos Ortega (cof en qualityexcellence.es)"
>         <cof en qualityexcellence.es>
> Cc: "r-help-es en r-project.org" <r-help-es en r-project.org>
> Subject: [R-es] funcion aggregate por mes
> Message-ID:
>         <023AE46828930542B1F3839F47A15400220A563E en EXMBX02.moptt.gov.cl>
> Content-Type: text/plain; charset="iso-8859-1"
>
> Estimados:
> Quería saber si alguno de uds ha podido realizar operación simples(sumar,
> media por ejemplo) usando la función AGGREGATE.
> La idea es obtener los LA MEDIA de las T° por cada mes, desde una planilla
> de CON DATOS CADA 10 MINUTOS, La planilla base es algo así;
>
>
> Fecha(día mes año)     temperatura
> 1-1-2013                  1
> 2-1-2013                  3
> 3-1-2013                 4,5
> 4-1-2013                  2
> 5-1-2013                  1
> 6-1-2013                  3
> 1-2-2013                  2
> 2-2-2014                  1
>
> Esta operación la realizo con ZOO Y xts, pero me interesaría saber si se
> puede hacer con AGGREGATE también.
> Saludos.
>
>
>
> [Descripción: FIRMA3]
>
>
> ________________________________
>
> CONFIDENCIALIDAD: La información contenida en este mensaje y/o en los
> archivos adjuntos es de carácter confidencial o privilegiada y está
> destinada al uso exclusivo del emisor y/o de la persona o entidad a quien
> va dirigida. Si usted no es el destinatario, cualquier almacenamiento,
> divulgación, distribución o copia de esta información está estrictamente
> prohibido y sancionado por la ley. Si recibió este mensaje por error, por
> favor infórmenos inmediatamente respondiendo este mismo mensaje y borre
> todos los archivos adjuntos. Gracias.
>
> CONFIDENTIAL NOTE: The information transmitted in this message and/or
> attachments is confidential and/or privileged and is intented only for use
> of the person or entity to whom it is addressed. If you are not the
> intended recipient, any retention, dissemination, distribution or copy of
> this information is strictly prohibited and sanctioned by law. If you
> received this message in error, please reply us this same message and
> delete this message and all attachments. Thank you.
> ------------ próxima parte ------------
> Se ha borrado un adjunto en formato HTML...
> URL: <https://stat.ethz.ch/pipermail/r-help-es/
> attachments/20170905/07dc256a/attachment.html>
> ------------ próxima parte ------------
> A non-text attachment was scrubbed...
> Name: image001.png
> Type: image/png
> Size: 33786 bytes
> Desc: image001.png
> URL: <https://stat.ethz.ch/pipermail/r-help-es/
> attachments/20170905/07dc256a/attachment.png>
>
> ------------------------------
>
> Subject: Pié de página del digest
>
> _______________________________________________
> R-help-es mailing list
> R-help-es en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
> ------------------------------
>
> Fin de Resumen de R-help-es, Vol 103, Envío 9
> *********************************************
>
> _______________________________________________
> R-help-es mailing list
> R-help-es en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>



-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es

	[[alternative HTML version deleted]]



Más información sobre la lista de distribución R-help-es