Components, Cliques, & Key Actors

ECI 589 SNA and Education: Unit 3 Case Study

1. PREPARE

Our third SNA case study, Components, Cliques, & Key Actors, is inspired by the work of Jonathan Supovitz, Alan Daly, Miguel del Fresno and Christian Kolouch who examined the intense debate surrounding the Common Core State Standards education reform as it played out on Twitter. As noted on their expansive and interactive website for the #COMMONCORE Project, the Common Core was a major education policy initiative of the early 21st century. A primary aim of the Common Core was to strengthen education systems across the United States through a set of specific and challenging education standards. Although these standards once enjoyed bipartisan support, we saw in our previous case study how these standards have become a political punching bag.

In ECI 588 Text Mining in Education, we examined public sentiment around the Common Core and Next Generation Science Standards. This analysis compliments that investigation by examining groups and central actors in networks that developed around tweets about the common core. Specifically, this case study will cover the following topics pertaining to each data-intensive workflow process:

1. Prepare: Prior to analysis, we’ll take a look at the context from which our data originated, formulate some research questions, and get introduced the {tidygraph} and {ggraph} packages for analyzing relational data.

2. Wrangle: In the wrangling section of our case study, we will learn some basic techniques for manipulating, cleaning, transforming, and merging network data.

3. Explore: With our network data now tidy, we learn to calculate some key measures for individuals in our network and illustrate key actors through network visualization.

4. Model: We conclude our analysis by introducing community detection algorithms for identifying groups and revisiting sentiment about the common core.

5. Communicate: Finally, we prepare our case study for sharing by rendering our Quarto file to a webpage writing a brief reflection.

1a. Review the Research

Recall from Social Network Analysis and Education: Theory, Methods & Applications that the following four features used by @freeman2004development to define the social network perspective:

1. Social network analysis is motivated by a relational intuition based on ties connecting social actors.

2. It is firmly grounded in systematic empirical data.

3. It makes use of graphic imagery to represent actors and their relations with one another.

4. It relies on mathematical and/or computational models to succinctly represent the complexity of social life.

The #COMMONCORE Project that we’ll examine next is an exemplary illustration of these four defining features of the social network perspective.

The #commoncore Project

Supovitz, J., Daly, A.J., del Fresno, M., & Kolouch, C. (2017). #commoncore Project. Retrieved from http://www.hashtagcommoncore.com.

Prologue

As noted by Supovitz et al. (2017), the Common Core State Standards have been a “persistent flashpoint in the debate over the direction of American education.” The #commoncore Project explores the Common Core debate on Twitter using a combination of social network analyses and psychological investigations which help to reveal both the underlying social structure of the conversation and the motivations of the participants.

The central question guiding this investigation was:

How are social media-enabled social networks changing the discourse in American politics that produces and sustains education policy?

Data Sources & Analyses

The methods page of the #COMMONCORE Project provides a detailed discussion of the data and analyses used to arrive at the conclusions in #commoncore: How social media is changing the politics of education. Provided below is a summary of how authors retrieved data from Twitter and the analyses applied for each of the five acts in the website. I highly encourage you to take a look at this section if you’d like to learn more about their approach and in particular if you’re unfamiliar with how users can interact and communicate on Twitter.

Data Collection

To collect data on keywords related to the Common Core, the project used a customized data collection tool developed by two of our co-authors, Miguel del Fresno and Alan J. Daly, called Social Runner Lab. Similar to an approach we use in ECI 588 Text Mining in Education, Twitter Sentiment and School Reform, the authors downloaded data in real time directly from Twitter’s Application Programming Interface (API) based on tweets using specified keywords, keyphrases, or hashtags and then restricted their analysis to the following terms: commoncore, ccss and stopcommoncore. They also captured Twitter profile names, or user names, as well as the tweets, retweets, and mentions posted. Data included messages that are public on twitter, but not private direct messages between individuals, nor from accounts which users have made private.

Analyses

In order to address their research question, the authors applied social network analysis techniques in addition to qualitative and automated text mining approaches. For social network analyses, each node is an individual Twitter user (person, group, institution, etc.) and the connection between each node is the tweet, retweet, or mention/reply. After retrieving data from the Twitter API, the authors created a file that could be analyzed in Gephi, an open-source software program which depicts the relations as networks and provides metrics for describing features of the network.

In addition to data visualization and network descriptives, the authors examined group development and lexical tendencies among users. For group development, they used a community detection algorithm to identify and represent structural sub-communities, or “factions”, which they describe as a group with more ties within than across group even those group boundaries are somewhat porous). For lexical tendencies, the authors used the Linguistic Inquiry and Word Count (LIWC) lexicons to determine psychological drive, diagnose their level of conviction, make inferences about thinking styles, and even determine sentiment similar to what we examine in ECI 588.

For a nice summary of the data used for the analysis, as well as the samples of actors and tweets, the keywords, and the methods that were utilized, see Table 1. Data and Method for Each Act in the Methods section of the #commoncore website.

Key Findings

In the #commoncore Project, analyses of almost 1 million tweets sent by about 190,000 distinct actors over a period of 32 months revealed the following:

• In Act 1, The Giant Network, the authors identified five major sub-communities, or factions, in the Twitter debate surrounding the Common Core, including: (1) supporters of the Common Core, (2) opponents of the standards from inside education, and (3) opponents from outside of education.
• In Act 2, Central Actors, they noted that most of these participants were casual contributors – almost 95% of them made fewer than 10 tweets in any given six-month period. They also distinguished between two types of influence on Twitter: Transmitters who tweeted a lot, regardless of the extent of their followership; and Transceivers, those who gained their influence by being frequently retweeted and mentioned.
• In Act 3, Key Events, the authors identified issues driving the major spikes in the conversation, like when Secretary of Education Duncan spoke about white suburban moms’ opposition to the Common Core, or the debate over the authorization of the Every Student Succeeds Act in November 2015. They also offended evidence of manufactured controversies spurred by sensationalizing minor issues and outright fake news stories.
• In Act 4, Lexical Tendencies, the authors examined the linguistic tendencies of the three major factions and found that Common Core supporters used the highest number of conviction words, tended to use more achievement-oriented language, and used more words associated with a formal and analytic thinking style. By contrast, opponents of the Common Core from within education tended to use more words associated with sadness, and used more narrative thinking style language. Opponents of the Common Core from outside of education made the highest use of words associated with peer affiliation, used the largest number of angry words, and exhibited the lowest level of conviction in their word choices.
• In Act 5, The Tweet Machine, examined five frames that opponents of the Common Core used to appeal to values of particular subgroups including the government frame, business frame, war frame, experiment frame, and propaganda frame. By combining these constituencies, the authors illustrated how the Common Core developed a strong transpartisan coalition of opposition.

👉 Your Turn ⤵

For our SNA Lab 3 case study, we’ll apply some of the same techniques used by this study including calculating some basic network measures of centrality. For example, take a look at the Explore the Networks section from Act 2: Central Actors and the Transmitters, Transceivers and Transcenders.

Click on each of the boxes for a select time period and in the space below list a couple Twitter users identified by their analysis as the following:

• Transmitters: gerfingerpoken, dgburris, leoniehaimson

• Transceivers: educationweek, edutopia, TavernKeepers

• Transcenders: educationgadfly, leoniehaimson, michellemalkin

Now visit Act 2 of the methods section and In the space below, identify the network measure used for the first two central actors (hint: it’s italicized) and copy their definition used. Note, Transcenders has been completed for you.

• Transmitters are individuals who send out a large number of tweets using the keywords of interest (high outdegree)

• Transceivers are actors who have what social network researchers call high indegree. In our analyses, indegree is the combination of the number of times an actor's messages were retweeted, coupled with the number of times in which they are mentioned in others' tweets within the specified keyword (high indegree)

• Transcenders is measured by degree and consists of actors (i.e. Twitter uers) who have both high out-degree, as well as having high in-degree.

1b. Identify a Question(s)

Recall from above that the central question guiding the #COMMONCORE Project was:

How are social media-enabled social networks changing the discourse in American politics that produces and sustains education policy?

For Unit 3, we are going to focus our questions on something a bit less ambitious but inspired by this work:

1. Who are the transmitters, transceivers, and transcenders in our Common Core Twitter network?

2. What subgroups, or factions, exist in our network?

3. Which actors in our network tend to be more opposed to the Common Core?

To address the last question, we’ll introduce the {VADER} package for sentiment analysis in our modeling section.

👉 Your Turn ⤵

Based on what you know about networks and the context so far, what other research question(s) might ask we ask in this context that a social network perspective might be able to answer?

In the space below, type a brief response to the following questions:

• Which actors in the network tend to be proponents of Common Core?

1c. Set Up Project

As highlighted in Chapter 6 of Data Science in Education Using R (DSIEUR), one of the first steps of every workflow should be to set up your “Project” within RStudio. Recall that:

A Project is the home for all of the files, images, reports, and code that are used in any given project

In our ECI 589 SNA and Education Workspace on Posit Cloud, an RStudio Project titled Unit 3 - Case Study has already been set up for you and includes a .Rproj file in the main directory in the Files pane. Go there and see if you can locate it.

Load Libraries

In Unit 1, we also learned about packages, or libraries, which are shareable collections of R code that can contain functions, data, and/or documentation and extend the functionality of R. You can always check to see which packages have already been installed and loaded into Posit Cloud by looking at the the Files, Plots, & Packages Pane in the lower right hand corner.

👉 Your Turn ⤵

First, load the following packages introduced in previous case studies and that we’ll be using again to wrangling and explore our data later sections:

• tidyverse
• igraph
• tidygraph
• ggraph
• skimr

#YOUR CODE HERE

library(tidyverse)

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.0     ✔ readr     2.1.4
✔ forcats   1.0.0     ✔ stringr   1.5.0
✔ ggplot2   3.4.1     ✔ tibble    3.1.8
✔ lubridate 1.9.2     ✔ tidyr     1.3.0
✔ purrr     1.0.1     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the ]8;;http://conflicted.r-lib.org/conflicted package]8;; to force all conflicts to become errors

library(igraph)

Attaching package: 'igraph'

The following objects are masked from 'package:lubridate':

    %--%, union

The following objects are masked from 'package:dplyr':

    as_data_frame, groups, union

The following objects are masked from 'package:purrr':

    compose, simplify

The following object is masked from 'package:tidyr':

    crossing

The following object is masked from 'package:tibble':

    as_data_frame

The following objects are masked from 'package:stats':

    decompose, spectrum

The following object is masked from 'package:base':

    union

library(tidygraph)

Attaching package: 'tidygraph'

The following object is masked from 'package:igraph':

    groups

The following object is masked from 'package:stats':

    filter

library(ggraph)
library(skimr)

2. WRANGLE

In general, data wrangling involves some combination of cleaning, reshaping, transforming, and merging data (Wickham and Grolemund 2016). As highlighted in Estrellado et al. (2020), wrangling network data can be even more challenging than other data sources since network data often includes variables about both individuals and their relationships.

For our data wrangling this week, we’re keeping it simple since working with relational data is a bit of a departure from our working with rectangular data frames. In this lab, we’ll revisit how to:

1. Import Data. We revisit the read_csv() function from the tidyverse {readr} package to read the ccss-tweets-fresh.csv file from the data folder.

