[R-es] Resumen de R-help-es, Vol 103, Envío 9
Eduardo Villagómez
eduardo_vd en hotmail.com
Mie Sep 6 19:51:02 CEST 2017
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
*********************************************
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: Precip_Instant_XXmin.R
Type: application/octet-stream
Size: 5438 bytes
Desc: Precip_Instant_XXmin.R
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20170906/a2a06904/attachment.obj>
Más información sobre la lista de distribución R-help-es