Graphique sur une durée

Version imprimable

13/06/2019, 19h25
preliator

Graphique sur une durée

Bonjour à tous,

Je dispose d'un fichier de données qui répertorie le moment où une caméra de vision nocturne enregistre un renard près de chez moi. Le premier champ, c'est la date, le deuxième et le troisième correspond à l'heure de passage (des fois, il passe plusieurs fois, donc j'ai été obligé de mettre plusieurs champs d'heure).

Sur R Studio, j'aimerais pouvoir faire graphique afin de voir quelles sont les heures de la nuit où il est le plus actif. Malheureusement, je ne sais pas trop comment m'y prendre ...

J'utilise Lubridate depuis quelques temps pour gérer les dates et heures.

Voici le fichier de données : https://drive.google.com/open?id=1cT..._phWb6pwbvzGc-

Merci à vous.

bonsoir,
si je comprends bien tu veux savoir le nombre de passage à une heure donnée quelque soit la date
essaye le script ci dessous vois si cela correspond à ton attente
Code:

1 2 3 4 5 6 7 8 9 library(tidyverse) library(lubridate) ##renard est le nom de ton dataframe renard_long <- renard %>% gather(num_heure,heure,2:3) %>% mutate(heure= lubridate::hour(heure)) ggplot(renard_long,aes(x=heure)) +geom_bar()
cdlt

13/06/2019, 21h29
preliator

Merci beaucoup pour ta réponse :)

Malheureusement il semble que j'ai un problème avec la librairy Tidyverse, "No such file or directory" ^^' Existe t-il une autre manière, en utilisant juste le lubridate ?

Merci encore.
14/06/2019, 05h55
xavier-Pierre

bonjour,
parfois le problème arrive, tu peux le contourner en installant séparément les packages du tidyverse à savoir:
ggplot2 (visualisation)
dplyr (manipulation des données)
tidyr (remise en forme des données)
purrr (programmation)
readr (importation de données)
tibble (tableaux de données)
forcats (variables qualitatives)
stringr (chaînes de caractères)

je te conseille de tous les installer même si dans ton cas précis tu n'aurais besoin que de tidyr, ggplot2 et dplyr
14/06/2019, 07h14
preliator

Un grand merci a toi

1 pièce(s) jointe(s)

Bonjour preliator.

Comme d’habitude xavier-Pierre est de bon conseil.

proposition:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
library(readr) 
library(dplyr) 
library(tidyr) 
library(ggplot2) 
 
d <- read_delim(file.choose(), ";") 
 
dd <- d %>% gather(num_heure,heure,2:3) 
 
ggplot(dd) + 
    aes(x = heure, y = "OBS") + 
    geom_jitter(height = 0.03 )

Pièce jointe 483385

14/06/2019, 21h18
preliator

Merci pour vos réponses. Cela m'a beaucoup aidé.

Après réflexion, je me suis dis que pour représenter graphiquement ces échelles de temps (et donc pour pouvoir voir graphiquement dans quel laps de temps le renard passe le plus devant chez moi), créer des catégories me semble être le mieux. Je pensais créer des catégories toute les 30 minutes ([00:00, 00:30[, [01:00, 01:30[, [01:30, 02:00[, etc), les adapter à mon champ "heure", et ensuite faire un graphique barre, similaire à un barplot.

Est-ce possible de faire ainsi sur R ?

bonjour , une solution possible

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
## les libraries  ggplot2, dplyr, tidyr, lubridate, stringr
 
classer_heure <- function(heure){
  heure_exacte <- str_pad(hour(heure),width = 2, side = 'left',pad = '0') ## on récupère l'heure et on ajoute à gauche un zéro si besoin
  minu <- minute(heure)
  classe <- ifelse(minu<30,str_c(heure_exacte,"_","0-29"),str_c(heure_exacte,"_","30-59")) 
}
 
 
renard <- read_csv2("../Downloads/Renard.csv")
renard_long <- renard %>% gather(num_heure,heure,2:3) %>% 
  mutate(classe_heure = classer_heure(heure))

cldt

Merci Xavier Pierre pour ta réponse.

J'ai appliqué le code suivant en reprenant le fichier de données :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#Import de toute les library concernées
 
classer_heure <- function(heure){
    heure_exacte <- str_pad(hour(heure),width = 2, side = 'left',pad = '0') ## on récupère l'heure et on ajoute à gauche un zéro si besoin
    minu <- minute(heure)
    classe <- ifelse(minu<30,str_c(heure_exacte,"_","0-29"),str_c(heure_exacte,"_","30-59")) 
}
 
 
data = read.csv2(Renard.csv)
 
renard_long <- data %>% gather(num_heure,heure,2:3) %>% mutate(classe_heure = classer_heure(heure))

Malheureusement, le mutate me fait buguer avec le message suivant :

Code:

1
2
3
4
5
6
7
8
9
 
Error in as.POSIXlt.character(x, tz = tz(x)) : 
  character string is not in a standard unambiguous format
In addition: Warning message:
 Show Traceback
 
 Rerun with Debug
 Error in as.POSIXlt.character(x, tz = tz(x)) : 
  character string is not in a standard unambiguous format

Probablement une conversion à faire avant ?

15/06/2019, 16h44
xavier-Pierre

tu peux partager ton fichier?
15/06/2019, 16h52
preliator

https://drive.google.com/file/d/1cTI...ew?usp=sharing

Merci
15/06/2019, 18h20
xavier-Pierre

j'ai compris n'utilise pas read.csv2 mais plutôt read_csv2 ou mieux dans ton exemple

Code:

read_delim("Renard.csv",delim =";" )

. ces 2 fonction font parties du package readr
15/06/2019, 18h30
preliator

D'accord, je ne connaissais pas ce package.
Un grand merci pour ton aide :)