Assignment 3

Assignment 3.Rmd

@@ -34,7 +34,7 @@ Since our data represnts every time a student makes a comment there are multiple
 
 EDGE <- count(D2, comment.to, comment.from)
 
-names(EDGE) <- c("from", "to", "count")
+names(EDGE) <- c("to", "from", "count")
 
 ```
 
@@ -95,8 +95,8 @@ plot(g,layout=layout.fruchterman.reingold, vertex.color=VERTEX$gender)
 #We can change the thickness of the edge according to the number of times a particular student has sent another student a comment.
 
 plot(g,layout=layout.fruchterman.reingold, vertex.color=VERTEX$gender, edge.width=EDGE$count)
-
-````
+ 
+```
 
 ## Part II
 
@@ -106,6 +106,16 @@ In Part II your task is to [look up](http://igraph.org/r/) in the igraph documen
 * The vertices are colored according to major
 * The vertices are sized according to the number of comments they have recieved
 
+```{r}
+V.TO.count <- select(V.TO, id)
+V.TO.count <- count(V.TO.count, id)
+
+plot(g, layout=layout.fruchterman.reingold,
+     vertex.color = VERTEX$major, vertex.lable.cex = 0.6, vertex.size = (V.TO.count$n*5),
+     edge.arrow.size = 0.6, edge.arrow.width = 0.6)
+```
+
+
 ## Part III
 
 Now practice with data from our class. This data is real class data directly exported from Qualtrics and you will need to wrangle it into shape before you can work with it. Import it into R as a data frame and look at it carefully to identify problems.
@@ -118,6 +128,60 @@ Once you have done this, also [look up](http://igraph.org/r/) how to generate th
 
 * Color the nodes according to interest. Are there any clusters of interest that correspond to clusters in the network? Write a sentence or two describing your interpetation.
 
+```{r}
+library(tidyr)
+library(dplyr)
+library(stringr)
+library(igraph)
+
+C1 <- read.csv("hudk4050-classes.csv", stringsAsFactors = FALSE, header = TRUE)
+C2 <- C1
+```
+
+```{r}
+colnames(C2) <- C2[1,]
+C2 <- slice(C2, 3:49)
+C2 <- select(C2, 1:8)
+C2 <- unite(C2, "name", `First Name`, `Last Name`, sep = " ")
+C2$name <-str_replace(C2$name, "`", "")
+C2$name <- str_to_title(C2$name)
+C2 <- C2 %>% mutate_at(2:7, list(toupper))
+C2 <- C2 %>% mutate_at(2:7, str_replace_all, " ","")
+```
+
+```{r}
+C3 <- C2 %>% gather(label, class, 2:7, na.rm = TRUE, convert = FALSE) %>% select(name, class)
+C3$count <- 1
+C3 <- filter(C3, class != "")
+C3 <- unique(C3)
+C3 <- spread(C3, class, count)
+rownames(C3) <- C3$name
+C3 <- select(C3, -name, -HUDK4050)
+C3[is.na(C3)] <- 0
+C3 <- ifelse(is.na(C3), 0, 1)
+```
+
+```{r}
+C4 <- as.matrix(C3)
+C4 <- C4 %*% t(C4)
+```
+
+```{r}
+g <- graph.adjacency(C4, mode="undirected", diag = FALSE)
+
+plot(g,layout=layout.fruchterman.reingold,
+     vertex.size = 4,
+     #degree(g)*0.7,
+     vertex.label.cex=0.8,
+     vertex.label.color="black",
+     vertex.color="gainsboro")
+```
+
+```{r}
+sort(degree(g), decreasing = TRUE)
+sort(betweenness(g), decreasing = TRUE)
+```
+
 ### To Submit Your Assignment
 
 Please submit your assignment by first "knitting" your RMarkdown document into an html file and then comit, push and pull request both the RMarkdown file and the html file.