Social Media Intelligence: Analyzing Political Polarization in AU

This project explores political polarization within the Australian political landscape using social media intelligence techniques. It aims to determine whether political parties are disjoint and to examine the relationships among political leaders and their supporters on Twitter. The study involves collecting data on the friends of prominent politicians from different parties, analyzing the relationships between these individuals, and testing hypotheses related to political ideologies and affiliations. The analysis includes examining common friends among politicians, exploring relationships among politicians' friends, computing density and community neighborhood overlap, calculating homophily between parties, and employing hierarchical clustering to visualize the network structure. The findings suggest that political leaders have unique sets of friends, implying a degree of disjointedness among political parties. The study also reveals evidence of relationships among different Twitter users who are friends of political leaders. This assignment is available on Desklib, a platform providing study tools for students.

1RUNNING HEAD: Media Intelligence and social problems
Table of Contents
1. Introduction..............................................................................................................4
1.1 Background Information..........................................................................................4
1.2 Context.....................................................................................................................5
1.3 Purpose of study.......................................................................................................5
1.4 Objectives of study...................................................................................................6
2.3 Study limitations......................................................................................................6
2. Methodology.............................................................................................................7
2.1 Data..........................................................................................................................7
2.2 Instruments...............................................................................................................7
2.4 Project Assumptions.................................................................................................7
2.5 Test Hypotheses.......................................................................................................8
Null hypotheses..............................................................................................................8
Alternative hypotheses...................................................................................................8
H11- Political parties are not disjoint.............................................................................8
3. Results.......................................................................................................................9
4. Discussion................................................................................................................19
5. Conclusion...............................................................................................................21
5.1 Answering research questions................................................................................21
6. References...............................................................................................................23

2
Media Intelligence and social problems
1. Introduction
1.1 Background Information
With the recent growing rate of modern social interactions and availability of
information, it is relatively easy to come across compelling information on different
people about their interests, either public or private. Depending on your knowledge
interests and alignment. Some of the information that can be found publicly include:
i. Political affiliations of different community members
ii. Consumer perceptions of different market products
iii. Media preference, etcetera.
Owing the evolution of media sources, specifically social media. Interaction among
different users of a social media platform can be monitored, partially to improve user
experience and partially for reasons such as, monitoring criminal activities and by
marketers to gain insight on consumer preferences. Additionally, the data can also be
used by social scientists to explore relationships among members, treating them as
autonomous members of a society drawing conclusions on how they relate to each
other and even explore their perception of each other.
Kahne and Bowyer (2018) in their study on the significance of social media on
politics note that, “the Internet has become a dominant force when it comes to how
campaign funds are raised, information is accessed, perspectives are shared and
discussed, and individuals are mobilized to act politically.” In a glance we can
therefore argue that, the role of social media in our lives is too monumental to be
overlooked and this new digital platform born incubated approximately 20 years ago

3
Media Intelligence and social problems
by the likes of company’s such as Yahoo.
Final Plenary (2012) argue that social media is integral in politics and ought to be
used to “involve and inform citizens in public policy-making and in the formation of
governments.”
1.2 Context
Political polarization often caused by what Michael and McCarty (2012) identify as
“centered on the emergence of excessive partisanship and deep ideological divisions
among political elites and officeholders.” Abrams and Fiorina (2012) define
polarization as “diverging preferences that cluster toward ideological poles.” Research
on the preferences of supporters of major political parties indicate that polarization
exist among more partisan citizens, (Abramowitz & Saunders, 2008). Malhotra (2014)
argue that polarization occurs when different individuals assume political and social
groups as separated.
Arguably, in as much as there are a myriad number of causes to polarization among
the notable being money and media presence in politics, polarization has got a fair
share of its effects on the affected society, this range from:
i. Contributing to social mayhem and mistrust among members of a society
ii. Disruption of social structures through partisan in treating members of a different
political ideology
iii. Transformation of congress institutions making the congress more partisan with
centered negotiations among party leaders (Michael and McCarty, 2012)

4
Media Intelligence and social problems
1.3 Purpose of study
In this paper, we will explore the alleged polarization in the Australian political scene
through exploring relationships among the political leaders of major parties and their
friends (supporters). As such, we will identify whether there are partisan political
views among the members of a political party i.e. through determining whether a
friend of a political leaders is friends to another leader or even more. Additionally, we
will examine the relationships among the friends of a political leader and ascertain the
existence of the relationships among the friends. The politicians explored for our
study are:
 Malcolm Turnbull (Liberal Party of Australia)
 Bill Shorten (Australian Labor Party)
 Michael McCormack (National Party of Australia)
1.4 Objectives of study
In undertaking this study we aim to:
i. Determine whether there exists polarization in Australian politics, I.e. whether
political parties are disjoint
ii. Utilize data-mining skills to explore social data
iii. Explore the truth of the fallacy that “Members of different political parties are
enemies”
2.3 Study limitations
Some of the limitations of our study include the failure to include more political
leaders I.e. the independent variables and chose only three as a representation of the
Australian political landscape, additionally, we only consider ten friends from each of

