SNA final project
1. Prepare the environment
# install.packages("pacman")
library(pacman)
pacman::p_load(tidyverse,
readr,
magrittr,
dplyr,
psych,
igraph,
reshape,
intergraph,
GGally
)2. Read in Data, Clean and Explore
# load data
course_posts <- read_csv("data/course_posts.csv")## Rows: 739074 Columns: 12
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (2): course_id, user_type
## dbl (10): post_id, thread_id, parent_id, order, user_id, post_time, relative...
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.course_threads <- read_csv("data/course_threads.csv")## Rows: 99629 Columns: 11
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (4): course_id, og_forum, parent_forum, forum_chain
## dbl (7): thread_id, og_forum_id, parent_forum_id, depth, num_views, num_tags...
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.## clean
# generate data of intrests: filter rows, select columns
bigdataEdu_posts <- course_posts %>%
filter(course_id == "bigdata-edu-001",
user_type == "Student",
user_id != 0) %>%
select(post_id,
thread_id,
parent_id,
user_id,
user_type,
relative_t,
votes,
num_words)
bigdataEdu_threads <- course_threads %>%
mutate(week = og_forum) %>%
filter(course_id == "bigdata-edu-001",
week %in% c("Week 1", "Week 2", "Week 3",
"Week 4", "Week 5", "Week 6",
"Week 7", "Week 8"))%>%
select(thread_id,
week,
parent_forum)# get data overview and get it ready to explore: merge data frames
merged_postthread <- merge(bigdataEdu_posts,
bigdataEdu_threads,
by = "thread_id")## explore
# check unique identifier: count distinct
unique_ids <- merged_postthread %>%
summarise(num_unique_ids = n_distinct(user_id))
unique_ids_by_week <- merged_postthread %>%
group_by(week) %>%
summarize(num_unique_ids_by_week = n_distinct(user_id))
unique_ids## num_unique_ids
## 1 261unique_ids_by_week## # A tibble: 8 × 2
## week num_unique_ids_by_week
## <chr> <int>
## 1 Week 1 62
## 2 Week 2 91
## 3 Week 3 85
## 4 Week 4 60
## 5 Week 5 56
## 6 Week 6 69
## 7 Week 7 35
## 8 Week 8 53# check occurrence pattern of identifier
# First, count the occurrences of each ID in each week
id_week_counts <- table(merged_postthread$user_id, merged_postthread$week)
# Second, check if any ID appears 8 times (in all 8 weeks)
ids_appearing_in_all_weeks <- rownames(id_week_counts)[apply(id_week_counts,
1,
function(x) all(x >= 1))]
id_week_counts##
## Week 1 Week 2 Week 3 Week 4 Week 5 Week 6 Week 7 Week 8
## 124563504 0 1 0 7 1 0 0 0
## 188263485 0 0 0 2 0 2 0 0
## 327094343 1 0 0 0 0 0 0 0
## 394465960 1 1 0 0 0 0 0 0
## 440310560 0 0 2 0 0 0 0 0
## 480093916 2 0 0 0 0 0 0 0
## 652627875 2 0 2 0 0 0 0 0
## 699026372 0 1 1 0 5 0 0 2
## 735386335 2 0 0 0 0 0 0 0
## 765510888 0 3 0 0 0 0 0 0
## 913095564 2 0 2 3 4 0 0 0
## 942231582 0 0 0 0 1 0 0 0
## 959703983 0 2 0 0 0 0 0 0
## 1051052830 0 0 0 0 0 0 1 0
## 1052300781 0 0 0 2 0 0 0 0
## 1116701196 4 2 4 3 2 3 1 4
## 1159663676 1 0 0 4 0 0 0 0
## 1168661620 1 1 0 0 0 0 0 0
## 1185728778 0 1 0 0 0 0 0 0
## 1196776099 0 0 0 0 1 0 4 0
## 1259376446 0 0 1 0 0 0 0 0
## 1309316863 0 1 0 0 0 0 0 0
## 1356909740 0 0 1 0 0 0 0 0
## 1376296636 0 1 0 0 0 0 0 0
## 1438804640 0 0 2 10 0 0 0 0
## 1561690305 0 0 0 0 0 0 0 1
## 1581553482 0 0 2 0 0 0 0 0
## 1585418187 0 0 1 0 0 0 0 0
## 1616474298 1 2 3 0 4 1 0 0
## 1677620122 0 3 10 7 8 4 8 4
## 1731829112 0 0 2 0 0 0 0 0
## 1744680656 2 0 0 0 0 0 0 0
## 1755774796 0 0 0 1 2 0 0 3
## 1775813107 0 0 3 1 0 1 0 0
## 1778749610 1 0 3 0 1 0 0 0
## 1786723215 0 0 0 0 0 3 1 1
## 1820027579 0 1 0 0 0 0 0 0
## 1852715754 2 0 0 1 0 3 0 0
## 1868345289 1 0 0 0 0 0 0 0
## 1882716698 0 1 0 0 0 0 0 0
## 1901551455 0 0 0 0 0 0 0 9
## 1955378068 1 0 0 0 0 0 0 0
## 1984421450 1 6 13 0 0 0 0 0
## 2008532157 0 0 0 0 1 1 0 0
## 2033922811 0 2 0 0 0 0 0 0
## 2037193666 1 0 0 0 0 0 0 0
## 2041128247 1 0 0 0 0 0 0 0
## 2066968796 0 2 0 0 0 0 0 0
## 2076093651 0 0 0 1 0 0 0 0
## 2108770039 0 3 0 0 0 0 0 0
## 2140716867 0 2 3 0 0 0 0 0
## 2182158482 0 0 0 0 0 0 0 1
## 2186200588 0 1 0 0 0 0 0 0
## 2221140245 1 0 1 0 0 1 0 1
## 2255666215 0 0 0 0 0 0 0 1
## 2288241889 1 0 0 0 0 0 0 0
## 2310247031 1 0 0 0 0 0 0 0
## 2338030946 0 0 1 0 0 0 0 0
## 2406383684 0 0 0 0 0 0 0 4
## 2503360437 0 0 1 0 0 0 0 0
## 2594816328 0 0 0 0 0 0 0 1
## 2645581189 0 0 0 0 0 2 0 0
## 2733713295 0 0 0 0 0 0 0 2
## 2889939472 0 1 5 0 0 0 0 0
## 2902134874 0 0 0 0 0 0 3 2
## 2929932998 2 0 7 0 0 0 0 0
## 2976420212 0 0 1 0 0 0 0 0
## 2992360106 0 0 0 2 0 0 0 0
## 3005294516 0 2 3 3 1 3 3 4
## 3110609684 1 0 0 0 0 0 0 0
## 3156451269 27 93 37 39 31 76 32 37
## 3173739684 0 7 1 6 2 23 2 11
## 3197232221 2 0 0 0 0 0 0 0
## 3209573124 0 2 3 1 2 7 4 1
## 3297649050 0 0 0 0 0 1 0 0
## 3306561571 0 2 2 1 1 0 1 3
## 3332317465 1 0 0 0 0 0 0 0
## 3341306351 2 0 1 0 0 0 0 0
## 3374212458 0 0 0 0 0 1 0 0
## 3456060500 0 0 0 0 0 0 1 0
## 3468758430 0 3 0 0 0 0 0 0
## 3514787932 1 0 0 0 0 0 0 0
## 3521341866 0 2 1 0 0 0 1 0
## 3536160023 0 0 1 0 0 0 0 0
## 3623441815 0 0 0 0 0 0 0 4
## 3629802629 0 0 0 0 0 0 0 3
## 3663043559 0 0 0 0 0 2 0 0
## 3669435230 0 2 0 0 0 0 0 0
## 3684533970 0 0 2 1 0 0 0 2
## 3744142481 0 1 0 2 0 0 0 0
## 3756245496 0 8 0 1 1 7 0 7
## 3764481095 0 0 4 0 0 0 0 0
## 3796215258 0 0 2 0 1 1 0 0
## 3838533674 2 1 1 2 4 1 0 4
## 3851285649 0 0 2 0 0 0 0 0
## 3870581423 0 2 0 0 0 0 0 0
## 3876207900 2 0 0 0 0 0 0 0
## 3881654938 0 2 2 4 1 3 0 0
## 4015634200 3 0 0 0 0 4 1 0
## 4054457004 0 0 2 0 1 0 0 1
## 4121394785 0 5 0 0 0 0 0 0
## 4144156058 0 0 0 0 0 1 0 0
## 4276941877 0 1 2 0 0 0 0 0
## 4334079845 0 4 6 0 3 5 0 1
## 4393072137 0 2 0 0 0 0 0 0
## 4469047662 0 0 0 0 0 0 1 0
## 4484227487 0 0 0 0 8 0 0 0
## 4486281471 1 0 0 0 0 0 0 0
## 4498171151 1 5 0 0 0 3 1 0
## 4626791683 0 0 1 1 2 4 0 4
## 4644130482 0 0 0 5 0 1 0 0
## 4667435699 0 1 0 0 0 0 0 0
## 4670812400 0 0 2 0 0 0 0 0
## 4674911547 0 0 0 2 0 0 0 0
## 4693471403 0 0 0 0 0 4 0 0
## 4715655436 0 0 0 0 0 0 0 1
## 4870951478 1 0 0 0 0 0 0 0
## 4877291149 1 0 0 0 0 0 0 0
## 4919766853 0 3 2 4 3 1 0 6
## 4971079947 0 1 0 0 0 0 0 0
## 4995051588 3 0 0 0 0 4 1 0
## 4995245467 1 0 0 0 0 0 0 0
## 5035151109 0 0 0 0 0 1 0 0
## 5035755134 0 0 0 0 0 5 0 0
## 5040521423 0 1 0 0 0 0 0 0
## 5095949893 0 0 0 0 1 1 0 0
## 5114277863 0 0 0 1 0 0 0 0
## 5114801183 0 0 0 0 0 4 2 0
## 5180509202 0 0 0 0 0 0 1 0
## 5183882834 0 0 0 0 0 1 2 0
## 5186947510 0 4 0 0 0 0 0 0
## 5210615033 0 2 0 0 0 0 0 0
## 5248456720 0 0 0 0 1 0 0 0
## 5292672791 1 0 0 0 0 0 0 0
## 5300538152 0 0 0 1 1 0 0 0
## 5309106421 0 2 0 2 1 5 0 0
## 5340279230 0 0 2 2 0 0 0 0
## 5361256827 0 0 1 1 0 0 0 0
## 5379164638 0 0 0 0 0 9 1 1
## 5387308847 4 1 0 0 0 0 0 0
## 5416987185 0 0 2 0 2 0 0 0
## 5432279549 0 5 0 1 0 0 0 0
## 5446792759 0 10 0 0 0 0 0 0
## 5455584928 0 1 0 0 0 4 0 8
## 5470604923 0 0 0 0 2 0 0 0
## 5481880413 0 0 0 0 0 5 0 0
## 5536442217 0 3 5 2 1 0 0 2
## 5567363465 0 2 0 0 0 0 0 0
## 5604418096 0 1 0 0 0 0 0 0
## 5609907247 5 0 2 0 0 0 0 0
## 5637981241 2 0 0 0 0 0 0 0
## 5824756577 0 0 0 3 3 0 0 0
## 5844560790 0 0 0 0 0 0 0 1
## 5870469956 0 4 1 1 0 2 0 0
## 5876010853 0 0 0 0 0 0 0 2
## 5953509045 0 0 3 0 3 5 0 0
## 5994783254 2 5 1 11 7 4 2 4
## 5999503761 0 0 1 0 0 0 0 0
## 6072188956 0 4 0 0 3 0 0 1
## 6081962822 0 0 3 2 0 1 0 0
## 6111706187 0 0 0 0 0 0 1 0
## 6122556640 0 0 0 1 0 0 0 0
## 6238754481 0 1 0 0 0 0 0 0
## 6264091024 0 2 0 0 0 0 0 0
## 6299693713 0 0 1 0 0 0 0 0
## 6300876246 0 0 0 0 0 0 3 0
## 6342147499 0 0 0 0 0 1 0 0
## 6356755718 2 0 1 0 0 2 1 0
## 6380581226 0 2 0 0 3 0 0 0
## 6414826497 0 1 0 0 0 0 0 0
## 6525108658 0 1 3 0 2 0 0 0
## 6534316319 0 0 0 0 0 0 0 1
## 6557209269 0 0 0 1 0 0 0 0
## 6558778971 0 0 2 0 1 0 0 3
## 6587409260 0 0 0 1 3 3 0 0
## 6633332464 0 0 0 0 1 0 0 0
## 6647761469 0 0 0 0 0 2 0 0
## 6696790171 1 0 0 0 0 0 0 0
## 6699305427 0 1 0 0 0 0 0 0
## 6759811348 0 1 3 2 1 3 0 0
## 6925215886 0 0 0 0 1 0 0 0
## 6936928499 0 0 0 0 0 2 0 0
## 6980271874 0 0 3 2 0 0 0 0
## 7003623111 0 0 2 2 2 1 0 1
## 7014455008 0 0 0 1 0 0 1 2
## 7056109731 0 0 1 0 0 0 0 0
## 7062586437 1 0 0 0 0 0 0 0
## 7081393193 0 0 3 0 0 0 0 0
## 7219850650 0 0 7 0 0 0 0 0
## 7250063206 0 4 0 5 0 6 0 0
## 7254957085 3 0 4 0 0 0 4 0
## 7344070256 4 0 0 0 0 0 0 0
## 7408634603 2 0 0 0 0 0 0 0
## 7449302474 0 0 0 1 0 0 0 0
## 7451544150 0 3 0 4 0 1 0 0
## 7517222972 0 1 1 0 0 0 0 0
## 7571628048 3 0 0 0 0 0 0 0
## 7584541101 0 0 0 0 1 0 0 0
## 7584740487 3 0 0 0 0 0 0 0
## 7613407202 0 1 0 0 0 1 0 0
## 7677448485 0 0 5 0 0 0 0 1
## 7755722289 0 3 2 1 0 0 0 0
## 7759324475 0 0 2 0 2 0 0 0
## 7797335028 0 3 0 0 0 0 0 0
## 7859581331 0 0 0 0 0 0 0 1
## 7973184035 0 0 2 0 0 0 0 0
## 7983248677 0 2 0 0 0 0 0 0
## 7989670192 0 0 0 0 0 0 1 0
## 8039879800 1 0 0 0 0 0 0 0
## 8050065802 0 0 1 0 0 0 4 3
## 8104701724 0 0 1 0 1 0 0 0
## 8128561229 0 0 1 0 0 0 3 0
## 8160181818 0 0 0 0 0 2 0 0
## 8198948950 1 0 0 0 0 0 0 0
## 8201732444 1 0 0 0 0 0 0 0
## 8224936072 0 0 0 0 2 3 0 0
## 8317383956 0 0 0 0 0 0 0 1
## 8321514959 0 0 1 1 4 1 0 0
## 8361739361 0 0 0 1 0 0 0 0
## 8435744769 0 1 0 0 0 0 0 0
## 8496635273 0 0 0 0 2 0 0 0
## 8502947065 0 0 0 0 0 1 0 0
## 8507126522 0 0 0 0 0 0 5 1
## 8530287306 1 0 0 0 0 0 0 0
## 8540758504 2 6 8 5 5 0 0 0
## 8556449193 0 4 1 0 0 0 0 1
## 8642308716 0 0 0 0 0 1 0 2
## 8681585333 0 0 3 0 2 3 0 0
## 8717877413 1 0 0 0 0 0 0 0
## 8731458825 0 1 0 0 0 0 0 0
## 8750165344 0 0 0 0 0 2 0 0
## 8788792707 0 5 0 0 0 0 0 0
## 8831544367 0 0 0 0 0 0 0 1
## 8885357680 0 1 5 4 5 0 0 0
## 8958761542 0 1 0 0 0 0 0 0
## 9001570212 0 0 2 0 0 0 0 0
## 9058213205 0 1 0 0 0 0 0 0
## 9099037170 0 2 0 0 0 0 0 0
## 9109898721 0 1 0 0 0 0 0 0
## 9110371713 0 1 0 0 0 0 0 0
## 9261324015 0 2 0 0 0 0 2 1
## 9273293089 0 1 0 1 0 0 0 0
## 9319145858 0 2 2 0 0 1 1 0
## 9369425085 0 0 0 2 0 0 0 0
## 9447053590 0 3 1 0 0 2 6 1
## 9483462437 0 0 0 0 0 1 0 0
## 9518349222 0 1 0 0 2 2 1 0
## 9526725193 0 0 0 1 1 1 0 0
## 9530958529 0 0 2 3 0 0 0 0
## 9532656110 1 5 2 8 0 2 0 4
## 9591535930 0 0 0 0 0 1 0 0
## 9612702280 1 0 0 0 0 0 0 0
## 9628382920 0 1 2 0 0 0 0 0
## 9648191523 0 0 7 4 2 1 0 1
## 9652854964 1 0 0 0 0 0 0 0
## 9725147596 0 2 2 0 0 0 0 0
## 9760248329 1 0 0 0 0 0 0 0
## 9782340687 0 1 0 2 0 8 0 2
## 9829890871 0 1 0 0 0 0 0 0
## 9830439804 1 0 0 0 0 0 0 0
## 9957559198 2 0 0 0 0 0 0 0ids_appearing_in_all_weeks## [1] "1116701196" "3156451269" "5994783254"# Additionaly, check if any ID appears at least 4 times (in all 8 weeks)
modified_id_week_counts <- ifelse(id_week_counts>= 1, 1, 0)
ids_appearing_at_least_4_times <- rownames(modified_id_week_counts)[apply(id_week_counts, 1, function(x) sum(x) >= 4)]
modified_id_week_counts##
## Week 1 Week 2 Week 3 Week 4 Week 5 Week 6 Week 7 Week 8
## 124563504 0 1 0 1 1 0 0 0
## 188263485 0 0 0 1 0 1 0 0
## 327094343 1 0 0 0 0 0 0 0
## 394465960 1 1 0 0 0 0 0 0
## 440310560 0 0 1 0 0 0 0 0
## 480093916 1 0 0 0 0 0 0 0
## 652627875 1 0 1 0 0 0 0 0
## 699026372 0 1 1 0 1 0 0 1
## 735386335 1 0 0 0 0 0 0 0
## 765510888 0 1 0 0 0 0 0 0
## 913095564 1 0 1 1 1 0 0 0
## 942231582 0 0 0 0 1 0 0 0
## 959703983 0 1 0 0 0 0 0 0
## 1051052830 0 0 0 0 0 0 1 0
## 1052300781 0 0 0 1 0 0 0 0
## 1116701196 1 1 1 1 1 1 1 1
## 1159663676 1 0 0 1 0 0 0 0
## 1168661620 1 1 0 0 0 0 0 0
## 1185728778 0 1 0 0 0 0 0 0
## 1196776099 0 0 0 0 1 0 1 0
## 1259376446 0 0 1 0 0 0 0 0
## 1309316863 0 1 0 0 0 0 0 0
## 1356909740 0 0 1 0 0 0 0 0
## 1376296636 0 1 0 0 0 0 0 0
## 1438804640 0 0 1 1 0 0 0 0
## 1561690305 0 0 0 0 0 0 0 1
## 1581553482 0 0 1 0 0 0 0 0
## 1585418187 0 0 1 0 0 0 0 0
## 1616474298 1 1 1 0 1 1 0 0
## 1677620122 0 1 1 1 1 1 1 1
## 1731829112 0 0 1 0 0 0 0 0
## 1744680656 1 0 0 0 0 0 0 0
## 1755774796 0 0 0 1 1 0 0 1
## 1775813107 0 0 1 1 0 1 0 0
## 1778749610 1 0 1 0 1 0 0 0
## 1786723215 0 0 0 0 0 1 1 1
## 1820027579 0 1 0 0 0 0 0 0
## 1852715754 1 0 0 1 0 1 0 0
## 1868345289 1 0 0 0 0 0 0 0
## 1882716698 0 1 0 0 0 0 0 0
## 1901551455 0 0 0 0 0 0 0 1
## 1955378068 1 0 0 0 0 0 0 0
## 1984421450 1 1 1 0 0 0 0 0
## 2008532157 0 0 0 0 1 1 0 0
## 2033922811 0 1 0 0 0 0 0 0
## 2037193666 1 0 0 0 0 0 0 0
## 2041128247 1 0 0 0 0 0 0 0
## 2066968796 0 1 0 0 0 0 0 0
## 2076093651 0 0 0 1 0 0 0 0
## 2108770039 0 1 0 0 0 0 0 0
## 2140716867 0 1 1 0 0 0 0 0
## 2182158482 0 0 0 0 0 0 0 1
## 2186200588 0 1 0 0 0 0 0 0
## 2221140245 1 0 1 0 0 1 0 1
## 2255666215 0 0 0 0 0 0 0 1
## 2288241889 1 0 0 0 0 0 0 0
## 2310247031 1 0 0 0 0 0 0 0
## 2338030946 0 0 1 0 0 0 0 0
## 2406383684 0 0 0 0 0 0 0 1
## 2503360437 0 0 1 0 0 0 0 0
## 2594816328 0 0 0 0 0 0 0 1
## 2645581189 0 0 0 0 0 1 0 0
## 2733713295 0 0 0 0 0 0 0 1
## 2889939472 0 1 1 0 0 0 0 0
## 2902134874 0 0 0 0 0 0 1 1
## 2929932998 1 0 1 0 0 0 0 0
## 2976420212 0 0 1 0 0 0 0 0
## 2992360106 0 0 0 1 0 0 0 0
## 3005294516 0 1 1 1 1 1 1 1
## 3110609684 1 0 0 0 0 0 0 0
## 3156451269 1 1 1 1 1 1 1 1
## 3173739684 0 1 1 1 1 1 1 1
## 3197232221 1 0 0 0 0 0 0 0
## 3209573124 0 1 1 1 1 1 1 1
## 3297649050 0 0 0 0 0 1 0 0
## 3306561571 0 1 1 1 1 0 1 1
## 3332317465 1 0 0 0 0 0 0 0
## 3341306351 1 0 1 0 0 0 0 0
## 3374212458 0 0 0 0 0 1 0 0
## 3456060500 0 0 0 0 0 0 1 0
## 3468758430 0 1 0 0 0 0 0 0
## 3514787932 1 0 0 0 0 0 0 0
## 3521341866 0 1 1 0 0 0 1 0
## 3536160023 0 0 1 0 0 0 0 0
## 3623441815 0 0 0 0 0 0 0 1
## 3629802629 0 0 0 0 0 0 0 1
## 3663043559 0 0 0 0 0 1 0 0
## 3669435230 0 1 0 0 0 0 0 0
## 3684533970 0 0 1 1 0 0 0 1
## 3744142481 0 1 0 1 0 0 0 0
## 3756245496 0 1 0 1 1 1 0 1
## 3764481095 0 0 1 0 0 0 0 0
## 3796215258 0 0 1 0 1 1 0 0
## 3838533674 1 1 1 1 1 1 0 1
## 3851285649 0 0 1 0 0 0 0 0
## 3870581423 0 1 0 0 0 0 0 0
## 3876207900 1 0 0 0 0 0 0 0
## 3881654938 0 1 1 1 1 1 0 0
## 4015634200 1 0 0 0 0 1 1 0
## 4054457004 0 0 1 0 1 0 0 1
## 4121394785 0 1 0 0 0 0 0 0
## 4144156058 0 0 0 0 0 1 0 0
## 4276941877 0 1 1 0 0 0 0 0
## 4334079845 0 1 1 0 1 1 0 1
## 4393072137 0 1 0 0 0 0 0 0
## 4469047662 0 0 0 0 0 0 1 0
## 4484227487 0 0 0 0 1 0 0 0
## 4486281471 1 0 0 0 0 0 0 0
## 4498171151 1 1 0 0 0 1 1 0
## 4626791683 0 0 1 1 1 1 0 1
## 4644130482 0 0 0 1 0 1 0 0
## 4667435699 0 1 0 0 0 0 0 0
## 4670812400 0 0 1 0 0 0 0 0
## 4674911547 0 0 0 1 0 0 0 0
## 4693471403 0 0 0 0 0 1 0 0
## 4715655436 0 0 0 0 0 0 0 1
## 4870951478 1 0 0 0 0 0 0 0
## 4877291149 1 0 0 0 0 0 0 0
## 4919766853 0 1 1 1 1 1 0 1
## 4971079947 0 1 0 0 0 0 0 0
## 4995051588 1 0 0 0 0 1 1 0
## 4995245467 1 0 0 0 0 0 0 0
## 5035151109 0 0 0 0 0 1 0 0
## 5035755134 0 0 0 0 0 1 0 0
## 5040521423 0 1 0 0 0 0 0 0
## 5095949893 0 0 0 0 1 1 0 0
## 5114277863 0 0 0 1 0 0 0 0
## 5114801183 0 0 0 0 0 1 1 0
## 5180509202 0 0 0 0 0 0 1 0
## 5183882834 0 0 0 0 0 1 1 0
## 5186947510 0 1 0 0 0 0 0 0
## 5210615033 0 1 0 0 0 0 0 0
## 5248456720 0 0 0 0 1 0 0 0
## 5292672791 1 0 0 0 0 0 0 0
## 5300538152 0 0 0 1 1 0 0 0
## 5309106421 0 1 0 1 1 1 0 0
## 5340279230 0 0 1 1 0 0 0 0
## 5361256827 0 0 1 1 0 0 0 0
## 5379164638 0 0 0 0 0 1 1 1
## 5387308847 1 1 0 0 0 0 0 0
## 5416987185 0 0 1 0 1 0 0 0
## 5432279549 0 1 0 1 0 0 0 0
## 5446792759 0 1 0 0 0 0 0 0
## 5455584928 0 1 0 0 0 1 0 1
## 5470604923 0 0 0 0 1 0 0 0
## 5481880413 0 0 0 0 0 1 0 0
## 5536442217 0 1 1 1 1 0 0 1
## 5567363465 0 1 0 0 0 0 0 0
## 5604418096 0 1 0 0 0 0 0 0
## 5609907247 1 0 1 0 0 0 0 0
## 5637981241 1 0 0 0 0 0 0 0
## 5824756577 0 0 0 1 1 0 0 0
## 5844560790 0 0 0 0 0 0 0 1
## 5870469956 0 1 1 1 0 1 0 0
## 5876010853 0 0 0 0 0 0 0 1
## 5953509045 0 0 1 0 1 1 0 0
## 5994783254 1 1 1 1 1 1 1 1
## 5999503761 0 0 1 0 0 0 0 0
## 6072188956 0 1 0 0 1 0 0 1
## 6081962822 0 0 1 1 0 1 0 0
## 6111706187 0 0 0 0 0 0 1 0
## 6122556640 0 0 0 1 0 0 0 0
## 6238754481 0 1 0 0 0 0 0 0
## 6264091024 0 1 0 0 0 0 0 0
## 6299693713 0 0 1 0 0 0 0 0
## 6300876246 0 0 0 0 0 0 1 0
## 6342147499 0 0 0 0 0 1 0 0
## 6356755718 1 0 1 0 0 1 1 0
## 6380581226 0 1 0 0 1 0 0 0
## 6414826497 0 1 0 0 0 0 0 0
## 6525108658 0 1 1 0 1 0 0 0
## 6534316319 0 0 0 0 0 0 0 1
## 6557209269 0 0 0 1 0 0 0 0
## 6558778971 0 0 1 0 1 0 0 1
## 6587409260 0 0 0 1 1 1 0 0
## 6633332464 0 0 0 0 1 0 0 0
## 6647761469 0 0 0 0 0 1 0 0
## 6696790171 1 0 0 0 0 0 0 0
## 6699305427 0 1 0 0 0 0 0 0
## 6759811348 0 1 1 1 1 1 0 0
## 6925215886 0 0 0 0 1 0 0 0
## 6936928499 0 0 0 0 0 1 0 0
## 6980271874 0 0 1 1 0 0 0 0
## 7003623111 0 0 1 1 1 1 0 1
## 7014455008 0 0 0 1 0 0 1 1
## 7056109731 0 0 1 0 0 0 0 0
## 7062586437 1 0 0 0 0 0 0 0
## 7081393193 0 0 1 0 0 0 0 0
## 7219850650 0 0 1 0 0 0 0 0
## 7250063206 0 1 0 1 0 1 0 0
## 7254957085 1 0 1 0 0 0 1 0
## 7344070256 1 0 0 0 0 0 0 0
## 7408634603 1 0 0 0 0 0 0 0
## 7449302474 0 0 0 1 0 0 0 0
## 7451544150 0 1 0 1 0 1 0 0
## 7517222972 0 1 1 0 0 0 0 0
## 7571628048 1 0 0 0 0 0 0 0
## 7584541101 0 0 0 0 1 0 0 0
## 7584740487 1 0 0 0 0 0 0 0
## 7613407202 0 1 0 0 0 1 0 0
## 7677448485 0 0 1 0 0 0 0 1
## 7755722289 0 1 1 1 0 0 0 0
## 7759324475 0 0 1 0 1 0 0 0
## 7797335028 0 1 0 0 0 0 0 0
## 7859581331 0 0 0 0 0 0 0 1
## 7973184035 0 0 1 0 0 0 0 0
## 7983248677 0 1 0 0 0 0 0 0
## 7989670192 0 0 0 0 0 0 1 0
## 8039879800 1 0 0 0 0 0 0 0
## 8050065802 0 0 1 0 0 0 1 1
## 8104701724 0 0 1 0 1 0 0 0
## 8128561229 0 0 1 0 0 0 1 0
## 8160181818 0 0 0 0 0 1 0 0
## 8198948950 1 0 0 0 0 0 0 0
## 8201732444 1 0 0 0 0 0 0 0
## 8224936072 0 0 0 0 1 1 0 0
## 8317383956 0 0 0 0 0 0 0 1
## 8321514959 0 0 1 1 1 1 0 0
## 8361739361 0 0 0 1 0 0 0 0
## 8435744769 0 1 0 0 0 0 0 0
## 8496635273 0 0 0 0 1 0 0 0
## 8502947065 0 0 0 0 0 1 0 0
## 8507126522 0 0 0 0 0 0 1 1
## 8530287306 1 0 0 0 0 0 0 0
## 8540758504 1 1 1 1 1 0 0 0
## 8556449193 0 1 1 0 0 0 0 1
## 8642308716 0 0 0 0 0 1 0 1
## 8681585333 0 0 1 0 1 1 0 0
## 8717877413 1 0 0 0 0 0 0 0
## 8731458825 0 1 0 0 0 0 0 0
## 8750165344 0 0 0 0 0 1 0 0
## 8788792707 0 1 0 0 0 0 0 0
## 8831544367 0 0 0 0 0 0 0 1
## 8885357680 0 1 1 1 1 0 0 0
## 8958761542 0 1 0 0 0 0 0 0
## 9001570212 0 0 1 0 0 0 0 0
## 9058213205 0 1 0 0 0 0 0 0
## 9099037170 0 1 0 0 0 0 0 0
## 9109898721 0 1 0 0 0 0 0 0
## 9110371713 0 1 0 0 0 0 0 0
## 9261324015 0 1 0 0 0 0 1 1
## 9273293089 0 1 0 1 0 0 0 0
## 9319145858 0 1 1 0 0 1 1 0
## 9369425085 0 0 0 1 0 0 0 0
## 9447053590 0 1 1 0 0 1 1 1
## 9483462437 0 0 0 0 0 1 0 0
## 9518349222 0 1 0 0 1 1 1 0
## 9526725193 0 0 0 1 1 1 0 0
## 9530958529 0 0 1 1 0 0 0 0
## 9532656110 1 1 1 1 0 1 0 1
## 9591535930 0 0 0 0 0 1 0 0
## 9612702280 1 0 0 0 0 0 0 0
## 9628382920 0 1 1 0 0 0 0 0
## 9648191523 0 0 1 1 1 1 0 1
## 9652854964 1 0 0 0 0 0 0 0
## 9725147596 0 1 1 0 0 0 0 0
## 9760248329 1 0 0 0 0 0 0 0
## 9782340687 0 1 0 1 0 1 0 1
## 9829890871 0 1 0 0 0 0 0 0
## 9830439804 1 0 0 0 0 0 0 0
## 9957559198 1 0 0 0 0 0 0 0ids_appearing_at_least_4_times## [1] "124563504" "188263485" "652627875" "699026372" "913095564"
## [6] "1116701196" "1159663676" "1196776099" "1438804640" "1616474298"
## [11] "1677620122" "1755774796" "1775813107" "1778749610" "1786723215"
## [16] "1852715754" "1901551455" "1984421450" "2140716867" "2221140245"
## [21] "2406383684" "2889939472" "2902134874" "2929932998" "3005294516"
## [26] "3156451269" "3173739684" "3209573124" "3306561571" "3521341866"
## [31] "3623441815" "3684533970" "3756245496" "3764481095" "3796215258"
## [36] "3838533674" "3881654938" "4015634200" "4054457004" "4121394785"
## [41] "4334079845" "4484227487" "4498171151" "4626791683" "4644130482"
## [46] "4693471403" "4919766853" "4995051588" "5035755134" "5114801183"
## [51] "5186947510" "5309106421" "5340279230" "5379164638" "5387308847"
## [56] "5416987185" "5432279549" "5446792759" "5455584928" "5481880413"
## [61] "5536442217" "5609907247" "5824756577" "5870469956" "5953509045"
## [66] "5994783254" "6072188956" "6081962822" "6356755718" "6380581226"
## [71] "6525108658" "6558778971" "6587409260" "6759811348" "6980271874"
## [76] "7003623111" "7014455008" "7219850650" "7250063206" "7254957085"
## [81] "7344070256" "7451544150" "7677448485" "7755722289" "7759324475"
## [86] "8050065802" "8128561229" "8224936072" "8321514959" "8507126522"
## [91] "8540758504" "8556449193" "8681585333" "8788792707" "8885357680"
## [96] "9261324015" "9319145858" "9447053590" "9518349222" "9530958529"
## [101] "9532656110" "9648191523" "9725147596" "9782340687"3. Retrieve Edges & Nodes
# retrieve edges
edges_raw <- merged_postthread %>%
left_join(bigdataEdu_posts,
by = "post_id") %>%
filter(user_id.x %in% ids_appearing_at_least_4_times,
user_id.y %in% ids_appearing_at_least_4_times)## Warning in left_join(., bigdataEdu_posts, by = "post_id"): Detected an unexpected many-to-many relationship between `x` and `y`.
## ℹ Row 1 of `x` matches multiple rows in `y`.
## ℹ Row 829 of `y` matches multiple rows in `x`.
## ℹ If a many-to-many relationship is expected, set `relationship =
## "many-to-many"` to silence this warning.edges <- edges_raw %>%
filter(user_id.x != user_id.y) %>%
mutate(send_from = user_id.x,
send_to = user_id.y) %>%
select(send_from,
send_to,
week)table(edges$send_from)##
## 124563504 652627875 913095564 1116701196 1159663676 1438804640 1616474298
## 1 1 3 1 1 2 2
## 1677620122 1775813107 1778749610 1786723215 1852715754 1901551455 1984421450
## 7 2 1 1 1 2 8
## 2140716867 2221140245 2889939472 2902134874 2929932998 3005294516 3156451269
## 1 2 3 2 1 2 86
## 3173739684 3209573124 3521341866 3756245496 3838533674 3881654938 4015634200
## 19 2 3 10 3 4 4
## 4054457004 4121394785 4334079845 4498171151 4626791683 4693471403 4919766853
## 1 1 4 4 1 1 5
## 4995051588 5035755134 5114801183 5186947510 5309106421 5379164638 5387308847
## 2 2 2 2 2 2 1
## 5432279549 5446792759 5455584928 5481880413 5536442217 5609907247 5870469956
## 2 2 2 3 1 6 1
## 5953509045 5994783254 6072188956 6081962822 6356755718 6525108658 6759811348
## 1 5 2 2 1 1 2
## 7219850650 7250063206 7254957085 7344070256 7451544150 7677448485 7755722289
## 1 1 1 2 1 1 3
## 8050065802 8540758504 8556449193 8681585333 8788792707 8885357680 9261324015
## 1 5 3 1 3 2 1
## 9319145858 9518349222 9532656110 9782340687
## 2 1 4 2table(edges$send_to)##
## 124563504 913095564 1116701196 1159663676 1196776099 1438804640 1616474298
## 3 5 2 1 1 1 3
## 1677620122 1775813107 1778749610 1786723215 1852715754 1901551455 1984421450
## 5 1 2 1 2 2 10
## 2140716867 2221140245 2406383684 2889939472 2902134874 2929932998 3005294516
## 1 1 2 1 1 1 4
## 3156451269 3173739684 3209573124 3521341866 3623441815 3756245496 3764481095
## 54 12 15 2 2 6 4
## 3838533674 3881654938 4015634200 4054457004 4121394785 4334079845 4498171151
## 4 2 3 1 2 7 4
## 4919766853 4995051588 5035755134 5114801183 5309106421 5340279230 5379164638
## 6 2 4 1 2 3 1
## 5387308847 5416987185 5432279549 5455584928 5481880413 5536442217 5609907247
## 3 1 5 1 1 3 7
## 5953509045 5994783254 6072188956 6081962822 6356755718 6525108658 6759811348
## 1 8 1 1 2 1 3
## 6980271874 7014455008 7219850650 7250063206 7254957085 7451544150 7677448485
## 1 2 1 1 3 1 1
## 7755722289 8321514959 8540758504 8556449193 8788792707 8885357680 9319145858
## 6 1 3 11 2 2 2
## 9447053590 9518349222 9530958529 9532656110 9782340687
## 2 1 1 4 1# retrieve nodes week by week
# nodes in week 1
edges_week1 <- edges %>%
filter(week == "Week 1")
nodes_week1 <- data.frame(union(edges_week1$send_from, edges_week1$send_to))
# nodes in week 2
edges_week2 <- edges %>%
filter(week == "Week 2")
nodes_week2 <- data.frame(union(edges_week2$send_from, edges_week2$send_to))
# nodes in week 3
edges_week3 <- edges %>%
filter(week == "Week 3")
nodes_week3 <- data.frame(union(edges_week3$send_from, edges_week3$send_to))
# nodes in week 4
edges_week4 <- edges %>%
filter(week == "Week 4")
nodes_week4 <- data.frame(union(edges_week4$send_from, edges_week4$send_to))
# nodes in week 5
edges_week5 <- edges %>%
filter(week == "Week 5")
nodes_week5 <- data.frame(union(edges_week5$send_from, edges_week5$send_to))
# nodes in week 6
edges_week6 <- edges %>%
filter(week == "Week 6")
nodes_week6 <- data.frame(union(edges_week6$send_from, edges_week6$send_to))
# nodes in week 7
edges_week7 <- edges %>%
filter(week == "Week 7")
nodes_week7 <- data.frame(union(edges_week7$send_from, edges_week7$send_to))
# nodes in week 8
edges_week8 <- edges %>%
filter(week == "Week 8")
nodes_week8 <- data.frame(union(edges_week8$send_from, edges_week8$send_to))4. Networks in igraph
# using an edgelist to construct the network
forum_net_week1 <- graph_from_data_frame(d = edges_week1,
directed = T,
vertices = nodes_week1)
forum_net_week1## IGRAPH 8764d8a DN-- 30 33 --
## + attr: name (v/c), week (e/c)
## + edges from 8764d8a (vertex names):
## [1] 7344070256->7254957085 7344070256->7254957085 2221140245->3156451269
## [4] 5609907247->3156451269 5609907247->5035755134 5994783254->8556449193
## [7] 4498171151->3156451269 913095564 ->5994783254 913095564 ->2140716867
## [10] 3156451269->1616474298 9532656110->3156451269 3156451269->1677620122
## [13] 3156451269->3173739684 3156451269->8885357680 5609907247->5481880413
## [16] 5609907247->6759811348 3156451269->8885357680 3156451269->5994783254
## [19] 4015634200->5035755134 4015634200->3156451269 6356755718->3156451269
## [22] 1778749610->3156451269 1159663676->1677620122 8540758504->5953509045
## + ... omitted several edges5. Key Network Measures
4.1 Degree
# Degree
indegree_week1 <- degree(graph = forum_net_week1, mode = "in")
outdegree_week1 <- degree(graph = forum_net_week1, mode = "out")
indegree_week1## 7344070256 2221140245 5609907247 5994783254 4498171151 913095564 3156451269
## 0 0 0 2 0 0 10
## 9532656110 4015634200 6356755718 1778749610 1159663676 8540758504 5387308847
## 0 1 0 0 0 0 0
## 4995051588 1616474298 7254957085 5035755134 8556449193 2140716867 1677620122
## 0 1 2 2 2 1 2
## 3173739684 8885357680 5481880413 6759811348 5953509045 2406383684 4919766853
## 1 2 1 1 1 1 1
## 3756245496 7755722289
## 1 1outdegree_week1## 7344070256 2221140245 5609907247 5994783254 4498171151 913095564 3156451269
## 2 1 5 1 1 2 9
## 9532656110 4015634200 6356755718 1778749610 1159663676 8540758504 5387308847
## 1 2 1 1 1 2 1
## 4995051588 1616474298 7254957085 5035755134 8556449193 2140716867 1677620122
## 1 1 1 0 0 0 0
## 3173739684 8885357680 5481880413 6759811348 5953509045 2406383684 4919766853
## 0 0 0 0 0 0 0
## 3756245496 7755722289
## 0 04.2 Density
# Density
edge_density(forum_net_week1)## [1] 0.037931034.3 Reachability
# Distance
dist_mat_week1 <- distances(graph = forum_net_week1, mode = "out")
diag(dist_mat_week1) <- NA
# Reachability
reach_mat_week1 <- ifelse(dist_mat_week1 < Inf, yes = 1, no = 0)
reach_mat_week1## 7344070256 2221140245 5609907247 5994783254 4498171151 913095564
## 7344070256 NA 0 0 0 0 0
## 2221140245 0 NA 0 1 0 0
## 5609907247 0 0 NA 1 0 0
## 5994783254 0 0 0 NA 0 0
## 4498171151 0 0 0 1 NA 0
## 913095564 0 0 0 1 0 NA
## 3156451269 0 0 0 1 0 0
## 9532656110 0 0 0 1 0 0
## 4015634200 0 0 0 1 0 0
## 6356755718 0 0 0 1 0 0
## 1778749610 0 0 0 1 0 0
## 1159663676 0 0 0 0 0 0
## 8540758504 0 0 0 1 0 0
## 5387308847 0 0 0 1 0 0
## 4995051588 0 0 0 0 0 0
## 1616474298 0 0 0 1 0 0
## 7254957085 0 0 0 0 0 0
## 5035755134 0 0 0 0 0 0
## 8556449193 0 0 0 0 0 0
## 2140716867 0 0 0 0 0 0
## 1677620122 0 0 0 0 0 0
## 3173739684 0 0 0 0 0 0
## 8885357680 0 0 0 0 0 0
## 5481880413 0 0 0 0 0 0
## 6759811348 0 0 0 0 0 0
## 5953509045 0 0 0 0 0 0
## 2406383684 0 0 0 0 0 0
## 4919766853 0 0 0 0 0 0
## 3756245496 0 0 0 0 0 0
## 7755722289 0 0 0 0 0 0
## 3156451269 9532656110 4015634200 6356755718 1778749610 1159663676
## 7344070256 0 0 0 0 0 0
## 2221140245 1 0 1 0 0 0
## 5609907247 1 0 1 0 0 0
## 5994783254 0 0 0 0 0 0
## 4498171151 1 0 1 0 0 0
## 913095564 0 0 0 0 0 0
## 3156451269 NA 0 1 0 0 0
## 9532656110 1 NA 1 0 0 0
## 4015634200 1 0 NA 0 0 0
## 6356755718 1 0 1 NA 0 0
## 1778749610 1 0 1 0 NA 0
## 1159663676 0 0 0 0 0 NA
## 8540758504 1 0 1 0 0 0
## 5387308847 1 0 1 0 0 0
## 4995051588 0 0 0 0 0 0
## 1616474298 1 0 1 0 0 0
## 7254957085 0 0 0 0 0 0
## 5035755134 0 0 0 0 0 0
## 8556449193 0 0 0 0 0 0
## 2140716867 0 0 0 0 0 0
## 1677620122 0 0 0 0 0 0
## 3173739684 0 0 0 0 0 0
## 8885357680 0 0 0 0 0 0
## 5481880413 0 0 0 0 0 0
## 6759811348 0 0 0 0 0 0
## 5953509045 0 0 0 0 0 0
## 2406383684 0 0 0 0 0 0
## 4919766853 0 0 0 0 0 0
## 3756245496 0 0 0 0 0 0
## 7755722289 0 0 0 0 0 0
## 8540758504 5387308847 4995051588 1616474298 7254957085 5035755134
## 7344070256 0 0 0 0 1 0
## 2221140245 0 0 0 1 0 1
## 5609907247 0 0 0 1 0 1
## 5994783254 0 0 0 0 0 0
## 4498171151 0 0 0 1 0 1
## 913095564 0 0 0 0 0 0
## 3156451269 0 0 0 1 0 1
## 9532656110 0 0 0 1 0 1
## 4015634200 0 0 0 1 0 1
## 6356755718 0 0 0 1 0 1
## 1778749610 0 0 0 1 0 1
## 1159663676 0 0 0 0 0 0
## 8540758504 NA 0 0 1 0 1
## 5387308847 0 NA 0 1 0 1
## 4995051588 0 0 NA 0 0 0
## 1616474298 0 0 0 NA 0 1
## 7254957085 0 0 0 0 NA 0
## 5035755134 0 0 0 0 0 NA
## 8556449193 0 0 0 0 0 0
## 2140716867 0 0 0 0 0 0
## 1677620122 0 0 0 0 0 0
## 3173739684 0 0 0 0 0 0
## 8885357680 0 0 0 0 0 0
## 5481880413 0 0 0 0 0 0
## 6759811348 0 0 0 0 0 0
## 5953509045 0 0 0 0 0 0
## 2406383684 0 0 0 0 0 0
## 4919766853 0 0 0 0 0 0
## 3756245496 0 0 0 0 0 0
## 7755722289 0 0 0 0 0 0
## 8556449193 2140716867 1677620122 3173739684 8885357680 5481880413
## 7344070256 0 0 0 0 0 0
## 2221140245 1 0 1 1 1 0
## 5609907247 1 0 1 1 1 1
## 5994783254 1 0 0 0 0 0
## 4498171151 1 0 1 1 1 0
## 913095564 1 1 0 0 0 0
## 3156451269 1 0 1 1 1 0
## 9532656110 1 0 1 1 1 0
## 4015634200 1 0 1 1 1 0
## 6356755718 1 0 1 1 1 0
## 1778749610 1 0 1 1 1 0
## 1159663676 0 0 1 0 0 0
## 8540758504 1 0 1 1 1 0
## 5387308847 1 0 1 1 1 0
## 4995051588 0 0 0 0 0 0
## 1616474298 1 0 1 1 1 0
## 7254957085 0 0 0 0 0 0
## 5035755134 0 0 0 0 0 0
## 8556449193 NA 0 0 0 0 0
## 2140716867 0 NA 0 0 0 0
## 1677620122 0 0 NA 0 0 0
## 3173739684 0 0 0 NA 0 0
## 8885357680 0 0 0 0 NA 0
## 5481880413 0 0 0 0 0 NA
## 6759811348 0 0 0 0 0 0
## 5953509045 0 0 0 0 0 0
## 2406383684 0 0 0 0 0 0
## 4919766853 0 0 0 0 0 0
## 3756245496 0 0 0 0 0 0
## 7755722289 0 0 0 0 0 0
## 6759811348 5953509045 2406383684 4919766853 3756245496 7755722289
## 7344070256 0 0 0 0 0 1
## 2221140245 0 0 1 1 0 0
## 5609907247 1 0 1 1 0 0
## 5994783254 0 0 0 0 0 0
## 4498171151 0 0 1 1 0 0
## 913095564 0 0 0 0 0 0
## 3156451269 0 0 1 1 0 0
## 9532656110 0 0 1 1 0 0
## 4015634200 0 0 1 1 0 0
## 6356755718 0 0 1 1 0 0
## 1778749610 0 0 1 1 0 0
## 1159663676 0 0 0 0 0 0
## 8540758504 0 1 1 1 0 0
## 5387308847 0 0 1 1 0 0
## 4995051588 0 0 0 0 1 0
## 1616474298 0 0 1 1 0 0
## 7254957085 0 0 0 0 0 1
## 5035755134 0 0 0 0 0 0
## 8556449193 0 0 0 0 0 0
## 2140716867 0 0 0 0 0 0
## 1677620122 0 0 0 0 0 0
## 3173739684 0 0 0 0 0 0
## 8885357680 0 0 0 0 0 0
## 5481880413 0 0 0 0 0 0
## 6759811348 NA 0 0 0 0 0
## 5953509045 0 NA 0 0 0 0
## 2406383684 0 0 NA 0 0 0
## 4919766853 0 0 0 NA 0 0
## 3756245496 0 0 0 0 NA 0
## 7755722289 0 0 0 0 0 NA5. Network Visualization
# ploting and adjusting aethetics
plot(forum_net_week1, vertex.size = indegree_week1 + 5,
vertex.label = NA,
vertex.frame.color = NA,
vertex.color = "light blue",
edge.arrow.size = .3,
edge.arrow.width = .5,
edge.color = "light grey",
layout = layout_with_kk,
margin = -.10,
main = "Forum Discussions (Week 1)")