3b. MOOC Network

.title[
# 3b. MOOC Network
]
.subtitle[
## Analytics Sandbox
]
.author[
### K. Bret Staudt Willet | Florida State University
]
.date[
### February 1, 2023
]

---

# <svg aria-hidden="true" role="img" viewBox="0 0 576 512" style="height:1em;width:1.12em;vertical-align:-0.125em;margin-left:auto;margin-right:auto;font-size:inherit;fill:#fff;overflow:visible;position:relative;"><path d="M0 80C0 53.5 21.5 32 48 32h96c26.5 0 48 21.5 48 48V96H384V80c0-26.5 21.5-48 48-48h96c26.5 0 48 21.5 48 48v96c0 26.5-21.5 48-48 48H432c-26.5 0-48-21.5-48-48V160H192v16c0 1.7-.1 3.4-.3 5L272 288h96c26.5 0 48 21.5 48 48v96c0 26.5-21.5 48-48 48H272c-26.5 0-48-21.5-48-48V336c0-1.7 .1-3.4 .3-5L144 224H48c-26.5 0-48-21.5-48-48V80z"/></svg> <br><br> **Part 3b:** <br> MOOC Network

**Data source:** [Massively Open Online Course for Educators (MOOC-Ed) network dataset](https://dataverse.harvard.edu/dataset.xhtml;jsessionid=9ad052693563b29056a88d490182?persistentId=doi%3A10.7910%2FDVN%2FZZH3UB&version=&q=&fileTypeGroupFacet=&fileAccess=&fileSortField=name&fileSortOrder=desc)

---

```r
edgelist2 <- 
  read_csv("data/DLT1 Edgelist.csv", 
           show_col_types = FALSE) %>%
  group_by(Sender, Receiver) %>% 
  mutate(Weight = n()) %>%
  ungroup() %>%
  relocate(Sender, Receiver, Weight)
glimpse(edgelist2)
```

```
## Rows: 2,529
## Columns: 11
## $ Sender                  <dbl> 360, 356, 356, 344, 392, 219, 318, 4, 355, 355…
## $ Receiver                <dbl> 444, 444, 444, 444, 444, 444, 444, 444, 356, 4…
## $ Weight                  <int> 1, 2, 2, 1, 1, 3, 2, 4, 1, 2, 4, 1, 1, 2, 1, 1…
## $ Timestamp               <chr> "4/4/13 16:32", "4/4/13 18:45", "4/4/13 18:47"…
## $ `Discussion Title`      <chr> "Most important change for your school or dist…
## $ `Discussion Category`   <chr> "Group N", "Group D-L", "Group D-L", "Group O-…
## $ `Parent Category`       <chr> "Units 1-3 Discussion Groups", "Units 1-3 Disc…
## $ `Category Text`         <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ `Discussion Identifier` <chr> "Most important change for your school or dist…
## $ `Comment ID`            <dbl> 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15…
## $ `Discussion ID`         <chr> "2", "1", "3", "4", "5", "6", "6", "2", "3", "…
```

---

```r
head(edgelist2, 10)
```

```
## # A tibble: 10 × 11
##    Sender Recei…¹ Weight Times…² Discu…³ Discu…⁴ Paren…⁵ Categ…⁶ Discu…⁷ Comme…⁸
##     <dbl>   <dbl>  <int> <chr>   <chr>   <chr>   <chr>   <chr>   <chr>     <dbl>
##  1    360     444      1 4/4/13… Most i… Group N Units … <NA>    Most i…       2
##  2    356     444      2 4/4/13… Most i… Group … Units … <NA>    Most i…       3
##  3    356     444      2 4/4/13… DLT Re… Group … Units … <NA>    DLT Re…       4
##  4    344     444      1 4/4/13… Most i… Group … Units … <NA>    Most i…       5
##  5    392     444      1 4/4/13… Most i… Group … Units … <NA>    Most i…       6
##  6    219     444      3 4/4/13… Most i… Group M Units … <NA>    Most i…       7
##  7    318     444      2 4/4/13… Most i… Group M Units … <NA>    Most i…       8
##  8      4     444      4 4/4/13… Most i… Group N Units … <NA>    Most i…       9
##  9    355     356      1 4/4/13… DLT Re… Group … Units … <NA>    DLT Re…      10
## 10    355     444      2 4/4/13… Most i… Group … Units … <NA>    Most i…      11
## # … with 1 more variable: `Discussion ID` <chr>, and abbreviated variable names
## #   ¹Receiver, ²Timestamp, ³`Discussion Title`, ⁴`Discussion Category`,
## #   ⁵`Parent Category`, ⁶`Category Text`, ⁷`Discussion Identifier`,
## #   ⁸`Comment ID`
```

---

# <svg aria-hidden="true" role="img" viewBox="0 0 640 512" style="height:1em;width:1.25em;vertical-align:-0.125em;margin-left:auto;margin-right:auto;font-size:inherit;fill:#fff;overflow:visible;position:relative;"><path d="M181.5 197.1l12.9 6.4c5.9 3 12.4 4.5 19.1 4.5c23.5 0 42.6-19.1 42.6-42.6V144c0-35.3-28.7-64-64-64H128c-35.3 0-64 28.7-64 64v21.4c0 23.5 19.1 42.6 42.6 42.6c6.6 0 13.1-1.5 19.1-4.5l12.9-6.4 8.4-4.2L135.1 185c-4.5-3-7.1-8-7.1-13.3V168c0-13.3 10.7-24 24-24h16c13.3 0 24 10.7 24 24v3.7c0 5.3-2.7 10.3-7.1 13.3l-11.8 7.9 8.4 4.2zm-8.6 49.4L160 240l-12.9 6.4c-12.6 6.3-26.5 9.6-40.5 9.6c-3.6 0-7.1-.2-10.6-.6v.6c0 35.3 28.7 64 64 64h64c17.7 0 32 14.3 32 32s-14.3 32-32 32H384V336 320c0-23.7 12.9-44.4 32-55.4c9.4-5.4 20.3-8.6 32-8.6V240c0-26.5 21.5-48 48-48c8.8 0 16 7.2 16 16v32 16 48c0 8.8 7.2 16 16 16s16-7.2 16-16V204.3c0-48.2-30.8-91-76.6-106.3l-8.5-2.8c-8-2.7-12.6-11.1-10.4-19.3s10.3-13.2 18.6-11.6l19.9 4C576 86.1 640 164.2 640 254.9l0 1.1h0c0 123.7-100.3 224-224 224h-1.1H256h-.6C132 480 32 380 32 256.6V256 216.8c-10.1-14.6-16-32.3-16-51.4V144l0-1.4C6.7 139.3 0 130.5 0 120c0-13.3 10.7-24 24-24h2.8C44.8 58.2 83.3 32 128 32h64c44.7 0 83.2 26.2 101.2 64H296c13.3 0 24 10.7 24 24c0 10.5-6.7 19.3-16 22.6l0 1.4v21.4c0 1.4 0 2.8-.1 4.3c12-6.2 25.7-9.6 40.1-9.6h8c17.7 0 32 14.3 32 32s-14.3 32-32 32h-8c-13.3 0-24 10.7-24 24v8h56.4c-15.2 17-24.4 39.4-24.4 64H320c-42.3 0-78.2-27.4-91-65.3c-5.1 .9-10.3 1.3-15.6 1.3c-14.1 0-27.9-3.3-40.5-9.6zM96 160c-8.8 0-16-7.2-16-16s7.2-16 16-16s16 7.2 16 16s-7.2 16-16 16zm144-16c0 8.8-7.2 16-16 16s-16-7.2-16-16s7.2-16 16-16s16 7.2 16 16z"/></svg> <br><br> Try it Out!

---