5
Media Intelligence and social problems
the three politicians i.e n=30 which statistically is an inadequate sample to represent a
population.

6
Media Intelligence and social problems
2. Methodology
2.1Data
2.1.1 Description
To obtain data for our study we imported 10 friends for each of the interest politicians
from Tweeter. This would enable us determine existence of a the relationship among
the politicians and the friends (supporters). Later on, we imported data of 1000 friends
of each of the politician friends, with which we would determine the relationship
among the autonomous friends with each other.
2.1.2 Cleaning of data
To ensure clean data,we checked for outliers and explored the distribution of the data
through carrying out descriptive analysis and to determine the nature of our data.
2.2 Instruments
The instruments required for this research project were:
i. A tweeter handle and application
ii. Computer installed with R-studio statistical programming language with required
packages
2.4 Project Assumptions
During analysis we made a number of assumptions. This included: that the friends of
each politician is also a member of the political party headed by the politician, in
addition, all the friends of the friends of a politician are Australian and they are
interested in politics. We also assume that there is a relationship between political

7
Media Intelligence and social problems
ideologies and choice of a political party to be a member in, lastly, there is either a
joint or disjoint relationship among the variables.
2.5 Test Hypotheses
We came up with three assumptions to enable us answer our research questions, these
were:
Null hypotheses
Our null hypotheses were:
H0- People are enemies owing to different political ideologies and inclination
H01- Political parties are disjoint
Alternative hypotheses
Our alternative hypotheses were:
H1- People are not enemies despite different political ideologies and inclination
H11- Political parties are not disjoint

8
Media Intelligence and social problems
3. Results
This section is divided into five sub-sections of each of the project requirement that
has only code and output for our analysis. The analysis is later discussed in the nest
section
3.1Collecting twitter Ids and data
library(httr)
library(twitteR)
library(twitteR)
library("openssl")
library("httpuv")
library("base64enc")
tweeter_app_key<- "oGXa45ahfSAaIf2rJuitqZNNN"
tweeter_secret <- "fKcAdOOFLEH0njAX1mGHAwQbiHP1zTmMU2ccloGDUWi85EhWoh"
tweeter_app_access_token <- "818345262221590528-
AJLPKsLFZ79Bu1o9YV4EnfekzlRZ3iX"
tweeter_app_access_token_Secret <-
"y0Ck6jEF2XXgde5KpbBfxLnzKLdGli8AJ806CbjPEJZZy"
setup_twitter_oauth(tweeter_app_key, tweeter_secret, tweeter_app_access_token,
tweeter_app_access_token_Secret)
#twitter id’s
Malcolm= getUser("@TurnbullMalcolm")
Malcolm_friends <- Malcolm$getFriends(10)
Malcolm
[1] "TurnbullMalcolm"
Malcolm_friends
$`36275767`
[1] "CommGamesAUS"
$`103999368`
[1] "sydneyroosters"
$`2300779218`
[1] "MarisePayne"
$`111449574`
[1] "alannahmadeline"
$`208528305`
[1] "tweetinjules"
$`36872712`
[1] "SenatorRyan"
$`224846346`
[1] "SouthernStars"

9
Media Intelligence and social problems
$`49574044`
[1] "nthqldcowboys"
$`263378242`
[1] "TheMatildas"
$`110855776`
[1] "Socceroos"
names(Malcolm_friends)
[1] "36275767" "103999368" "2300779218" "111449574" "208528305"
[6] "36872712" "224846346" "49574044" "263378242" "110855776"
#Bill
Shorten<-getUser("@billshortenmp")
Shorten_friends<-Shorten$getFriends(10)
Shorten_friends
$`1368753678`
[1] "DomLorrimer"
$`135057136`
[1] "WSFM1017"
$`3168147002`
[1] "GOFoundationAU"
$`129402565`
[1] "joelcreasey"
$`889348386779836416`
[1] "LoveIslandAU"
$`20356090`
[1] "adamrichard"
$`21654257`
[1] "Briggs"
$`216876629`
[1] "lisa_fernandez"
$`37621265`
[1] "steenrasko"
$`110138384`
[1] "MahaliaBarnes"
names(Shorten_friends)
[1] "1368753678" "135057136" "3168147002"
[4] "129402565" "889348386779836416" "20356090"
[7] "21654257" "216876629" "37621265"
[10] "110138384"
# Michael McCormack
McCormack<-getUser("@M_McCormackMP")

