[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