Discussion :

[preliator]

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.

[xavier-Pierre]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[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

[preliator]

Un grand merci a toi

[Puppet_Master]

Bonjour preliator.

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

proposition:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 )