library(ggplot2) # Data visualization
library(readr) # CSV file I/O, e.g. the read_csv function
library(dplyr)

#Import train dataset
train <- read_csv("../input/train.csv")

#Add minute of the day, and day
train <- train %>% 
    mutate(minute = time %% (24*60), day = (time-minute)/(24*60))

by_day <- train %>% group_by(day) %>% summarize(x.mean = mean(x), y.mean= mean(y))

ggplot(by_day, aes(x= x.mean, y=y.mean, color = day)) + geom_point() + geom_line()
ggplot(by_day, aes(x= day, y=x.mean)) + geom_point() + geom_line()
ggplot(by_day, aes(x= day, y=y.mean)) + geom_point() + geom_line()