Network Theory, Social Network Analysis, Community Detection, Yelp, R.
social activity sub <- subset(sample, year == 2005 & review_count >= 2 & no_of_friends >= 2) #make links (nodes and edges) sample_friends <- sub %>% select(user_id, friends) sample_users <- strsplit(sample_friends$friends, split = ",") sample_dat <- data.frame(user_id = rep(sample_friends$user_id,