10
Media Intelligence and social problems
McCormack_friends
$`851828803219410944`
[1] "4roadsafety"
$`39937499`
[1] "FarmOnline"
$`987679153`
[1] "ALGAcomms"
$`17939037`
[1] "ProfBrianCox"
$`626111072`
[1] "astroduff"
$`48927175`
[1] "TomMcIlroy"
$`2393844469`
[1] "lindareynoldswa"
$`2602764942`
[1] "maculardisease"
$`359750088`
[1] "ItaButtrose"
$`1317336420`
[1] "600gap"
names( McCormack_friends)
[1] "851828803219410944" "39937499" "987679153"
[4] "17939037" "626111072" "48927175"
[7] "2393844469" "2602764942" "359750088"
[10] "1317336420"
3.1.1 Comparing whether there are common friends among politicians
#comparing Malcolm and Shorten
names(Malcolm_friends)%in%names(Shorten_friends)
[1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
#comparing Malcolm and Michael McCormack
names(Malcolm_friends)%in%names(McCormack_friends)
[1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
#comparing Shorten and Michael McCormack
names(Shorten_friends)%in%names(McCormack_friends)

11
Media Intelligence and social problems
[1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
3.2Exploring relationship among the politicians’ friends
#malcolm friends data
data=c(Malcolm_friends[[1]]$getFriends(1000),Malcolm_friends[[2]]
$getFriends(1000),Malcolm_friends[[3]]$getFriends(1000),Malcolm_friends[[4]]
$getFriends(1000),Malcolm_friends[[5]]$getFriends(1000))
data=c(Malcolm_friends[[3]]$getFriends(1000))
data1=c(Malcolm_friends[[1]]$getFriends(1000),Malcolm_friends[[2]]$getFriends(1000))
Malcolm_friends_data=c(data1,data)
Malcolm_friendsdata=names(Malcolm_friends_data)
summary(Malcolm_friendsdata)
Length Class Mode
1897 character character
#Shorten friends data
Shortenfriendsdata=Shorten_friends[[1]]$getFriends(1000)
Shortenfriendsdata1=c(Shorten_friends[[2]]$getFriends(1000),Shorten_friends[[3]]
$getFriends(1000))
Shortenfriends_data=c(Shortenfriendsdata,Shortenfriendsdata1)
Shortenfriends.data=names(Shortenfriends_data)
summary(Shortenfriends.data)
Length Class Mode
1498 character character
#Michael McCormack friends data
McCormackfriendsdata<-c(McCormack_friends[[1]]
$getFriends(1000),McCormack_friends[[2]]$getFriends(1000),McCormack_friends[[3]]
$getFriends(1000))
McCormackfriendsdata1=names( McCormackfriendsdata)
summary(McCormackfriendsdata1)
Length Class Mode
1033 character character
#complete data
complete_data<-c(Shortenfriends.data,McCormackfriendsdata1,Malcolm_friendsdata)
summary(complete_data)
Length Class Mode
4428 character character
#Examining relationship between the friends data
#storing relationship data in adjacency table
relashionshpdta <- read.table(header = TRUE, stringsAsFactors = FALSE,
textConnection("property node
A 118942188
B 128440862

12
Media Intelligence and social problems
C 15330300
D 165660881
E 172285969"))
> Data_on_relat <- read.table(header = TRUE, stringsAsFactors = FALSE,
textConnection("property node
A 118942188
B 128440862
C 15330300
D 165660881
E 172285969
F 1727581236
G 1946210480
H 210702383
I 22753831
J 251976625
K 252331819
L 25649600
M 273193751
N 275822100
O 284933456
P 28791311
Q 34865851
R 374829299
S 381646547
T 46081904
U 47273818
V 50510649
W 511528899
X 57181602
Y 611598902
Z 620755965
A1 64644122
A2 64705123
A3 68640609
A4 813286 "))
relationshipdata <- full_join(Data_on_relat, Data_on_relat, c('property' ='property')) %>%
select(-property) %>%
filter(node.x != node.y) %>%
group_by(node.x, node.y) %>%
summarise(weight = n())
graph_from_adjacency_matrix(storeddata , mode
="undirected",weighted=NULL,diag=FALSE)
IGRAPH 96c7212 UN-- 60 30 --
+ attr: name (v/c)
+ edges from 96c7212 (vertex names):
[1] A1 --118942188 B2 --128440862 C3 --15330300 D4 --165660881
[5] E5 --172285969 F6 --1727581236 G7 --1946210480 H8 --210702383
[9] I9 --22753831 J10 --251976625 K1 --252331819 L2 --25649600
[13] M3 --273193751 N4 --275822100 O5 --284933456 P6 --28791311
[17] Q7 --34865851 R8 --374829299 S9 --381646547 T10 --46081904
[21] U11 --47273818 V12 --50510649 W13 --511528899 X14 --57181602
[25] Y15 --611598902 Z16 --620755965 A117--64644122 A2 --64705123
[29] A3 --68640609 A4 --813286
asgraph<-graph_from_adjacency_matrix(storeddata , mode
="undirected",weighted=NULL,diag=FALSE)
plot.igraph(grp,layout=layout.circle,edge.color="grey")
plot.igraph(grp,layout=layout.circle,edge.color="red")