Modérateur : Groupe des modérateurs
Code : Tout sélectionner
Time <- c("09/02/2013 23:51", "10/02/2013 13:37", "11/02/2013 04:14")
Time_ct <- as.POSIXct(Time, format = "%d/%m/%Y %H:%M", tz = "GMT")
Date_ <- as.Date(Time_ct)
h_depuis_minuit <- as.numeric(Time_ct) %% 86400 / 3600 # (Time_ct est le nombre de secondes depuis 01/01/1970)
Phase <- ifelse(h_depuis_minuit >= 8 & h_depuis_minuit < 22, "jour", "nuit")
Code : Tout sélectionner
tab2 <- tab %>% mutate(Time = as.POSIXct(Time, format = "%d/%m/%Y %H:%M"), Jour = format(Time, "%d/%m/%Y"), Periode = c("nuit", "jour")[(format(Time, "%H") %in% sprintf("%02d",8:21))+1])
tab2 %>% select(-Time) %>% group_by(Jour, Periode) %>% filter(Fréquence > 1e-7) %>% summarise_each(funs(min, median, max))
Source: local data frame [3 x 5]
Groups: Jour [?]
Jour Periode min median max
<chr> <chr> <dbl> <dbl> <dbl>
1 08/02/2013 jour 13.8 16 30.8
2 09/02/2013 jour 14.6 19 20.6
3 09/02/2013 nuit 15.0 15 15.0
Code : Tout sélectionner
tab2 <- tab %>% mutate(Time = as.POSIXct(Time, format = "%d/%m/%Y %H:%M"), Jour = format(Time, "%d/%m/%Y"), Periode = c("nuit", "jour")[(format(Time, "%H") %in% sprintf("%02d",8:21))+1])
Code : Tout sélectionner
tab2 %>% select(-Time) %>% group_by(Jour, Periode) %>% filter(Fréquence > 1e-7) %>% summarise_if(is.numeric, funs(min, median, max))
Code : Tout sélectionner
tab2 %>% select(-Fréquence, -Time) %>% group_by(Jour, Periode) %>% slice(1) %>%
left_join(tab2 %>% filter(Fréquence > 1e-7) %>% group_by(Jour, Periode) %>% summarise_if(is.numeric, funs(min,median,max)))
Joining, by = c("Jour", "Periode")
Source: local data frame [4 x 5]
Groups: Jour, Periode [?]
Jour Periode min median max
<chr> <chr> <dbl> <dbl> <dbl>
1 08/02/2013 jour 13.8 16 30.8
2 08/02/2013 nuit NA NA NA
3 09/02/2013 jour 14.6 19 20.6
4 09/02/2013 nuit 15.0 15 15.0
Code : Tout sélectionner
tab2 <- tab %>% mutate(Time = as.POSIXct(Time, format = "%d/%m/%Y %H:%M"), Jour = ifelse(format(Time, "%H") %in% sprintf("%02d", 0:7), format(Time - 24*3600, "%d/%m%/%Y"), format(Time, "%d/%m/%Y")), Periode = c("nuit", "jour")[(format(Time, "%H") %in% sprintf("%02d",8:21))+1])
Code : Tout sélectionner
tab2 <- tab %>% mutate(Time = as.POSIXct(Time, format = "%d/%m/%Y %H:%M"), Jour = ifelse(format(Time, "%H") %in% sprintf("%02d", 0:7), format(Time - 24*3600, "%d/%m%/%Y"), format(Time, "%d/%m/%Y")), Periode = c("nuit", "jour")[(format(Time, "%H") %in% sprintf("%02d",8:21))+1])
Code : Tout sélectionner
tab2 <- tab %>% mutate(Time = as.POSIXct(Time, format = "%d/%m/%Y %H:%M"),
Jour = ifelse(format(Time, "%H") %in% sprintf("%02d", 22:23),
format(Time + 24*3600, "%d/%m%/%Y"), format(Time, "%d/%m/%Y")),
Periode = c("nuit", "jour")[(format(Time, "%H") %in% sprintf("%02d",8:21))+1])
tab2 %>% select(-Fréquence, -Time) %>% group_by(Jour, Periode) %>% slice(1) %>%
left_join(tab2 %>% filter(Fréquence > 1e-7) %>% group_by(Jour, Periode) %>% summarise_if(is.numeric, funs(min,median,max)))
Joining, by = c("Jour", "Periode")
Source: local data frame [3 x 6]
Groups: Jour, Periode [?]
YY Jour Periode min median max
<fctr> <chr> <chr> <dbl> <dbl> <dbl>
1 jour 07/02/2013 jour 11.0 12.5 17.8
2 nuit 07/02/2013 nuit 14.8 15.2 24.6
3 nuit 08/02/2013 nuit 14.6 15.0 24.0
Code : Tout sélectionner
tab2 <- tab %>% mutate(Time = as.POSIXct(Time, format = "%d/%m/%Y %H:%M"),
Jour = ifelse(format(Time, "%H") %in% sprintf("%02d", 0:7),
format(Time - 24*3600, "%d/%m%/%Y"), format(Time, "%d/%m/%Y")),
Periode = c("nuit", "jour")[(format(Time, "%H") %in% sprintf("%02d",8:21))+1])
tab2 %>% select(-Fréquence, -Time) %>% group_by(Jour, Periode) %>% slice(1) %>%
left_join(tab2 %>% filter(Fréquence > 1e-7) %>% group_by(Jour, Periode) %>% summarise_if(is.numeric, funs(min,median,max)))
Joining, by = c("Jour", "Periode")
Source: local data frame [3 x 6]
Groups: Jour, Periode [?]
YY Jour Periode min median max
<fctr> <chr> <chr> <dbl> <dbl> <dbl>
1 nuit 06/02/2013 nuit 14.8 15.2 24.6
2 jour 07/02/2013 jour 11.0 12.5 17.8
3 nuit 07/02/2013 nuit 14.6 15.0 24.0
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Google [Bot] et 1 invité