[R-es] fechas

Carlos Ortega cof en qualityexcellence.es
Sab Ene 16 17:43:35 CET 2016


Hola,

Creo que no hemos terminado de entenderte.
Voy a intentarlo nuevamente.


   - De cada día de la semana tienes un conjunto de medidas: Max_Temp,
   Min_Temp, ....
   - ¿Lo que quieres es agrupar estas medidas por semana?. Si agrupas,
   entonces como de cada tienes siete medidas de cada variables. Al agrupar
   ¿quieres la media de cada una de esas medidas? ¿la media de las máximas, la
   media de las mínimas, etc...?.

Si eso es lo que quieres esta es una forma:

#---------------------
datIn_mean <- aggregate(datIn[,c(2:21,23)], by=list(Semana=
as.factor(datIn$semana)), FUN=mean, data=datIn)

#---------------------

Que da este resultado (una parte)...:

> head(datIn_mean)
  Semana Max.TemperatureF Mean.TemperatureF Min.TemperatureF Max.Dew.PointF
1      1         82.28571          75.14286         68.00000       62.14286
2      2         82.00000          74.42857         67.00000       61.28571
3      3         83.57143          74.85714         66.42857       61.71429


Saludos,
Carlos Ortega
www.qualityexcellence.es



El 16 de enero de 2016, 11:49, jbetancourt <jbetancourt en iscmc.cmw.sld.cu>
escribió:

>
> Estimados
>
> Muchas gracias por su ayuda. No he logrado convertir los datos de climas diarios a datos por semana, es decir
>
>  que junto a la identificación de las semanas, quisiera que los datos climaticos de cada semana se reflejaran
> en cada semana .Adjunto datos
> Ejemplo
> semana48  Max.TemperatureF Mean.TemperatureF Min.TemperatureF etc
> Perdonen mis limitados conocimientos
>
> LOS SCRIPT ENVIADOS FUNCIONARON PARA IDENTIFICAR LA SEMANA
> #####################################
> rm(list = ls())
> #setwd("D:/Public/Documents/R/r_epidemiología/")
> datIn <- read.table("clima.csv", header=T, as.is=TRUE, sep=",")
> datIn
> library(lubridate)
> #datIn$fecha <- mdy(datIn$CST)
> datIn$semana <- week(datIn$fecha)
> datIn$semana
> ##################################################
> library("lubridate")
> data <- read.csv("clima.csv", stringsAsFactors=F)
> # mdy() para formato m/d/y. existe dmy() para formato d/m/y
> woy <- week(mdy(data$CST)) #week of year
> woy
> SEMANAS
>
> 1  1  1  1  1  1  1  2  2  2  2  2  2  2  3  3  3  3  3  3  3  4  4  4  4  4  4
>
>  [28]  4  5  5  5  5  5  5  5  6  6  6  6  6  6  6  7  7  7  7  7  7  7  8  8  8  8  8
>
>  [55]  8  8  9  9  9  9  9  9  9 10 10 10 10 10 10 10 11 11 11 11 11 11 11 12 12 12 12
>
>  [82] 12 12 12 13 13 13 13 13 13 13 14 14 14 14 14 14 14 15 15 15 15 15 15 15 16 16 16
>
> [109] 16 16 16 16 17 17 17 17 17 17 17 18 18 18 18 18 18 18 19 19 19 19 19 19 19 20 20
>
> [136] 20 20 20 20 20 21 21 21 21 21 21 21 22 22 22 22 22 22 22 23 23 23 23 23 23 23 24
>
> [163] 24 24 24 24 24 24 25 25 25 25 25 25 25 26 26 26 26 26 26 26 27 27 27 27 27 27 27
>
> [190] 28 28 28 28 28 28 28 29 29 29 29 29 29 29 30 30 30 30 30 30 30 31 31 31 31 31 31
>
> [217] 31 32 32 32 32 32 32 32 33 33 33 33 33 33 33 34 34 34 34 34 34 34 35 35 35 35 35
>
> [244] 35 35 36 36 36 36 36 36 36 37 37 37 37 37 37 37 38 38 38 38 38 38 38 39 39 39 39
>
> [271] 39 39 39 40 40 40 40 40 40 40 41 41 41 41 41 41 41 42 42 42 42 42 42 42 43 43 43
>
> [298] 43 43 43 43 44 44 44 44 44 44 44 45 45 45 45 45 45 45 46 46 46 46 46 46 46 47 47
>
> [325] 47 47 47 47 47 48 48 48 48 48 48 48 49 49 49 49 49 49 49 50 50 50 50 50 50 50 51
> [352] 51 51 51 51 51 51 52 52 52 52 52 52 52 53
>



-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es

	[[alternative HTML version deleted]]



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