logs1001

library(tidyverse)
library(janitor)
library(lubridate)
library(stringi)
library(Hmisc)
library(ggeasy)
library(plotly)

theme_set(theme_classic())

COUNTS

# views

log1A %>%
  count(event_name)

## # A tibble: 2 x 2
##   event_name               n
##   <chr>                <int>
## 1 Chapter viewed        1799
## 2 Course module viewed   177

# unique students

n_distinct(log1A$user_full_name)

## [1] 246

PLOTS

views by date

views by week

views by chapter

views by week and chapter

most popular chapters

## # A tibble: 5 x 2
## # Groups:   chapter_no [5]
##   chapter_no views
##   <fct>      <int>
## 1 2_time       611
## 2 3_study      435
## 3 1_intro      271
## 4 6_stress     135
## 5 4_ps         108