Module 12 Assignment

For this assignment, I created a visual Social Network analysis based on a dataset for a general survey in 2002. I had some trouble finding a dataset that would create a coherent visual that would make sense aesthetically and logically. I used variables “kids” and “city” to see whether these would overlap, the result can be seen below.

Data Source: https://vincentarelbundock.github.io/Rdatasets/doc/AER/GSS7402.html

cleansurvey <- GSS7402[-(30:9120),]
survey <- data.frame(from = cleansurvey$kids,
                    to = cleansurvey$city16)

b <- graph_from_data_frame(survey, directed = FALSE)

V(b)$color <- "light blue"
plot(b, vertex.label = V(b)$name, layout = l)