2. Format Network Data. We shape our data files into two common formats for storing network data: edgelists and nodelists.

3. Create a Network Object. Finally, we’ll need to convert our data frames into special data format, an R network object, for working with relational data.

2a. Import Data

To help keep things simple, we’ll be using a data download from twitter that only includes relatively small set of tweets from a single week. Network graphs can quickly get unwieldy as the nodes in your network grow.

The #commoncore project does an excellent job visualizing large networks using advanced techniques. We’ll focus on a relatively small network since we are using some very basic techniques for visualization.

Run the following code to use the read_csv() function from the {readr} package to read the ccss-tweets-fresh.csv file from the data folder and assign to a new data frame named ccss_tweets:

ccss_tweets <- read_csv("data/ccss-tweets-simple.csv")

Rows: 51 Columns: 90
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr  (49): screen_name, text, source, reply_to_screen_name, hashtags, urls_u...
dbl  (26): user_id, status_id, display_text_width, reply_to_status_id, reply...
lgl  (11): is_quote, is_retweet, quote_count, reply_count, symbols, ext_medi...
dttm  (4): created_at, quoted_created_at, retweet_created_at, account_create...

ℹ 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.

2b. Format Network Data

Recall from Chapter 1 of Carolan (2014) that ties, or relations, are what connect actors to one another. These ties are often referred to as “edges” when formatting and graphing network data and the range of ties in a network can be extensive. Some of the more common ties, or edges, used to denote connections among actors in educational research include:

• Behavioral interaction (e.g., talking to each other or sending messages)

• Physical connection (e.g., sitting together at lunch, living in the same neighborhood)

• Association or affiliation (e.g., taking the same courses, belonging to the same peer group)

• Evaluation of one person by another (e.g., considering someone a friend or enemy)

• Formal relations (e.g., knowing who has authority over whom)

• Moving between places or status (e.g., school choice preferences, dating patterns among adolescents)

Create Edgelist

Recall that the edgelist format is slightly different than other formats you have likely worked with in that the values in the first two columns of each row represent a dyad, or tie between two nodes in a network. An edge-list can also contain other information regarding the strength, duration, or frequency of the relationship, sometime called weight, in addition to other “edge attributes.”

For our analysis of tweets in this case study, we’ll use an approach similar to that used by Supovitz et al. (2017). Specifically, each node is an individual Twitter user (person, group, institution, etc.) and the connection between each node is the tweet, retweet, or mention/reply.

👉 Your Turn ⤵

Use the code chunk that follows, view the data we just imported using one of your favorite methods for inspecting data and answer the question that follows:

#YOUR CODE HERE
view(ccss_tweets)

1. Which columns you think could be used to construct an edge list.

   • screen_name, reply_to_screen_name, and mentions_screen_name

Extract Edges and Nodes

If one of the columns you indicated in your response above included screen_name nice work! You may also have noticed that the mentions_screen_name column includes the names of those in the reply column, as well as those “mentioned” in each tweet, i.e. whose username was included in a post.

As noted above, an edgelist includes the nodes that make up a tie or dyad. Since the only two columns we need to construct our edgelist is the screen_name of the tweet author and the screen names of those included in the mentions, let’s:

1. relocate() and rename those columns to sender and target to indicate the “direction” of the tweet;

2. select() those columns along with any attributes that we think might be useful for analysis later on, like the timestamp or content of the tweet, i.e. text;

3. assign our new data frame to ties_1.

Note that we also use R’s new built in |> pipe operator, which serves the same purpose as the older tidyverse %>% pipe operator.

ties_1 <-  ccss_tweets |>
  relocate(sender = screen_name, # rename scree_name to sender
           target = mentions_screen_name) |> # rename to receiver
  select(sender,
         target,
         created_at,
         text)

ties_1

# A tibble: 51 × 4
   sender          target                              created_at          text 
   <chr>           <chr>                               <dttm>              <chr>
 1 2bux15cents     <NA>                                2021-11-07 17:32:08 "At …
 2 AlexiosAsText   MaggieEThornton                     2021-11-07 15:22:14 "@Ma…
 3 tx_granny       BanjoTanJoe MillennialOther Richar… 2021-11-06 19:29:41 "@Mi…
 4 PaprBagPrincss  <NA>                                2021-11-05 20:31:28 "#CC…
 5 Tech4Learning   <NA>                                2021-11-05 18:01:00 "6 w…
 6 listland        <NA>                                2021-11-05 12:30:40 "Top…
 7 CapitolAdvocate <NA>                                2021-11-05 12:28:25 "\"I…
 8 CapitolAdvocate MichaelPetrilli CapitolAdvocate     2021-10-31 11:56:22 "\"A…
 9 BanjoTanJoe     MillennialOther Richard_Harambe Re… 2021-11-05 00:26:23 "@Mi…
10 MaendelWealth   4Patrick7 BookerSparticus           2021-11-04 13:16:29 "@4P…
# … with 41 more rows

Our edgelist with attributes is almost ready, but we have a couple of issues we still need to deal with.

As you may have noticed, our receiver column contains the names of multiple Twitter users, but a dyad or tie can only be between two actors or nodes.

In order to place each target user in a separate row that corresponds with each sender of the tweet, we will need to “unnest” these names using the {tidytext} package from Unit 3.

The tidytext Package 📦

As we’ll learn first hand in this module, using tidy data principles can also make many text mining tasks easier, more effective, and consistent with tools already in wide use. The {tidytext} package helps to convert text into data frames of individual words, making it easy to to manipulate, summarize, and visualize text using using familiar functions form the {tidyverse} collection of packages.

Let’s go ahead and load the {tidytext} package:

library(tidytext)

For a more comprehensive introduction to the tidytext package, I cannot recommend enough the free and excellent online book, Text Mining with R: A Tidy Approach (Silge and Robinson 2017). If you’re interested in pursuing text analysis using R post Summer Workshop, this will be a go to reference.

“Unnest” User Names

The {tidytext} package has a very handy unnest_tokens() function to extract individual words from tweets. We’ll use it to place target of each tweet into separate rows corresponding to the sender of each tweet.

Run the following code and take a look at the new data frame to make sure it looks as expect and to spot any potential issues:

ties_2 <- ties_1 |>
  unnest_tokens(input = target,
                output = receiver,
                to_lower = FALSE) |>
  relocate(sender, receiver)

ties_2

# A tibble: 311 × 4
   sender          receiver        created_at          text                     
   <chr>           <chr>           <dttm>              <chr>                    
 1 2bux15cents     <NA>            2021-11-07 17:32:08 "At what point will the …
 2 AlexiosAsText   MaggieEThornton 2021-11-07 15:22:14 "@MaggieEThornton If eno…
 3 tx_granny       BanjoTanJoe     2021-11-06 19:29:41 "@MillennialOther @Richa…
 4 tx_granny       MillennialOther 2021-11-06 19:29:41 "@MillennialOther @Richa…
 5 tx_granny       Richard_Harambe 2021-11-06 19:29:41 "@MillennialOther @Richa…
 6 tx_granny       RepMikeJohnson  2021-11-06 19:29:41 "@MillennialOther @Richa…
 7 PaprBagPrincss  <NA>            2021-11-05 20:31:28 "#CCChat (Common Core Ch…
 8 Tech4Learning   <NA>            2021-11-05 18:01:00 "6 ways to incorporate d…
 9 listland        <NA>            2021-11-05 12:30:40 "Top 10 Reasons Why Stan…
10 CapitolAdvocate <NA>            2021-11-05 12:28:25 "\"I’ve had students who…
# … with 301 more rows

You probably noticed one issue that we could deal with in a couple different ways. Specifically, many tweets are not directed at other users and hence the value for receiver is NA. We could keep these users as “isolates” in our network, but let’s simply remove them since our primary goal is to identify transmitters, transceivers and transcenders.

👉 Your Turn ⤵

In the code chunk below, use the drop_na() function to remove the rows with missing values from our receiver column in our ties-2 data frame since they are incomplete dyads. Save your final edgelist as ties using the <- assignment operator.

#YOUR CODE HERE
ties <- ties_2 |>
  drop_na(receiver)

Now use the code chunk below to take a quick look at our final edgelist and answer the questions that follow:

#YOUR CODE HERE
ties

1. How many edges are in our CCSS network?

   • 289

2. What do these ties/edges/connections represent?

   • They represent an interaction between two Twitter users

3. When do they start and end?

   • Start with the sender and end with the receiver

Well done!!! Before moving on to the the nodes in our network, run the following code chunk to save our edgelist to a .csv file in our data folder for later use:

write_csv(ties, "data/ccss-edgelist.csv")

Create Nodelist

The second file we need to create is a data frame that contains all the individuals in our network, often referred to as nodes or actors. This list sometimes includes attributes that we might want to examine as part of our analysis as well, like the number of Twitter followers, demographic group, country, gender, etc. This file or data frame is sometimes referred to as a nodelist or node attribute file.

To construct our basic nodelist, we will use the pivot_longer() function from the tidyverse {dplyr} package, an updated version of the gather() function introduced in the RStudio Reshape Data Primer.

Run the following code to select the usernames form our ties edgelist, merge our sender and receiver columns into a single column, and take a quick look at our new data frame.

actors_1 <- ties |>
  select(sender, receiver) |>
  pivot_longer(cols = c(sender,receiver))

actors_1

# A tibble: 578 × 2
   name     value          
   <chr>    <chr>          
 1 sender   AlexiosAsText  
 2 receiver MaggieEThornton
 3 sender   tx_granny      
 4 receiver BanjoTanJoe    
 5 sender   tx_granny      
 6 receiver MillennialOther
 7 sender   tx_granny      
 8 receiver Richard_Harambe
 9 sender   tx_granny      
10 receiver RepMikeJohnson 
# … with 568 more rows

As you can see, our sender and receiver usernames have been combined into a single column called value with a new column indicating whether they were a sender or receiver called name by default.

Since we’re only interested in usernames for our nodelist, and since we have a number of duplicate names, let’s select just the value column, rename it to actors, and use the distinct() function from {dplyr} to keep only unique names and remove duplicates:

actors <- actors_1 |>
  select(value) |>
  rename(actors = value) |> 
  distinct()

👉 Your Turn ⤵

Use the code chunk below to take a quick look at our final actors data frame and answer question that follows:

#YOUR CODE HERE
actors

How many unique node/actors are in our CCSS network?

• 92 actors

Before we move on, save your nodelist to a .csv file in your data folder using the write_csv() function as we did above:

#YOUR CODE HERE
write_csv(actors, "data/ccss-nodelist.csv")

2c. Create Network Object

Before we can begin using many of the functions from the {tidygraph} and {ggraph} packages for summarizing and visualizing our Common Core Twitter network, we first need to convert our node and edge lists into network object.

Combine Edges & Nodes

Recall that the {tidygraph} package contains a tbl_graph() function that includes the following arguments:

• edges = expects a data frame, in our case ties, containing information about the edges in the graph. The nodes of each edge must either be in a to and from column, or in the two first columns like the data frame we provided.

• nodes = expects a data frame, in our case actors, containing information about the nodes in the graph. If to and/or from are characters or names, like in our data frames, then they will be matched to the column named according to node_key in nodes, if it exists, or matched to the first column in the node list.

