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
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20160116/03496ab3/attachment-0001.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: clima.csv
Type: application/octet-stream
Size: 31611 bytes
Desc: no disponible
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20160116/03496ab3/attachment-0001.obj>
Disculpen, A veces me falla el otro correo y lo reenvío por este
De: R-help-es [mailto:r-help-es-bounces en r-project.org] En nombre de
jbetancourt
Enviado el: sábado, 16 de enero de 2016 05:49
Para: 'Lista R' <r-help-es en r-project.org>
CC: luisfo89 <luisfo89 en yahoo.com>
Asunto: [R-es] fechas
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
--
Este mensaje le ha llegado mediante el servicio de correo electronico que ofrece
Infomed para respaldar el cumplimiento de las misiones del Sistema Nacional de
Salud. La persona que envia este correo asume el compromiso de usar el servicio
a tales fines y cumplir con las regulaciones establecidas
Infomed: http://www.sld.cu/
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20160116/1dbc045e/attachment-0001.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: clima.csv
Type: application/octet-stream
Size: 31245 bytes
Desc: no disponible
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20160116/1dbc045e/attachment-0001.obj>
------------ próxima parte ------------
An embedded and charset-unspecified text was scrubbed...
Name: Datos adjuntos sin título 00003.txt
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20160116/1dbc045e/attachment-0001.txt>
Hola: Creo que esta es la solución que buscas. datIn$semana <- week( mdy( datIn$CST ) ) datIn$semana plot( datIn$semana, datIn$PrecipitationIn, pch = 20, cex = 0.3 ) Te adjunto un fichero .Rmd para que lo verifiques in situ. Saludos El 16/01/16 a las 11:49, jbetancourt 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 > > > _______________________________________________ > R-help-es mailing list > R-help-es en r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es-- ___________________________________________________________ José Antonio Palazón Ferrando Profesor Titular. Departamento de Ecología e Hidrología. Facultad de Biología. Universidad de Murcia. Campus Universitario de Espinardo 30100 MURCIA-SPAIN Telf: +34 868 88 49 80 Fax : +34 868 88 39 63 Email: palazon en um.es http://webs.um.es/palazon ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20160116/28c01882/attachment.html> ------------ próxima parte ------------ A non-text attachment was scrubbed... Name: fecha2semana.Rmd Type: text/x-r-markdown Size: 949 bytes Desc: no disponible URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20160116/28c01882/attachment.bin>
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(Semanaas.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]]