Re: [R-es] fechas

Sat, 16 Jan 2016 04:08:17 -0800 

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@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: pala...@um.es
       http://webs.um.es/palazon


---
title: "Untitled"
author: "palazon"
date: "16 de enero de 2016"
output: html_document
---

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.

# Solución (creo)

1. Datos y librerías

    ```{r}
library(lubridate)
datIn <- read.table( "clima.csv",  header = T, as.is = TRUE, sep = "," )
head( datIn )
names( datIn )
```

2. Cálculo de la semana para una fecha dada

    Tendremos en cuenta que es una fecha  escrita
    como _mes, día, año_; usamos la función `mdy()`
    para obtener una "fecha" y de ella extraemos la
    semana con la funcion `week()`. Calculamos
    y comprobamos con un gráfico.

    ```{r}
datIn$semana <- week( mdy( datIn$CST ) ) 
datIn$semana
plot( datIn$semana, datIn$PrecipitationIn, pch = 20, cex = 0.3 )
```



_______________________________________________
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Responder a