• directed = specifies whether the constructed graph should be directed, i.e. include information about whether each node is the sender or target of a connection. By default this is set to TRUE.

Let’s go ahead and create our network graph, name it network and print the output:

ccss_network <- tbl_graph(edges = ties, 
                          nodes = actors, 
                          directed = TRUE)

ccss_network

# A tbl_graph: 92 nodes and 289 edges
#
# A directed multigraph with 13 components
#
# Node Data: 92 × 1 (active)
  actors         
  <chr>          
1 AlexiosAsText  
2 MaggieEThornton
3 tx_granny      
4 BanjoTanJoe    
5 MillennialOther
6 Richard_Harambe
# … with 86 more rows
#
# Edge Data: 289 × 4
   from    to created_at          text                                          
  <int> <int> <dttm>              <chr>                                         
1     1     2 2021-11-07 15:22:14 @MaggieEThornton If enough were gathered coul…
2     3     4 2021-11-06 19:29:41 @MillennialOther @Richard_Harambe @RepMikeJoh…
3     3     5 2021-11-06 19:29:41 @MillennialOther @Richard_Harambe @RepMikeJoh…
# … with 286 more rows

👉 Your Turn ⤵

Take a look at the output for our simple graph above and answer the following questions:

1. Are the numbers and names of nodes and actors consistent with our actors and ties data frames? What about the integers included in the from and to columns of the Edge Data?

   • Yes, the numbers and names of all of the data is consistent

2. What do you think “components” refers to? Hint: see Chapter 6 of Carolan (2014).

   • A component is a section of the network where every actor is connected to all the other actors in the section.

3. Is our network directed or undirected?

   • Directed

A quick reminder about “directed” networks. A directed network indicates that a connection or tie is not necessarily reciprocated or mutual. For example, our network is directed because even though a user may follow, mention or reply to someone else, they may not necessarily receive a follow, mention or reply back. A facebook friendship network is undirected, however, since someone can not “friend” someone on Facebook without them also indicating a “friend” relationship, so the friendship is mutual or reciprocated.

3. EXPLORE

As noted in the previous units, exploratory data analysis involves the processes of describing your network through mathematical measures and/or data visualization. In Section 3, we learn some new functions for identifying groups and subgroups and creating node-level measures to identify central actors in our network. Specifically, in this section we’ll focus on:

1. Group Analysis. We take a look at both a top-down and bottom-up approach to identifying groups within a network by examining the weak and strong components in our network as well as existing cliques.

2. Egocentric Analysis. We also examine the size of an ego’s “local neighborhood” as well as key centrality measures for each node such as degree, closeness, and betweenness.

3a. Group Analysis: Components, Cliques & Communities

Components

As noted in Social Network Analysis and Education (Carolan 2014), one of the most basic ways in which network researchers first characterize a network’s substructure is to identify its components.

A component is a connected subgraph in which there is a path between all pairs of nodes.

Recall from our output above that our directed “multigraph” had 13 components. Let’s take a quick look at our network using the {tidygraph} autograph() function and see if we can spot the 13 components:

autograph(ccss_network)

As you can see, the autograph() function arranges our components by their size, or number of actors.

Directed graphs, such as our CCSS twitter network, have two different kinds of components: weak and strong. A weak component, as illustrated above, ignores the direction of a tie; strong components do not. In other words:

Strong components consist of nodes that are connected to one another via both directions along the path that connects them.

This concept of a component is simple and very useful, especially when analyzing a large network with many components. Often, researchers extract each component and analyze it as a separate network. We won’t be doing that here, but it would be very reasonable to remove the isolates from our network prior to further analysis.

The {igraph} package has a simple function for identifying the number of components in a network, the size of each component, and which actors belong to each. Let’s first take a quick look at the summaries for “weak” components in our network:

components(ccss_network, mode = c("weak"))

$membership
 [1]  1  1  2  2  2  2  2  3  3  4  4  4  5  5  5  5  5  5  5  5  6  6  6  3  7
[26]  7  8  8  8  8  8  9  9  9 10 10 10 11 11 11 11 11 11 11 11 11 11 11 11 11
[51] 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11
[76] 11 11 11 11 11 11 11 11 11 11 11 11 11 12 12 13 13

$csize
 [1]  2  5  3  3  8  3  2  5  3  3 51  2  2

$no
[1] 13

While not incredibly intuitive to interpret, the output indicates that there are 13 components as we discovered above, 1 component has 51 members and the smallest components only have 2 members.

👉 Your Turn ⤵

How do you think you might find the “strong” components in our network using the component() function? Use the following code chunk to test out your theory:

# YOUR CODE HERE
components(ccss_network, mode = c("strong"))

$membership
 [1] 91 92 86 87 90 89 88 84 85 81 83 82 73 80 79 78 77 76 75 74 71 72 70 69 67
[26] 68 62 66 65 64 63 59 61 60 56 57 58  5 55 54 53 52 51 50 49 48 47 46 45 44
[51] 43 42 41 40 39 38 37 36 35 34 33 32 31 30 29 28 27 26 25 24 23 22 21 20 19
[76] 18 17 16 15 14 13 12 11 10  9  8  7  6  3  4  1  2

