#clean the environment
rm(list = ls())
#Libraries
library(readr)
library(stringr)
library(plyr)
library(dplyr)
library(tidyverse)
library(lme4)
library(car)
library(emmeans)
library(ggthemes)
library(data.table)
library(corrplot)
library(Hmisc)
library(lavaan)
library(lavaanPlot)
library(semPlot)
library(effectsize)
library(chron)
library(knitr)#Formatting activity rows data.
activity <- read_delim("../src/home_literacy/2024-02-21_activity_student_record.csv",
delim = ";", escape_double = FALSE, trim_ws = TRUE)
activity <- activity %>% mutate(uid = str_sub(user.__ref__,str_locate(user.__ref__, "/")[1]+1))
activity <- activity %>%
mutate(day = as.Date( str_sub(date,1, str_locate(date, " ")[1]-1), format="%Y-%m-%d"),
hour = times(str_sub(date, str_locate(date, " ")[1]+1)))
activity <- activity %>% mutate(length = (duration/1000)/60) %>% mutate(length = format(length, scientific = FALSE))
activity <- activity %>% select(uid, day, hour, length, activity_type, concentration, difficulty, interaction, perceived_time, pleasure)
#Formatting users rows data.
users <- read_delim("../src/home_literacy/users_list.csv",
delim = ";", escape_double = FALSE, trim_ws = TRUE)
users <- users %>% select(uid,user_category, email, grade, school, teacher_name)
#Jointure
df <- activity %>% left_join(users, by = "uid")
#Delete teacher records AND test records
df <- df %>% filter(school!="TEST_SCHOOL")
df <- df %>% filter(user_category!="T")describe <- df %>%
group_by(school,grade,uid,email) %>%
filter(school=="NDD") %>%
summarise(nb_act = n(),
first_activity = min(day),
last_activity = max(day),
period_activity = last_activity - first_activity,
mean_duration = mean(as.numeric(length)),
shortest = min(as.numeric(length)),
longest = max(as.numeric(length)))
kable(describe[order(describe$nb_act, decreasing=TRUE),])| school | grade | uid | nb_act | first_activity | last_activity | period_activity | mean_duration | shortest | longest | |
|---|---|---|---|---|---|---|---|---|---|---|
| NDD | CM1 | 8HfW3nHdBTSldAJF5fg3B797P782 | hugo.marrauddesgrottes@ndd.fr | 40 | 2024-01-03 | 2024-02-19 | 47 days | 40.164093 | 15.8550000 | 71.750817 |
| NDD | CP | C6Q0SQrleUe92Saf1s2KK2CvEeZ2 | thalia.libar@ndd.fr | 29 | 2023-11-15 | 2024-02-01 | 78 days | 69.472749 | 5.9474000 | 1446.305517 |
| NDD | CP | zZuHqAnYU3VIRiJaM6FWJ7vaK4n2 | elena.polydore@ndd.fr | 29 | 2023-12-24 | 2024-02-16 | 54 days | 9.885737 | 2.1374167 | 39.455233 |
| NDD | CM1 | 5HVZpPUmGjS3CA9o9ACSMtQRLlm2 | emeline.mauricrace@ndd.fr | 26 | 2023-12-25 | 2024-02-20 | 57 days | 11.328716 | 2.6684833 | 44.601133 |
| NDD | CP | NNvb2mgNFHdZlngSCTJp1Q1KCfB2 | lyhnael.william@ndd.fr | 24 | 2023-12-13 | 2024-02-11 | 60 days | 21.831095 | 5.1437833 | 49.652167 |
| NDD | CP | dQcZcdBz7lPRYo3RiqwvBw2J9Iu1 | keziah.joseph@ndd.fr | 23 | 2023-11-15 | 2024-01-22 | 68 days | 7.714451 | 0.6165833 | 27.624100 |
| NDD | CE1 | x5gBMzUCBRVrxxNbcWoZBVxCkjZ2 | yvan.lorsolo@ndd.fr | 16 | 2023-11-12 | 2024-01-14 | 63 days | 55.403307 | 9.3134833 | 134.812567 |
| NDD | CM1 | j37NtPwaMkfLJDbyhH0vSKCoAiq2 | stevahns.andre@ndd.fr | 16 | 2023-11-28 | 2024-01-16 | 49 days | 15.852830 | 3.7416667 | 120.700450 |
| NDD | CE2 | 64C4JIfys3SvfYY1LINF3Y1jqHe2 | marine.ramphortventure@ndd.fr | 14 | 2023-11-24 | 2024-01-01 | 38 days | 11.654964 | 2.7558333 | 25.443800 |
| NDD | CE2 | 0Fd77PUOxzd2y3fl6hiZufejsV93 | indra.birbamarry@ndd.fr | 12 | 2023-12-15 | 2024-02-20 | 67 days | 36.821119 | 4.8001500 | 88.737500 |
| NDD | CE2 | bf7S70RAmCUURocI4L4m0Sm9pJ32 | diane.castaing@ndd.fr | 12 | 2023-12-02 | 2024-01-03 | 32 days | 16.569156 | 4.9343500 | 38.309533 |
| NDD | CP | wwDuUwKbildozbnA5n5fC7V0p0H2 | sailan.sadikalay@ndd.fr | 11 | 2024-01-03 | 2024-01-25 | 22 days | 11.601764 | 5.6251500 | 15.600650 |
| NDD | CE1 | dssCPSA4tAaFpbMUmytzzJnqukG3 | thayelli.juliesuzanne@ndd.fr | 9 | 2023-11-12 | 2023-11-27 | 15 days | 48.655326 | 13.9418667 | 77.961767 |
| NDD | CP | kBHlFOenyZeVsHtHvbA58rrtnwc2 | hailey.vadeleux@ndd.fr | 8 | 2023-12-28 | 2024-01-24 | 27 days | 4.012269 | 0.2836500 | 10.398967 |
| NDD | CP | sKl6CGYvPyc7TY4z3PA2UXyc0DE2 | yoni.moutoussamy@ndd.fr | 8 | 2023-11-18 | 2023-12-11 | 23 days | 8.738710 | 1.0938833 | 18.114350 |
| NDD | CM2 | p7fTNPA4MrMplzX9BbWVy90z0nw2 | lylia.luzieux@ndd.fr | 7 | 2023-12-18 | 2024-02-16 | 60 days | 19.614398 | 7.1778000 | 51.079283 |
| NDD | CM1 | N5KAn0UJaLOV502R6bAeyHDdnRH2 | gabriel.germany@ndd.fr | 6 | 2023-12-03 | 2023-12-11 | 8 days | 29.692733 | 8.5788667 | 64.906167 |
| NDD | CM2 | qtHNvWpxQjOpQVePyxy7p4sbkdo2 | guilhem.castaing@ndd.fr | 5 | 2023-12-03 | 2023-12-21 | 18 days | 44.995027 | 35.6085333 | 52.576150 |
| NDD | CE1 | K3qRIZk7VFXrMQEhC9g9iLHrQes2 | saina.luber@ndd.fr | 4 | 2023-11-12 | 2023-12-07 | 25 days | 6.750567 | 4.9421833 | 9.124517 |
| NDD | CE2 | FyViaX9J6seW0bb8A8USGsWEcqW2 | neyssia.nellerboulanger@ndd.fr | 4 | 2023-12-15 | 2023-12-27 | 12 days | 5.035867 | 2.1930500 | 10.133617 |
| NDD | CM1 | 1sMZyrl7QVR10so2hQRE7E75XMD3 | solhann.souraya@ndd.fr | 4 | 2024-01-07 | 2024-01-31 | 24 days | 4.370996 | 0.1230333 | 13.163967 |
| NDD | CP | kY9LzoCXPwPwjl22ypzpozMWiA02 | jociah.eridan@ndd.fr | 4 | 2023-12-15 | 2024-02-18 | 65 days | 7.179000 | 1.0541333 | 11.527867 |
| NDD | CE1 | iVckzmD1rzNXMzQzEvzV91tCXWF2 | mayrick.vigecassilde@ndd.fr | 3 | 2023-12-14 | 2024-01-09 | 26 days | 9.451306 | 6.9427167 | 12.832883 |
| NDD | CM2 | 8on40nTmo2gFBxh1Z5sR7nfEuVq2 | jade.dieudonne@ndd.fr | 3 | 2023-11-28 | 2024-02-05 | 69 days | 5.719867 | 1.4385000 | 11.033583 |
| NDD | CP | Bf3uOkYg0jSztwprxAwzLZjKHLB2 | laurane.hippolyte@ndd.fr | 3 | 2023-12-13 | 2024-01-14 | 32 days | 6.933817 | 3.5307833 | 12.748733 |
| NDD | CE1 | YkuMsNO5mmVZ5dFkjHNwXtWHrbf2 | axel.hubervic@ndd.fr | 2 | 2023-11-12 | 2023-11-18 | 6 days | 2.157208 | 1.0649667 | 3.249450 |
| NDD | CP | A8BE7vxAXUOG1xuCMpb9KEkJwLI3 | lise.bingue@ndd.fr | 2 | 2023-11-22 | 2023-11-23 | 1 days | 12.322933 | 8.3208000 | 16.325067 |
| NDD | CM1 | ybFagbpHHeUn9bYuftz6SlULcDK2 | ethann.bonvel@ndd.fr | 1 | 2023-12-19 | 2023-12-19 | 0 days | 7.839317 | 7.8393167 | 7.839317 |