APratt graphTweets Assignment

Assigment

1. Use the us-senate list to get the last 200 tweets from US senators.
   
2. Create a network of retweets.
   
3. Get a count of nodes and edges, and get the density of the network.
   
4. Create a data table of the senators, showing only their names and degree.
   
5. Find communities and make a network diagram showing the communities. (You may make two diagrams, one with the communities and one without.)

senate <- lists_members(slug = "us-senate", owner_user = "TwitterGov")

senate

Let’s get the list first, yeah?

senate_tweets <- get_timeline(senate$screen_name, n = 200)

Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.Rate limit exceeded - 88rate limit exceeded.  mins until rate limit resets.

senate_retweets_network <- senate_tweets %>% 
  filter(retweet_screen_name %in% senate$screen_name) %>% 
  gt_edges(screen_name, retweet_screen_name, text) %>% 
  gt_graph()

senate_retweets_nodes <- as_data_frame(senate_retweets_network, what = "vertices")

senate_retweets_nodes <- senate_retweets_nodes %>% 
  mutate(id = name) %>% 
  mutate(label = name) %>% 
  mutate(title = name) %>% 
  mutate(degree = degree(senate_retweets_network)) %>% 
  mutate(value = degree)

senate_retweets_edges <- as_data_frame(senate_retweets_network, what = "edges")

senate_retweets_edges <- senate_retweets_edges %>% 
  mutate(title = text)

visNetwork(senate_retweets_nodes, senate_retweets_edges, main = "US Senators retweet network") %>% 
  visIgraphLayout(layout = "layout_nicely") %>% 
  visEdges(arrows = "to")

I don’t know who Senator Braun is, but they have a really big node.

senate_retweets_network %>% 
  vcount()

[1] 90

senate_retweets_network %>% 
  ecount()

[1] 217

senate_retweets_network %>% 
  edge_density()

[1] 0.02709114

senate_retweets_nodes %>% 
  select(name, degree) %>% 
  datatable()

Look at this table. Braun is killing it. Then some dude named Chuck.

senate_retweets_nodes <- senate_retweets_nodes %>% 
  mutate(group = membership(infomap.community(senate_retweets_network)))

Modularity is implemented for undirected graphs only.

visNetwork(senate_retweets_nodes, senate_retweets_edges, main = "Retweet Network of US Senators") %>% 
  visIgraphLayout(layout = "layout_nicely") %>% 
  visEdges(arrows = "to") %>% 
  visOptions(highlightNearest = T, nodesIdSelection = T, selectedBy = "group")

That little green outlier is “perduesenate.” Braun still has just…magnificent nodes.