$csize
 [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
[39] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
[77] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

$no
[1] 92

Wow! If your code was correct, you’ll see that we have a whopping 92 distinct components!

One issue with this {igraph} output, and that the {tidygraph} package is great at solving, is identifying and saving as a new variable who belongs to which component. We can sort of see from above that the most twitter users in our network belong to component 11.

As demonstrated in the previous case study, the {tidygraph} package has a very useful activate() function for working with our nodes and edges as if they were standard “tibbles,” or tidy data tables.

Let’s use the activate() function to single out the node list in our network and use the familiar mutate() and group_components() functions to create a new weak_component variable that indicates and saves the weak components to which each node belongs:

ccss_network <- ccss_network |>
  activate(nodes) |>
  mutate(weak_component = group_components(type = "weak"))

Now take a look at the nodes in our new ccss_network, which should now contain our new variable.

ccss_network

# A tbl_graph: 92 nodes and 289 edges
#
# A directed multigraph with 13 components
#
# Node Data: 92 × 2 (active)
  actors          weak_component
  <chr>                    <int>
1 AlexiosAsText               10
2 MaggieEThornton             10
3 tx_granny                    3
4 BanjoTanJoe                  3
5 MillennialOther              3
6 Richard_Harambe              3
# … with 86 more rows
#
# Edge Data: 289 × 4
   from    to created_at          text                                          
  <int> <int> <dttm>              <chr>                                         
1     1     2 2021-11-07 15:22:14 @MaggieEThornton If enough were gathered coul…
2     3     4 2021-11-06 19:29:41 @MillennialOther @Richard_Harambe @RepMikeJoh…
3     3     5 2021-11-06 19:29:41 @MillennialOther @Richard_Harambe @RepMikeJoh…
# … with 286 more rows

We could also use another handy function from the {tidygraph} package, as_tibble(), that will temporarily convert our node list to a standard table that will allow us to view every row in our node list:

as_tibble(ccss_network)

# A tibble: 92 × 2
   actors          weak_component
   <chr>                    <int>
 1 AlexiosAsText               10
 2 MaggieEThornton             10
 3 tx_granny                    3
 4 BanjoTanJoe                  3
 5 MillennialOther              3
 6 Richard_Harambe              3
 7 RepMikeJohnson               3
 8 CapitolAdvocate              5
 9 MichaelPetrilli              5
10 MaendelWealth                6
# … with 82 more rows

We could even extend this if we liked to create some standard table summaries using the summarise() function. Run the code below to create a count of the number of nodes in each strong component:

ccss_network |>
  as_tibble() |>
  group_by(weak_component) |>
  summarise(count = n()) |>
  arrange(desc(count))

# A tibble: 13 × 2
   weak_component count
            <int> <int>
 1              1    51
 2              2     8
 3              3     5
 4              4     5
 5              5     3
 6              6     3
 7              7     3
 8              8     3
 9              9     3
10             10     2
11             11     2
12             12     2
13             13     2

The activate() function from the {tidygraph} package is a powerful tool that let’s you leverage the entire suite of {tidyverse} packages to analyze nodes and edges in a network! We’ll be using the activate function again in section 3b. Egocentric Analysis: Size & Centrality to calculate node-level measures.

Important Note: In the code above, it’s important to take note when we have permanently altered our ccss_network object and when we have only made temporary changes to our network. For example, when creating a new variable for weak_component, we assigned the changes made to ccss_network to an object of the same name using the <- assignment operator. This effectively overwrites the old object with the new object because we wanted to save the new variable created. However, when converting network to a tibble consisting of nodes and their weak_component id, we did not assign to ccss_network because we did not want to permanently change to our network object to a rectangular data frame, or tibble in tidyverse speak.

👉 Your Turn ⤵

Use the activate(), mutate() and group_components() functions to create a new strong_component variable that indicates and saves the strong components to which each node belongs. Then create a summary table like above and answer the question that follows.

#YOUR CODE HERE
ccss_network <- ccss_network |>
  activate(nodes) |>
  mutate(strong_component = group_components(type = "strong"))

ccss_network |>
  as_tibble() |>
  group_by(strong_component) |>
  summarise(count = n()) |>
  arrange(desc(count))

# A tibble: 92 × 2
   strong_component count
              <int> <int>
 1                1     1
 2                2     1
 3                3     1
 4                4     1
 5                5     1
 6                6     1
 7                7     1
 8                8     1
 9                9     1
10               10     1
# … with 82 more rows

If you did this correctly, your analysis should be VERY revealing about the “conversation” around the common core based on this small sample of tweets.

1. Which strong component had the most members? Hint: this is a trick question.

   • None. They all only had one member

2. What do you think this tells us about the conversation around the common core?

   • It shows that there isn't really a conversation that is happening. There isn't a lot of back and forth on the topic in these tweets.

Cliques

Whereas top-down approaches to group analysis focus on the complete network and considers parts of it that distinct from the rest of the network, the bottom-up approach focuses is built up from simple dyads and triads that extend into dense clusters that give the network its “clumpiness.” Similar to complete network measures, there are several important properties for which precise definitions and algorithms have been developed, including cliques, clans, plexes, and cores (Carolan 2014).

Examining cliques is one bottom-up approach that reveals how groups are distributed in the network and which actors belong to which groups.

A clique is a maximally connected subgraph of nodes (> 2) in which all nodes are connected to each other.

Similar to our component analysis, the {igraph} function has a simple clique_num() function for identifying number of completely connected subgroups in a network:

clique_num(ccss_network)

Warning in clique_num(ccss_network): At
core/cliques/maximal_cliques_template.h:268 : Edge directions are ignored for
maximal clique calculation.

[1] 3

As you probably saw above, the clique_num() function does not take into account directionality of our ties. It looks like we have 3 clusters of at least 3 actors that all have ties to one another.

The {igraph} function also has a simple cliques() function for identifying members who belong to the same group. In addition to specifying the network you want to examine, this function also allows you to set the minimum and maximum number of members to included in a clique.

Let’s see if there are any cliques that contain a minimum of 4 nodes?

cliques(ccss_network, min = 4, max = NULL)

Warning in cliques(ccss_network, min = 4, max = NULL): At
core/cliques/cliquer_wrapper.c:57 : Edge directions are ignored for clique
calculations.

list()

Nope! That empty list() indicates there are no cliques with . Again, very informative about the “conversation” around the common core.

Communities

Unfortunately, the {tidygraph} package does not have a clustering function for cliques. It does, however, include a range popular clustering functions provided that use range of functions that group nodes and edges based on “community structure.” Some of these community detection algorithms are designed for directed graphs (e.g. our weak component analysis above), while others are for undirected graphs.

One community detection algorithm similar to our clique analysis above is the group_edge_betweenness() function, which groups densely connected nodes together. The betweenness centrality measures is something we will look at more closely in the next section.

Because this function can only be used with undirected networks, we will need to pipe |> our dlt_network through the following functions in sequence:

1. morph() with the to_undirected argument will temporarily change our directed network to an undirected network, or “symmetrize” our network as discussed in Carolan Carolan (2014);
2. activate() will select just our nodes list;
3. mutate() will created a new subgroup variable using the group_edgebetweenness() function;
4. unmorph() will change our undirected network back to a directed network.

Run the following code to group our nodes based on their edge betweenness and print our updated ccss_network object and take a quick look. Because this is a bit computationally intensive, it make take a minute or so to run.

ccss_network <- ccss_network |>
  morph(to_undirected) |>
  activate(nodes) |>
  mutate(sub_group = group_edge_betweenness()) |>
  unmorph()

ccss_network |>
  as_tibble()

# A tibble: 92 × 4
   actors          weak_component strong_component sub_group
   <chr>                    <int>            <int>     <int>
 1 AlexiosAsText               10               91        10
 2 MaggieEThornton             10               92        10
 3 tx_granny                    3               86         3
 4 BanjoTanJoe                  3               87         3
 5 MillennialOther              3               90         3
 6 Richard_Harambe              3               89         3
 7 RepMikeJohnson               3               88         3
 8 CapitolAdvocate              5               84         5
 9 MichaelPetrilli              5               85         5
10 MaendelWealth                6               81         6
# … with 82 more rows

As you scroll through the nodes tibble produced, you should now see at the far end a new subgroup variable that includes an ID number indicating to which densely connected cluster each node belongs.

Note, that if we had wanted to permanently convert our network to an undirected network, we could use the to_undirected argument as a stand-alone function.

ccss_undirected <-  to_undirected(ccss_network)

ccss_undirected

# A tbl_graph: 92 nodes and 289 edges
#
# An undirected multigraph with 13 components
#
# Node Data: 92 × 4 (active)
  actors          weak_component strong_component sub_group
  <chr>                    <int>            <int>     <int>
1 AlexiosAsText               10               91        10
2 MaggieEThornton             10               92        10
3 tx_granny                    3               86         3
4 BanjoTanJoe                  3               87         3
5 MillennialOther              3               90         3
6 Richard_Harambe              3               89         3
# … with 86 more rows
#
# Edge Data: 289 × 4
   from    to created_at          text                                          
  <int> <int> <dttm>              <chr>                                         
1     1     2 2021-11-07 15:22:14 @MaggieEThornton If enough were gathered coul…
2     3     4 2021-11-06 19:29:41 @MillennialOther @Richard_Harambe @RepMikeJoh…
3     3     5 2021-11-06 19:29:41 @MillennialOther @Richard_Harambe @RepMikeJoh…
# … with 286 more rows

Now let’s get a quick count of the number of members in each sub_group. Run the following code to group our nodes and print our new ccss_network object and take a quick look:

ccss_network |>
  activate(nodes) |>
  as_tibble() |>
  group_by(sub_group) |>
  summarise(count = n()) |>
  arrange(desc(count))

# A tibble: 13 × 2
   sub_group count
       <int> <int>
 1         1    51
 2         2     8
 3         3     5
 4         4     5
 5         5     3
 6         6     3
 7         7     3
 8         8     3
 9         9     3
10        10     2
11        11     2
12        12     2
13        13     2

👉 Your Turn ⤵

We’ve only scratched the surface of the range of top-down and bottom-up group analysis functions available in the {igraph} and {tidygraph} packages. In the code chunk below, try out one of the other grouping functions available in the tidygraph or igraph packages to examine groups withing the dlt1_network:

#YOUR CODE HERE
ccss_network |>
  activate(nodes) |>
  mutate(group = group_infomap())

# A tbl_graph: 92 nodes and 289 edges
#
# A directed multigraph with 13 components
#
# Node Data: 92 × 5 (active)
  actors          weak_component strong_component sub_group group
  <chr>                    <int>            <int>     <int> <int>
1 AlexiosAsText               10               91        10     9
2 MaggieEThornton             10               92        10     9
3 tx_granny                    3               86         3     3
4 BanjoTanJoe                  3               87         3     3
5 MillennialOther              3               90         3     3
6 Richard_Harambe              3               89         3     3
# … with 86 more rows
#
# Edge Data: 289 × 4
   from    to created_at          text                                          
  <int> <int> <dttm>              <chr>                                         
1     1     2 2021-11-07 15:22:14 @MaggieEThornton If enough were gathered coul…
2     3     4 2021-11-06 19:29:41 @MillennialOther @Richard_Harambe @RepMikeJoh…
3     3     5 2021-11-06 19:29:41 @MillennialOther @Richard_Harambe @RepMikeJoh…
# … with 286 more rows

3b. Egocentric Analysis: Size & Centrality

In this section, we shift out analytical lens from groups to egos and the pattern of relations in which each individual is embedded. Implicit in egocentric analysis, and also very intuitive to understand, is that:

An individual’s (ego) connections with others (alters) provides access to some instrumental (e.g., advice) or expressive (e.g., support) resource that may, in turn, be beneficial.

As summarized by Carolan Carolan (2014), the structure and content of these relations between an ego and a set of alters is the focus of egocentric network analysis. Since our research question aims to identify “key actors” in our network, we will look at two characteristics of an ego’s connections that are indicative their importance: size and centrality.

Size

Recall from our previous case study focused on complete network analysis, one simple and often ignored structural property of a social network is its size. This also applies to egocentric analysis.

Size is simply the number of alters that are directly connected to ego.

This characteristic is also sometimes referred to as an ego’s local neighborhood, and as Carolan points out, size matters, because it indicates the amount of potential resources available in one’s network. For example, a student with a small friendship network may be at a disadvantage when it comes seeking support on schoolwork or advice on course or college enrollment.

We can use the same {tidygraph} process that we used for identifying groups and individual membership to calculate the size for each node. Specifically, we will need to activate() the nodes in our network and create a new variable which we’ll call size that is calculated using the local_size() function.

And since it’s much easier to inspect our data as a tibble than using the graph output, we’ll also convert our node to a table and arrange() in descending order by size to make it easier to see the range in values of our network:

ccss_network <- ccss_network |>
  activate(nodes) |>
  mutate(size = local_size())

ccss_network |> 
  as_tibble() |>
  arrange(desc(size)) |> 
  select(actors, size)

# A tibble: 92 × 2
   actors           size
   <chr>           <dbl>
 1 rdsathene          51
 2 waltduro            8
 3 tx_granny           5
 4 BanjoTanJoe         5
 5 namaikatikura       5
 6 MillennialOther     3
 7 Richard_Harambe     3
 8 RepMikeJohnson      3
 9 CapitolAdvocate     3
10 MaendelWealth       3
# … with 82 more rows

Centrality

As we learned in our previous case study and readings, a key structural property of networks is the concept of centralization. A network that is highly centralized is one in which relations are focused on a small number of actors or even a single actor in a network, whereas ties in a decentralized network are diffuse and spread over a number of actors.

Degree

One of the most common descriptives reported in network studies and a primary measure of centralization is degree.

Degree is the number of ties to and from an ego. In a directed network, in-degree is the number of ties received, whereas out-degree is the number of ties sent.

The {tidygraph} package has an aptly named function centrality_degree() for calculating degree, in-degree, and out-degree for all actors in a network.

Run the following create two new variables for our nodes: in_dgree and out_degree. We’ll set the mode = argument in centrality_degree() function to "in" and "out" respectively.

ccss_network <- ccss_network |>
  activate(nodes) |>
  mutate(in_degree = centrality_degree(mode = "in"),
         out_degree = centrality_degree(mode = "out"))
  
ccss_network |> 
  as_tibble()

# A tibble: 92 × 7
   actors          weak_component strong_component sub_g…¹  size in_de…² out_d…³
   <chr>                    <int>            <int>   <int> <dbl>   <dbl>   <dbl>
 1 AlexiosAsText               10               91      10     2       0       1
 2 MaggieEThornton             10               92      10     2       1       0
 3 tx_granny                    3               86       3     5       0       4
 4 BanjoTanJoe                  3               87       3     5       1       3
 5 MillennialOther              3               90       3     3       2       0
 6 Richard_Harambe              3               89       3     3       2       0
 7 RepMikeJohnson               3               88       3     3       2       0
 8 CapitolAdvocate              5               84       5     3       2       2
 9 MichaelPetrilli              5               85       5     2       1       0
10 MaendelWealth                6               81       6     3       0       2
# … with 82 more rows, and abbreviated variable names ¹​sub_group, ²​in_degree,
#   ³​out_degree

A Quick Note about Multigraphs and Tie Strength

You may have noticed in this network that indegree for twitter user “rdsathene” exceeds the total number of nodes in our network and are probably wondering how that is possible. Recall that our network is currently treated at a “multigraph,” indicating that some dyads have multiple edges. Therefore, some edges between dyads are counted more than once.

Alternatively, we could “simplify” our network by collapsing multiple edges between the same actors and assigning a value to edges between actors indicating tie strength. In this case it would be a measure of frequency of replies between actors. However, in the process of simplifying our network, we would lose important contextual information about the context of each tie, such as the when (timestamp) each tie was created.

👉 Your Turn ⤵

Let’s dust off our ggplot() skills by completing the following code to create a histogram that shows the distribution of in_degree (i.e. the number of replies or mentions a user has received) for Twitter users in our network.

ccss_network |> 
  as_tibble() |>
  ggplot() +
  geom_histogram(aes(x = in_degree))

`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

Hint: Your output should look something like this:

As you can see, roughly half the egos in the network received about 5 replies or mentions from other users, and no one received more than 6 replies.

Compositional and Variance Measures

Carolan Carolan (2014) notes that there are two types of measures that can emerge from egocentric data: compositional and variance. Compositional measures are those created by counting or taking the average of egocentric network variables. Variance measures, on the other hand, are simply those that are derived by calculating the variance or standard deviation of the egocentric network variables.

While we could calculate individually the mean and variance for each egocentric measure created above using the summarise() function demonstrated earlier, R has a package and function to save us the effort.

To quickly calculate summary statistics for our nodes, including compositional and variance measures for our egocentric measures, we can use the skim() function from the {skimr} package to take a quick look at the variables in our node list:

ccss_network |> 
  as_tibble() |>
  skim()

Data summary

Name	as_tibble(ccss_network)
Number of rows	92
Number of columns	7
_______________________
Column type frequency:
character	1
numeric	6
________________________
Group variables	None

Variable type: character

skim_variable	n_missing	complete_rate	min	max	empty	n_unique	whitespace
actors	0	1	3	15	0	92	0

Variable type: numeric

skim_variable	n_missing	complete_rate	mean	sd	p0	p25	p50	p75	p100	hist
weak_component	0	1	3.25	3.43	1	1.00	1.0	4.25	13	▇▁▁▁▁
strong_component	0	1	46.50	26.70	1	23.75	46.5	69.25	92	▇▇▇▇▇
sub_group	0	1	3.25	3.43	1	1.00	1.0	4.25	13	▇▁▁▁▁
size	0	1	2.80	5.15	2	2.00	2.0	2.00	51	▇▁▁▁▁
in_degree	0	1	3.14	2.14	0	1.00	5.0	5.00	6	▆▁▁▁▇
out_degree	0	1	3.14	25.63	0	0.00	0.0	0.00	246	▇▁▁▁▁

We can see, for example, that egos in our network are connected with on average just 2.8 alters. Notice also that our mean for in-degree and out-degree are identical. This will always be the case since for every tie that goes “in” there is always one going “out.”

Just like our {tidygraph} package, the {skimr} package also plays nicely with other {tidyverse} packages for data wrangling and analysis. For example, let’s select twitter users connected with fewer than 51 alters and group_by() their weak_component id to calculate compositional and variance measures for size for each component:

ccss_network |> 
  as_tibble() |>
  filter(size < 51) |>
  group_by(weak_component) |>
  select(size) |>
  skim()

Adding missing grouping variables: `weak_component`

Data summary

Name	select(…)
Number of rows	91
Number of columns	2
_______________________
Column type frequency:
numeric	1
________________________
Group variables	weak_component

Variable type: numeric

skim_variable	weak_component	n_missing	complete_rate	mean	sd	p0	p25	p50	p75	p100	hist
size	1	0	1	2.00	0.00	2	2	2	2.0	2	▁▁▇▁▁
size	2	0	1	2.75	2.12	2	2	2	2.0	8	▇▁▁▁▁
size	3	0	1	3.80	1.10	3	3	3	5.0	5	▇▁▁▁▅
size	4	0	1	2.60	1.34	2	2	2	2.0	5	▇▁▁▁▂
size	5	0	1	2.33	0.58	2	2	2	2.5	3	▇▁▁▁▃
size	6	0	1	2.33	0.58	2	2	2	2.5	3	▇▁▁▁▃
size	7	0	1	2.33	0.58	2	2	2	2.5	3	▇▁▁▁▃
size	8	0	1	2.33	0.58	2	2	2	2.5	3	▇▁▁▁▃
size	9	0	1	3.00	0.00	3	3	3	3.0	3	▁▁▇▁▁
size	10	0	1	2.00	0.00	2	2	2	2.0	2	▁▁▇▁▁
size	11	0	1	2.00	0.00	2	2	2	2.0	2	▁▁▇▁▁
size	12	0	1	2.00	0.00	2	2	2	2.0	2	▁▁▇▁▁
size	13	0	1	2.00	0.00	2	2	2	2.0	2	▁▁▇▁▁

As illustrated by the output above, we can see that “otheredprof” (i.e., other educational professionals including our facilitators) were connected with the most individuals on average (18.9), while educators in “Operations” connected with the fewest individuals on average (3).

Closeness & Betweenness

Two other centrality measures for identifying key actors in a network are closeness and betweenness. Whereas degree centrality is a local measure and can be calculated without needing information about the overall pattern of relations among ego and alters, closeness and betweenness address this shortcoming by taking into account indirect ties among all the alters in an ego’s network.

Closeness centrality captures the average distance an actor is from all other actors in the network and is a function of an actor’s geodesic distance to others, which equals the length of shortest path connecting a pair of actors. It’s an intuitively appealing measure in that being “close” to others may provide an advantage by giving you early access to new information or by indicating how quickly an actor can exchange something with others (Knoke & Yang, 2008).

Betweenness centrality measures the degree to which other actors lie on the shortest geodesic path between pairs of actors in the network. Betweenness may be indicative of how actors control or mediate the relations between pairs of actors that are not directly connected. Therefore, this measure is an important indicator of control over information exchange or resource flows within a network (Knoke & Yang, 2008). The more any given actor is located on the path between numerous dyads, the higher that actor’s potential to control network interactions. This concept and its associated measure is very appealing, as it captures the degree to which an actor occupies a strategically important position.

👉 Your Turn ⤵

Use the code chunk below to add a closeness and betweenness variable to the nodes in our network and answer the questions that follow. Hint: you may want to look at the functions to calculate node and edge centrality on the {tidygraph} package website.

# YOUR CODE HERE
ccss_network <- ccss_network |>
  activate(nodes) |>
  mutate(closeness = centrality_closeness(mode = "out"))

ccss_network <- ccss_network |>
  activate(nodes) |>
  mutate(betweenness = centrality_betweenness(directed = FALSE))

as_tibble(ccss_network)

# A tibble: 92 × 9
   actors          weak_…¹ stron…² sub_g…³  size in_de…⁴ out_d…⁵ close…⁶ betwe…⁷
   <chr>             <int>   <int>   <int> <dbl>   <dbl>   <dbl>   <dbl>   <dbl>
 1 AlexiosAsText        10      91      10     2       0       1   1         0  
 2 MaggieEThornton      10      92      10     2       1       0 NaN         0  
 3 tx_granny             3      86       3     5       0       4   0.25      1.5
 4 BanjoTanJoe           3      87       3     5       1       3   0.333     1.5
 5 MillennialOther       3      90       3     3       2       0 NaN         0  
 6 Richard_Harambe       3      89       3     3       2       0 NaN         0  
 7 RepMikeJohnson        3      88       3     3       2       0 NaN         0  
 8 CapitolAdvocate       5      84       5     3       2       2   1         1  
 9 MichaelPetrilli       5      85       5     2       1       0 NaN         0  
10 MaendelWealth         6      81       6     3       0       2   0.5       1  
# … with 82 more rows, and abbreviated variable names ¹​weak_component,
#   ²​strong_component, ³​sub_group, ⁴​in_degree, ⁵​out_degree, ⁶​closeness,
#   ⁷​betweenness

1. Which two actors have the highest betweenness and what is unique about their role in the course?

   • rdsathene and waltduro
   • They have the two highest outdegrees as well

2. Do these same two actors also have the highest closeness? How might you interpret that?

   • No, they have the two lowest closeness values (excluding N/A). I would interpret this as showing that these two actors are central to the network. A lot of connections are made through them and they are very close to all other actors in the network.

Again, we’ve only scratched the surface of the vast number of centrality measures available in the {igraph} and {tidygraph} packages. Feel free to explore other functions to calculate node and edge centrality in these two packages.

3c. Visualize Network Descriptives

If you recall from 1a. Review the Research section, one of the defining characteristics of the social network perspective is its use of graphic imagery to represent actors and their relations with one another. To emphasize this point, Carolan (2014) reported that:

The visualization of social networks has been a core practice since its foundation more than 90 years ago and remains a hallmark of contemporary social network analysis. 

These visual representations of the actors and their relations, i.e. the network, are called a sociogram. Most network graph layout algorithms by default place actors who are most “central” to the network, such as those with higher node degrees, in the center of the sociogram. As we’ll see in just a bit, those two actors with hundreds of ties will be placed by most graph layout algorithms in the center of the graph.

Create a Simple Sociogram

Recall from previous labs that building a network viz with {ggraph} is intentionally very much like building a standard graph with ggplot(), R’s most popular package for data visualization.

Also recall that the ggraph(), geom_node_*(), and geom_edge*() functions are the three basic, but very powerful functions, required to create a simple sociogram. Respectively, these three functions takes care of setting up the graph layout and “adding” the nodes and edges to the sociogram using the + operator.

👉 Your Turn ⤵

Use the ggraph() function with Fruchterman-Reingold (FR) layout and add the geom_node_point() and geom_edge_link() functions to create a simple sociogram:

#YOUR CODE HERE
ggraph(ccss_network, layout = "fr") +
  geom_node_point() +
  geom_edge_link()

Warning: Using the `size` aesthetic in this geom was deprecated in ggplot2 3.4.0.
ℹ Please use `linewidth` in the `default_aes` field and elsewhere instead.

Add Node Degree

Recall from prior labs that like {ggplot2}, geoms can include aesthetics, or aes for short, such as alpha for transparency, as well as color, shape and size.

Let’s included the aes() function and arguments such as size = and color =, which we can set to our out_degree, and also add our theme_graph() layer introduced in previous labs to help highlight our primary “transmitters”:

ggraph(ccss_network, layout = "fr") + 
geom_node_point(aes(size = out_degree,
                    color = out_degree)) +
  geom_edge_link() +
  theme_graph()

Let’s add another layer with some node text and labels. Since node labels are a geometric element, we can apply aesthetics to them as well, like color and size. Let’s also include the repel = argument that when set to TRUE will avoid overlapping text.

ggraph(ccss_network, layout = "fr") + 
  geom_node_point(aes(size = out_degree,
                      color = out_degree)) +
  geom_node_text(aes(label = actors,
                     size = out_degree/2,
                     color = out_degree),
                 repel=TRUE) +
  geom_edge_link() +
    theme_graph()

Warning: ggrepel: 1 unlabeled data points (too many overlaps). Consider
increasing max.overlaps

Note: If you’re having difficulty seeing the sociogram in the small R Markdown code chunk, you can copy and paste the code in the console and it will show in the Viewer pane and then you can enlarge and even save as an image file.

Modify Edges

Now, let’s include some arguments like arrow = to include some arrows 1mm in length, an end_cap = around each node to keep arrows from overlapping the them, and set the transparency of our edges to alpha = .2 so our edges fade more into the background and help keep the focus on our nodes:

ggraph(ccss_network, layout = "fr") + 
  geom_node_point(aes(size = out_degree,
                      color = out_degree)) +
  geom_node_text(aes(label = actors,
                     size = out_degree/2,
                     color = out_degree),
                 repel=TRUE) +
  geom_edge_link(arrow = arrow(length = unit(1, 'mm')), 
                 end_cap = circle(3, 'mm'),
                 alpha = .2) +
    theme_graph()

Warning: ggrepel: 2 unlabeled data points (too many overlaps). Consider
increasing max.overlaps

👉 Your Turn ⤵

Try modifying the code below by tweaking the included function/arguments or adding new ones for layouts, nodes, and edges to highlight the main “transcenders” or “transceivers” in our network. See if you can also make your plot either more “aesthetically pleasing” and/or more purposeful in what it’s trying to communicate.

There are no right or wrong answers, just have some fun trying out different approaches!

#YOUR CODE HERE
ggraph(ccss_network, layout = "fr") + 
  geom_node_point(aes(size = in_degree,
                      color = in_degree)) +
  geom_node_text(aes(label = actors,
                     size = in_degree/2,
                     color = in_degree),
                 repel=TRUE) +
  geom_edge_link(arrow = arrow(length = unit(1, 'mm')), 
                 end_cap = circle(3, 'mm'),
                 alpha = .3) +
    theme_graph()

Alternate Graph Representations

The {tidygraph} package has a wide range of functions to generate alternate representations of graphs. They can be used as stand alone functions to permanently alter your network, or as an argument with the morph() function to temporarily change your network depending on the analyses you need to perform.

ccss_network |>
  ggraph(layout = "fr") + 
  geom_edge_link(arrow = arrow(length = unit(1, 'mm')), 
                 end_cap = circle(3, 'mm'),
                 alpha = .2) + 
  theme_graph() + 
  geom_node_voronoi(aes(fill = factor(sub_group),
                         alpha = .05), 
                    max.radius = .5,
                    show.legend = FALSE) +
  geom_node_point()

This clearly does not provide much insight, nor is it any improvement to our previous sociogram, but it definitely is colorful!!

4. MODEL

As highlighted in Chapter 3 of Data Science in Education Using R, the Model step of the data science process entails “using statistical models, from simple to complex, to understand trends and patterns in the data.” The authors note that while descriptive statistics and data visualization during the Explore step can help us to identify patterns and relationships in our data, statistical models can be used to help us determine if relationships, patterns and trends are actually meaningful.

4a. Sentiment Analysis

We will not explore the use of statistical inference and models for social networks until Unit 4, but take a look at The Mood of the Common Core Factions section from the #COMMONCORE project. Sentiment analysis is a common text mining technique that tries to evaluate words for their emotional association, or even “mood”, similar to the approached used by the #COMMONCORE project.

The tidytext package we tapped into earlier provides access to several sentiment lexicons for text analysis based on unigrams, i.e., single words. These lexicons contain many English words and the words are assigned scores for positive/negative sentiment, and also possibly emotions like joy, anger, sadness, and so forth. However, the {vader} package provides a relatively easy entry into modeling positive and negative tweet sentiment.

The vader Package 📦

The {vader} package is for the Valence Aware Dictionary for sEntiment Reasoning (VADER), a rule-based model for general sentiment analysis of social media text and specifically attuned to measuring sentiment in microblog-like contexts.

To learn more about the {vader} package and its development, take a look at the article by Hutto and Gilbert (2014), VADER: A Parsimonious Rule-based Model forSentiment Analysis of Social Media Text.

Let’s go ahead and load the VADER library:

library(vader)

Note: The {vader} package can take quite some time to run on large datasets, but the example shown with our small subset of tweets should run fairly quickly.

Come to the Dark Side

Unlike other approaches demonstrated in ECI 588, which assign sentiment to each individual word in a corpus of tweets, the VADER assigns a number of different sentiment measures based on the context of the entire social-media post, or in our case a tweet. This saves quite a bit of data wrangling allowing us to work with our tweets in their original format.

VADER basically has just one function, vader_df() that does one thing and expects just one column from one data frame. He’s very single minded! Let’s give VADER our ccss_tweets data frame we created in the beginning of this case study and include the $ operator to include only the text column containing our tweets.

vader_ccss <- vader_df(ccss_tweets$text)

vader_ccss

                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               text
1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          At what point will the #commoncore integrate #compsci and #netizenship into curriculums for countries that are deeply dependent on #technology as a learning ‘solution’?
2                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               @MaggieEThornton If enough were gathered could run a discourse analysis, but the gold standard would be to do something like Supovitz's #CommonCore project https://t.co/qROBwDpJCZ
3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   @MillennialOther @Richard_Harambe @RepMikeJohnson This is the result of a #commoncore education
4                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             #CCChat (Common Core Chat)\n90) #CCSS (Common Core State Standards)\n91) #CommonCore\n92) #EdPolicy\n93) #EdReform\n94) #ESSA https://t.co/IRYo2HCr41
5                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    6 ways to incorporate digital writing across the curriculum https://t.co/ISp4J9Pwnk #ccss #eBooks #digitalstorytelling https://t.co/tJpBZCdbMf
6                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       Top 10 Reasons Why Standardized Testing Is Here to Stay https://t.co/5cSYQragyv #commoncore
7                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               "I’ve had students who take home essays and they will misspell ‘American’ and forget to capitalize it.” Thanks #commoncore! https://t.co/3b4ZRrI6pj
8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               "Again, I can’t be sure that I’m right. Maybe it was #CommonCore" @MichaelPetrilli \n"It was #commoncore." @CapitolAdvocate https://t.co/bKFbvxElDX
9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   @MillennialOther @Richard_Harambe @RepMikeJohnson This is the result of a #commoncore education
10                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 @4Patrick7 @BookerSparticus What an ignoramus. What possible excuse is there for someone too old to blame #commoncore? Willful blindness, partisanship and tearing the social fabric of America.
11                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           A lot of the crt debate reminds me of the common core math debate. Parents just upset something is new and different combined with isolated examples of bad lesson plans. Been a while since I heard complaints about common core math....  #CRT #commoncore #teaching
12                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #Republicans have been uniting us around #Florida #CommonCore for over 10 years now and #NewMexico launched "it" @ the grassroots level so not sure why #CRTinschools would be a threat to the #energy holding the #Anonymous #QANON Attack the Capitol agct #DNA connections together?
13                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        Listen to "Episode 19: Big Lies in K-12"  (Nov. 3, 2021) at  https://t.co/UWaMsLUGAt \n#phonics   #constructivism   #commoncore  #dumbingdown  #socialism
14                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              The Shrewd Administrator\n#E320CannabisStudy\n#E320Leadership \n#E320Education \n#NVACS #CCSS #NGSS #ISTE \nhttps://t.co/eUGV6whHGv
15                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Never forget #CommonCore! https://t.co/co0UCdphI5
16                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         @Tori_Sachs @GovWhitmer Charter backers hold no moral high ground \n\n@MiGOP's (@onetoughnerd @MISenate @MI_Republicans @pjcolbeck ) had an opportunity to give parents a voice - primarily by removing DC's & Lansing's stranglehold over local curriculum\n\nBut they threw #StopCommonCore advocates #UnderTheBus
17                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      🥜 job #AWFL on airplane doesn’t want to breathe the “unvaccinated oxygen”of the passenger next to her.  \n#commoncore #Science #edumacation #education #COVIDIOTS #COVID19
18                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     If you replace "harvest the blood of children" with "indoctrinates children with socialist propaganda" it's little more than a rerun of the vacuous hysterics we saw in response to #CommonCore. #edreform #politics https://t.co/QOd6skgSuH
19                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        Is #commoncore math delaying the counting in #NewJersey?  Get it done! 🔥
20                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           Dear Dems, please be careful not to pass that 100% mark!!! #CommonCore
21                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              In the past couple of elections, the Dirty Democrats have proved that teaching & learning #CommonCore math is screwing up the vote counting counters. Weird that the “discrepancies” always happen in key areas. #VirginiaVotes
22                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Someone at FadeawayWorld doesn't know how to count. They put L.James at 3 & K.A.Jabbar at 4. Both have 10 appearances w/ KAJ winning 6 rings & LJ winning 4 rings. Shouldn't KAJ be ranked 3rd and LJ be 4th?? Is this due to common core math?? #fadeawayworld #commoncore #CommonSense
23                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              groups attempt ban"true history.#commoncore #Tennessee Nowhere instructed to make students feel less than as retired #teacher I initiated learning promoted critical thinking so history wouldn't repeat itself \n #TheView https://t.co/Ra54AYmnjO
24                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Trump: "#CommonCore is gone [when I'm electd]." #IACaucus https://t.co/Rb7UrTIEtc
25                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        @jonrappoport How the #CommonCore technocrats take your future-adult children's guns by taking their privacy now. https://t.co/CZmGf4qod5
26                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Trump: "#CommonCore is gone [when I'm electd]." #IACaucus https://t.co/Rb7UrTIEtc
27                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       Michael acts like the captain of a titanic know as #commoncore. Defends it even after it sunk. Tells people it wasn't the ships fault despite the overwhelming evidence that it was a complete and utter #failure. https://t.co/Fl7j4LeMRE
28                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       Why are we still accepting #commoncore #math? It was created by a dozen money grabbing fools who never taught math in a K-12 setting. \n\nThis has me absolutely murderous right now. And I love math god damn it. https://t.co/QjOsjZ0y69
29                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      There's more to learning than ABC's & 123's https://t.co/qrHcv0JY2P no #commoncore #playmatters https://t.co/gZi3zcSPcB
30                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           @unusual_whales stable.. what? is that something to do with the vaccines? #CBDC #CCSS #BuildBackBetter
31                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  @NorthmanTrader also it was unable to collect the taxes.. thats why they need #WEFagenda, cashless payments, #CBDC #CCSS  #GreenPass #GreenDeal\nand minorities type socialism like #MeToo etc.. and #COVID19 to #DigitalTransformation #ID2020 \n#ToPayHisTaxes\n#BuildBackBetter #BBB https://t.co/iaKOOMsZTb
32                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       @zerohedge #CCSS China Credit Score System\n🥕💉🏏🍆🥒🥕💉🏏🥒🍆🇪🇺🌈🦄🍭🌈🍭🌈 #DoNotComply #LetsGoBrandon
33                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 @SikhForTruth its more like #CBDC + #CCSS (#ChinaCreditScoringSystem) than #blockchain, but yes.
34                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      There's more to learning than ABC's & 123's https://t.co/qrHcv0JY2P no #commoncore #playmatters https://t.co/gZi3zcSPcB
35                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   Sending your child to a public school is like telling them walk across the road during rush hour traffic. Nothing good can come from it! #Parents #CRT #CommonCore\n#Indoctrination \n#Pastors #Church https://t.co/P1Cnw0iyEU
36                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        @johnpavlovitz @nazuzuwin Similar to their fear of #CommonCore. Knowledge terrifies them.
37                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         Cape Coral schools, Chesterfield Public Schools, #commoncore\nCity of Falls Church, Colts Neck School District\n(K/DRA 3) Read Aloud for Small and Large\nFREE activity at\nhttps://t.co/48MLi94V7C\nCheck out our site: https://t.co/t6LySc6rZ3 https://t.co/iEZMwZbbof
38                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 I LOVE being in the classroom with the students, but completing the @danielson_group questionnaire is burn out central.  \n#danielsonframework #teacher #teachertwitter #administration #life #over #content #motivator #inspirer #education #commoncore https://t.co/vOEvx0aE5h
39                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 I LOVE being in the classroom with the students, but completing the @danielson_group questionnaire is burn out central.  \n#danielsonframework #teacher #teachertwitter #administration #life #over #content #motivator #inspirer #education #commoncore https://t.co/fEO7VEDsfM
40                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 I LOVE being in the classroom with the students, but completing the @danielson_group questionnaire is burn out central.  \n#danielsonframework #teacher #teachertwitter #administration #life #over #content #motivator #inspirer #education #commoncore https://t.co/DjT45PZOBq
41                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 I LOVE being in the classroom with the students, but completing the @danielson_group questionnaire is burn out central.  \n#danielsonframework #teacher #teachertwitter #administration #life #over #content #motivator #inspirer #education #commoncore https://t.co/vOEvx0aE5h
42                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 I LOVE being in the classroom with the students, but completing the @danielson_group questionnaire is burn out central.  \n#danielsonframework #teacher #teachertwitter #administration #life #over #content #motivator #inspirer #education #commoncore https://t.co/DjT45PZOBq
43                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 I LOVE being in the classroom with the students, but completing the @danielson_group questionnaire is burn out central.  \n#danielsonframework #teacher #teachertwitter #administration #life #over #content #motivator #inspirer #education #commoncore https://t.co/fEO7VEDsfM
44                 @EatAtJoes7 @upperleftwino @TosoFlash @BDemocratsfor @manifesto2000 @DynastyEnd @pixfiber @Dallas4Bernie @BySallyAlbright @MiddleMolly @BobForDinner @TruthRuththe @shelly_laughing @Sailing_fool @SaginawsSong @banquet_beggars @BubblesToBurst @CyborgBjorn @elevenstars @pepper26potts @itsjustkay0k @darealwiles @FatherOfTheBir9 @McCadeMiller2 @prettynobodyco @ulcerative @M4M4ALL @ReadeAlexandra @TaraReadeTruth @glennkirschner2 @DNC @TaranaBurke @RTAmericaNews @ChrisLynnHedges @maxkeiser @LeeCamp @GovJVentura @JohnRalstonSaul @OurRevolutionPR @OurRevolution @ProudSocialist @TRNshow @ninaturner @Bioregional @kthalps @EdProgress @bc_disability @candisability @GSVteam @NewsHour Still holding a candle for #BillGates' Corporate, er, I mean Common Core State Standards? That's too bad, because the white supremacist #CCSS trash is essentially dead. https://t.co/IRX2ZUf7jf\n\n#JoeBiden \n#Bidenflation \n#BidenIsAFailure \n#JoeBidensAmerica \n#JimCrowJoe #Biden
45                                     @EatAtJoes7 @BDemocratsfor @manifesto2000 @upperleftwino @DynastyEnd @pixfiber @Dallas4Bernie @BySallyAlbright @MiddleMolly @BobForDinner @TruthRuththe @shelly_laughing @Sailing_fool @SaginawsSong @banquet_beggars @BubblesToBurst @CyborgBjorn @elevenstars @pepper26potts @itsjustkay0k @darealwiles @FatherOfTheBir9 @McCadeMiller2 @prettynobodyco @ulcerative @M4M4ALL @ReadeAlexandra @TaraReadeTruth @glennkirschner2 @DNC @TaranaBurke @RTAmericaNews @ChrisLynnHedges @maxkeiser @LeeCamp @GovJVentura @JohnRalstonSaul @OurRevolutionPR @OurRevolution @ProudSocialist @TRNshow @ninaturner @Bioregional @kthalps @EdProgress @bc_disability @candisability @GSVteam @NewsHour Odd, the first book pictured is by Professor Wendy Brown. Wonder why you decided to exclude her photo? At any rate you #BillGates fanbois already know that the critiques of #CCSS from the left are on a different basis than those from the far-right. https://t.co/9GwJdx7TNW
46 @EatAtJoes7 @BDemocratsfor @manifesto2000 @upperleftwino @DynastyEnd @pixfiber @Dallas4Bernie @BySallyAlbright @MiddleMolly @BobForDinner @TruthRuththe @shelly_laughing @Sailing_fool @SaginawsSong @banquet_beggars @BubblesToBurst @CyborgBjorn @elevenstars @pepper26potts @itsjustkay0k @darealwiles @FatherOfTheBir9 @McCadeMiller2 @prettynobodyco @ulcerative @M4M4ALL @ReadeAlexandra @TaraReadeTruth @glennkirschner2 @DNC @TaranaBurke @RTAmericaNews @ChrisLynnHedges @maxkeiser @LeeCamp @GovJVentura @JohnRalstonSaul @OurRevolutionPR @OurRevolution @ProudSocialist @TRNshow @ninaturner @Bioregional @kthalps @EdProgress @bc_disability @candisability @GSVteam @NewsHour LOL. Yeah, my opposition to a white supremacist, corporate curriculum (#CCSS) based on the "great man" theory of history and a literature list that intentionally eschewed POC really drives home your point #BidenBoi.\n\n#JoeBiden \n#Bidenflation \n#BidenIsAFailure \n#JimCrowJoe #Biden https://t.co/ztrG8yx07i
47                                                                 @EatAtJoes7 @BDemocratsfor @manifesto2000 @upperleftwino @DynastyEnd @pixfiber @Dallas4Bernie @BySallyAlbright @MiddleMolly @BobForDinner @TruthRuththe @shelly_laughing @Sailing_fool @SaginawsSong @banquet_beggars @BubblesToBurst @CyborgBjorn @elevenstars @pepper26potts @itsjustkay0k @darealwiles @FatherOfTheBir9 @McCadeMiller2 @prettynobodyco @ulcerative @M4M4ALL @ReadeAlexandra @TaraReadeTruth @glennkirschner2 @DNC @TaranaBurke @RTAmericaNews @ChrisLynnHedges @maxkeiser @LeeCamp @GovJVentura @JohnRalstonSaul @OurRevolutionPR @OurRevolution @ProudSocialist @TRNshow @ninaturner @Bioregional @kthalps @EdProgress @bc_disability @candisability @GSVteam @NewsHour It's so transparent why you support #CCSS. Let me guess, you're on the flight logs with #BillGates and visited the island together?\n\n#JoeBiden \n#Bidenflation \n#BidenIsAFailure \n#JoeBidensAmerica \n#JimCrowJoe #Biden https://t.co/TngS0MICex
48          @EatAtJoes7 @manifesto2000 @upperleftwino @DynastyEnd @pixfiber @Dallas4Bernie @BDemocratsfor @BySallyAlbright @MiddleMolly @BobForDinner @TruthRuththe @shelly_laughing @Sailing_fool @SaginawsSong @banquet_beggars @BubblesToBurst @CyborgBjorn @elevenstars @pepper26potts @itsjustkay0k @darealwiles @FatherOfTheBir9 @McCadeMiller2 @prettynobodyco @ulcerative @M4M4ALL @ReadeAlexandra @TaraReadeTruth @glennkirschner2 @DNC @TaranaBurke @RTAmericaNews @ChrisLynnHedges @maxkeiser @LeeCamp @GovJVentura @JohnRalstonSaul @OurRevolutionPR @OurRevolution @ProudSocialist @TRNshow @ninaturner @Bioregional @kthalps @EdProgress @bc_disability @candisability @GSVteam @NewsHour Bill Gates and David Coleman's #CCSS was formed on the basis of the "Great Man" theory of history and E. D. Hirsch, Jr.’s “core knowledge” list of literature which, by design, excluded works by #POC. CCSS is literally a white supremacist curriculum. No wonder you support it. https://t.co/K9axvIRaFO
49                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Check out Common Core Math in Action Book Grades K-2 Catherine Jones Kuhns Marrie Lasater  https://t.co/BQd6VYWDJS via @eBay #math #commoncore #commoncoremath #classroom #homeschool #classroom
50                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            CCD Teacher Mug, Funny Sarcastic RE Teaching Superpower Coffee Tea Cup Gift https://t.co/6QsKuheowm #yes #ceramic #commoncoreofdata #ccdteachermug #commoncore #imateacher #teachersuperpower #coffeemug #cup https://t.co/s3P7AaYhTI
51                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    Thrilled to be working again w @kenoc7 to help #schoolleaders lead #standardsbasedgrading in their schools  https://t.co/u77aih9tXb #ed #cpchat #EdAdmin #edupd #edulearning #schoolprchat #tweachers #twittereducator #CommonCore #NGSS #C3Standards https://t.co/FggJV4wtY7
                                                                                                                                                                                                                                                                                                       word_scores
1                                                                                                                                                                                                                                       {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.3}
2                                                                                                                                                                                                                                      {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.25, 0, 0, 0, 0}
3                                                                                                                                                                                                                                                                                {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
4                                                                                                                                                                                                                                                                             {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
5                                                                                                                                                                                                                                                                       {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
6                                                                                                                                                                                                                                                                           {0.8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
7                                                                                                                                                                                                                                                {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.9, 0, 0, 0, 1.9, 0, 0}
8                                                                                                                                                                                                                                                         {0, 0, 0, 0, 1.3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
9                                                                                                                                                                                                                                                                                {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
10                                                                                                                                                                                                                       {0, 0, 0, 0, -1.9, 0, 0, 0.3, 0, 0, 0, 0, 0, 0, 0, -1.4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
11                                                                                                                                                                {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.6, 0, 0, 0, 0, 0, 0, 0, -1.3, 0, 0, -2.5, 0, 0, 0, 0, 0, 0, 0, 0, -1.7, 0, 0, 0, 0, 0, 0, 0}
12                                                                                                                                                          {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.5, 0, 0, 0, 0, 0, 0, 0, -1.167979, 0, 0, 0, 0, 0, -2.4, 0, 0, 1.1, 0, 0, 0, 0, -2.1, 0, 0, 0, 0, 0, 0}
13                                                                                                                                                                                                                                                       {0, 0, 0, 0, 0, -1.8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
14                                                                                                                                                                                                                                                                               {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
15                                                                                                                                                                                                                                                                                                {0, 0.666, 0, 0}
16                                                                                                                                                                                   {0, 0, 0, 0, 0, -0.6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
17                                                                                                                                                                                                                                         {0, 0, 0, 0, 0, 0, 0.3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
18                                                                                                                                                                                                      {0, 0, 0, 0, 0, 0, 0, 0, 0, -0.6, 0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.8, 0, 0, 0, 0, 0, 0, 0, 0, 0}
19                                                                                                                                                                                                                                                                            {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
20                                                                                                                                                                                                                                                                      {1.6, 0, 1.3, 0, 0.6, 0, 0, 0, 0, 0, 0, 0}
21                                                                                                                                                                                                 {0, 0, 0, 0, 0, 0, 0, -1.9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.9, 0, 0, 0, 0, 0, -0.7, 0, 0, 0, 0, 0, 0, 0, 0, 0}
22                                                                                                                                                      {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.4, 0, 0, 0, 0, 2.4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
23                                                                                                                                                                                                                    {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.8, -1.3, 0, 0, 0, 0, 0, 0, 0, 0}
24                                                                                                                                                                                                                                                                                     {0, 0, 0, 0, 0, 0, 0, 0, 0}
25                                                                                                                                                                                                                                                                {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
26                                                                                                                                                                                                                                                                                     {0, 0, 0, 0, 0, 0, 0, 0, 0}
27                                                                                                                                                                                      {0, 0, 1.5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.258, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2.593, 0}
28                                                                                                                                                                          {0, 0, 0, 0, 1.6, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, -2.2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -3.493, 0, 0, 0, 0, 3.2, 0, 1.1, -1.7, 0, 0}
29                                                                                                                                                                                                                                                                      {0, 0, 0, 0, 0, 0, 0, 0, 0, -1.2, 0, 0, 0}
30                                                                                                                                                                                                                                                                    {0, 1.2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
31                                                                                                                                                                                                  {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
32                                                                                                                                                                                                                                                                                   {0, 0, 0, 1.6, 0, 0, 0, 0, 0}
33                                                                                                                                                                                                                                                                    {0, 0, 0, 0.8965, 0, 0, 0, 0, 0, 0, 0, 2.55}
34                                                                                                                                                                                                                                                                      {0, 0, 0, 0, 0, 0, 0, 0, 0, -1.2, 0, 0, 0}
35                                                                                                                                                                                                         {0, 0, 0, 0, 0, 0, 0, 0, 1.5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.406, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
36                                                                                                                                                                                                                                                                         {0, 0, 0, 0, 0, -2.2, 0, 0, 0, -2.6, 0}
37                                                                                                                                                                                                         {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.033, 0, 0, 0, 0, 0, 0, 0, 0, 0}
38                                                                                                                                                                                                               {0, 1.9665, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.3, 0, 0, 0}
39                                                                                                                                                                                                               {0, 1.9665, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.3, 0, 0, 0}
40                                                                                                                                                                                                               {0, 1.9665, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.3, 0, 0, 0}
41                                                                                                                                                                                                               {0, 1.9665, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.3, 0, 0, 0}
42                                                                                                                                                                                                               {0, 1.9665, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.3, 0, 0, 0}
43                                                                                                                                                                                                               {0, 1.9665, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.3, 0, 0, 0}
44                                               {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2.5, 0, 0, 0, 0.5, 0, 0, 0, 0, -3.3, 0, 0, 0, 0, 0, 0, 0}
45                {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
46                              {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.083, 1.2, 0, 0, 0, 0, 0, 0.5, 0, 0, 0, 0, 0, 0, 3.1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
47                                                                    {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
48 {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4, 0, 0, 0, 0, 0, 0, 0, 0, 0.5, 0, -1.2, 0, 0, 1.7, 0, 0}
49                                                                                                                                                                                                                                        {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
50                                                                                                                                                                                                                                    {0, 0, 0, 1.9, -1, 0, 0, 0, 0, 0, 0, 1.9, 0, 1.7, 0, 0, 0, 0, 0, 0, 0, 0, 0}
51                                                                                                                                                                                                                        {1.9, 0, 0, 0, 0, 0, 0, 0, 1.7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
   compound   pos   neu   neg but_count
1     0.318 0.091 0.909 0.000         0
2     0.502 0.124 0.876 0.000         1
3     0.000 0.000 1.000 0.000         0
4     0.000 0.000 1.000 0.000         0
5     0.000 0.000 1.000 0.000         0
6     0.202 0.141 0.859 0.000         0
7     0.316 0.138 0.779 0.082         0
8     0.318 0.119 0.881 0.000         0
9     0.000 0.000 1.000 0.000         0
10   -0.612 0.042 0.784 0.173         0
11   -0.878 0.000 0.783 0.217         0
12   -0.724 0.070 0.761 0.169         0
13   -0.421 0.000 0.859 0.141         0
14    0.000 0.000 1.000 0.000         0
15    0.240 0.395 0.605 0.000         0
16    0.077 0.046 0.916 0.039         1
17    0.077 0.056 0.944 0.000         0
18   -0.660 0.000 0.824 0.176         0
19    0.000 0.000 1.000 0.000         0
20    0.749 0.450 0.550 0.000         0
21   -0.670 0.000 0.827 0.173         0
22    0.830 0.139 0.861 0.000         0
23    0.128 0.087 0.841 0.072         0
24    0.000 0.000 1.000 0.000         0
25    0.000 0.000 1.000 0.000         0
26    0.000 0.000 1.000 0.000         0
27    0.043 0.112 0.803 0.085         0
28   -0.126 0.205 0.600 0.195         0
29   -0.296 0.000 0.845 0.155         0
30    0.374 0.165 0.835 0.000         0
31    0.361 0.067 0.933 0.000         0
32    0.382 0.245 0.755 0.000         0
33    0.665 0.353 0.647 0.000         1
34   -0.296 0.000 0.845 0.155         0
35    0.099 0.079 0.852 0.068         0
36   -0.778 0.000 0.570 0.430         0
37    0.617 0.112 0.888 0.000         0
38    0.806 0.206 0.794 0.000         1
39    0.806 0.206 0.794 0.000         1
40    0.806 0.206 0.794 0.000         1
41    0.806 0.206 0.794 0.000         1
42    0.806 0.206 0.794 0.000         1
43    0.806 0.206 0.794 0.000         1
44   -0.807 0.017 0.896 0.087         0
45   -0.494 0.000 0.956 0.044         0
46    0.898 0.124 0.876 0.000         0
47    0.402 0.034 0.966 0.000         0
48    0.572 0.079 0.877 0.044         0
49    0.000 0.000 1.000 0.000         0
50    0.758 0.288 0.644 0.068         0
51    0.681 0.177 0.823 0.000         0

Take a look at vader_summary data frame using the View() function and sort by most positive and negative tweets.

Does it generally seem accurately identify positive and negative tweets? Could you find any that you think were mislabeled?

• Some of these tweets are definitely mislabled, especially in the most negative tweets. Some tweets are really negative in general but are really supportive of Common Core. It can generally tell the overall sentiment, but it can't detect sarcasm and it won't necessarily be the sentiment of what is being talked about.

Hutto, C. & Gilbert, E. (2014) provide an excellent summary of the VADER package on their GitHub repository and I’ve copied and explanation of the scores below:

• The compound score is computed by summing the valence scores of each word in the lexicon, adjusted according to the rules, and then normalized to be between -1 (most extreme negative) and +1 (most extreme positive). This is the most useful metric if you want a single unidimensional measure of sentiment for a given sentence. Calling it a ‘normalized, weighted composite score’ is accurate.

NOTE: The compound score is the one most commonly used for sentiment analysis by most researchers, including the authors.

Let’s take a look at the average compound score for our CCSS sample of tweets:

mean(vader_ccss$compound)

[1] 0.1506471

Overall, does your CCSS tweets sample lean slightly negative or positive? Is this what you expected?

What if we wanted to compare these results more easily to our other sentiment lexicons just to check if result are fairly consistent?

The author’s note that it is also useful for researchers who would like to set standardized thresholds for classifying sentences as either positive, neutral, or negative. Typical threshold values are:

• positive sentiment: compound score >= 0.05

• neutral sentiment: (compound score > -0.05) and (compound score < 0.05)

• negative sentiment: compound score <= -0.05

Let’s give that a try and see how things shake out:

vader_ccss_summary <- vader_ccss |> 
  mutate(sentiment = ifelse(compound >= 0.05, "positive",
                            ifelse(compound <= -0.05, "negative", "neutral"))) |>
  count(sentiment, sort = TRUE) |> 
  spread(sentiment, n) |> 
  relocate(positive) |>
  mutate(ratio = negative/positive)

vader_ccss_summary

  positive negative neutral     ratio
1       28       12      11 0.4285714

Not quite as bleak as we might have expected according to something with the name VADER!

👉 Your Turn ⤵

Use the code chunk below to see if you can identify the “haters” in our network merging the sentiment scores results stored in our vader_ccss data frame with our original ccss_tweets data frame. Hint: you may need to use a join_() function.

# YOUR CODE HERE
left_join(ccss_tweets, vader_ccss, by = join_by(text)) |>
  arrange(compound)

Warning in left_join(ccss_tweets, vader_ccss, by = join_by(text)): Each row in `x` is expected to match at most 1 row in `y`.
ℹ Row 3 of `x` matches multiple rows.
ℹ If multiple matches are expected, set `multiple = "all"` to silence this
  warning.

# A tibble: 63 × 96
   user_id status_id created_at          screen_…¹ text  source displ…² reply_…³
     <dbl>     <dbl> <dttm>              <chr>     <chr> <chr>    <dbl>    <dbl>
 1 1.45e18   1.46e18 2021-11-04 13:04:01 weareint… "A l… Twitt…     262 NA      
 2 1.96e 7   1.45e18 2021-10-31 05:26:28 rdsathene "@Ea… Twitt…     275  1.45e18
 3 2.11e 8   1.46e18 2021-11-01 15:40:41 thenurse… "@jo… Twitt…      63  1.46e18
 4 1.35e18   1.46e18 2021-11-04 03:23:32 OizumiSt… "#Re… Twitt…     279 NA      
 5 1.39e18   1.46e18 2021-11-03 00:31:59 NYCPatri… "In … Twitt…     227 NA      
 6 1.41e 7   1.46e18 2021-11-03 19:53:53 petercook "If … Twitt…     212 NA      
 7 1.37e18   1.46e18 2021-11-04 13:16:29 MaendelW… "@4P… Twitt…     164  1.46e18
 8 1.96e 7   1.45e18 2021-10-30 18:09:10 rdsathene "@Ea… Twitt…     272  1.45e18
 9 1.14e 8   1.46e18 2021-11-04 03:07:16 educatt   "Lis… Twitt…     152 NA      
10 3.66e 7   1.46e18 2021-11-02 00:23:38 procm2    "The… Twitt…     140 NA      
# … with 53 more rows, 88 more variables: reply_to_user_id <dbl>,
#   reply_to_screen_name <chr>, is_quote <lgl>, is_retweet <lgl>,
#   favorite_count <dbl>, retweet_count <dbl>, quote_count <lgl>,
#   reply_count <lgl>, hashtags <chr>, symbols <lgl>, urls_url <chr>,
#   urls_t.co <chr>, urls_expanded_url <chr>, media_url <chr>,
#   media_t.co <chr>, media_expanded_url <chr>, media_type <chr>,
#   ext_media_url <chr>, ext_media_t.co <chr>, ext_media_expanded_url <chr>, …

1. Who were the most negative twitter users in our network?

   • The screen names of the top three most negative in our network were:

     • weareinthistog9

     • rdsathene

     • thenurse75

5. Communicate

The final step in our workflow/process is sharing the results of our analysis with wider audience. Krumm et al. (2018) have outlined the following 3-step process for communicating with education stakeholders findings from an analysis:

1. Select. Communicating what one has learned involves selecting among those analyses that are most important and most useful to an intended audience, as well as selecting a form for displaying that information, such as a graph or table in static or interactive form, i.e. a “data product.”

2. Polish. After creating initial versions of data products, research teams often spend time refining or polishing them, by adding or editing titles, labels, and notations and by working with colors and shapes to highlight key points.

3. Narrate. Writing a narrative to accompany the data products involves, at a minimum, pairing a data product with its related research question, describing how best to interpret the data product, and explaining the ways in which the data product helps answer the research question.

For your Independent Study next week, you will have an opportunity to create a simple “data product” designed to illustrate additional insights about the the Twitter datasets included in your data folder or another dataset of your choosing.

For now, we will wrap up this assignment by converting our work into a webpage that can be used to communicate your learning and demonstrate some of your new R skills. To do so, you will need to “render” your document by clicking the Render button in the menu bar at that the top of this Quarto file. This will do two things; it will:

1. check through all your code for any errors; and,

2. create a file in your directory that you can use to share you work through RPubs (see screenshot below to publish), GitHub Pages, Quarto Pub, or any other methods.

Congratulations - you’ve completed the Unit 2 case study!

References

Carolan, Brian. 2014. “Social Network Analysis and Education: Theory, Methods & Applications.” https://doi.org/10.4135/9781452270104.

Estrellado, Ryan A., Emily A. Freer, Jesse Mostipak, Joshua M. Rosenberg, and Isabella C. Velásquez. 2020. Data Science in Education Using r. Routledge. https://doi.org/10.4324/9780367822842.

Silge, Julia, and David Robinson. 2017. Text Mining with r: A Tidy Approach. " O’Reilly Media, Inc.".

Supovitz, Jonathan, Alan J Daly, Miguel del Fresno, and Christian Kolouch. 2017. “Commoncore Project.” Retrieved April 3: 2019. http://www.hashtagcommoncore.com/.

Wickham, Hadley, and Garrett Grolemund. 2016. R for Data Science: Import, Tidy, Transform, Visualize, and Model Data. " O’Reilly Media, Inc.". https://r4ds.had.co.nz.