Gov 51: Summarizing Bivariate Relationships: Cross-tabs, Scatterplots, and Correlation
Matthew Blackwell
Harvard University
1 / 18
Gov 51: Summarizing Bivariate Relationships: Cross-tabs, - - PowerPoint PPT Presentation
Gov 51: Summarizing Bivariate Relationships: Cross-tabs, Scatterplots, and Correlation Matthew Blackwell Harvard University 1 / 18 Efgect of assassination attempts 0 Boumedienne 41 -9 ## polityafter interwarbefore ## 1 -6.00 0 ## 2
Matthew Blackwell
Harvard University
1 / 18
leaders <- read.csv(”data/leaders.csv”) head(leaders[, 1:7]) ## year country leadername age politybefore ## 1 1929 Afghanistan Habibullah Ghazi 39
## 2 1933 Afghanistan Nadir Shah 53
## 3 1934 Afghanistan Hashim Khan 50
## 4 1924 Albania Zogu 29 ## 5 1931 Albania Zogu 36
## 6 1968 Algeria Boumedienne 41
## polityafter interwarbefore ## 1
## 2
## 3
## 4
## 5
## 6
2 / 18
table(Before = leaders$civilwarbefore, After = leaders$civilwarafter) ## After ## Before 1 ## 0 177 19 ## 1 27 27
3 / 18
table(Before = leaders$civilwarbefore, After = leaders$civilwarafter) ## After ## Before 1 ## 0 177 19 ## 1 27 27
3 / 18
table(Before = leaders$civilwarbefore, After = leaders$civilwarafter) ## After ## Before 1 ## 0 177 19 ## 1 27 27
3 / 18
table(Before = leaders$civilwarbefore, After = leaders$civilwarafter) ## After ## Before 1 ## 0 177 19 ## 1 27 27
3 / 18
table(Before = leaders$civilwarbefore, After = leaders$civilwarafter) ## After ## Before 1 ## 0 177 19 ## 1 27 27
3 / 18
prop.table(table(Before = leaders$civilwarbefore, After = leaders$civilwarafter)) ## After ## Before 1 ## 0 0.708 0.076 ## 1 0.108 0.108
prop.table(table(Before = leaders$civilwarbefore, After = leaders$civilwarafter), margin = 1) ## After ## Before 1 ## 0 0.9031 0.0969 ## 1 0.5000 0.5000
4 / 18
prop.table(table(Before = leaders$civilwarbefore, After = leaders$civilwarafter)) ## After ## Before 1 ## 0 0.708 0.076 ## 1 0.108 0.108
prop.table(table(Before = leaders$civilwarbefore, After = leaders$civilwarafter), margin = 1) ## After ## Before 1 ## 0 0.9031 0.0969 ## 1 0.5000 0.5000
4 / 18
prop.table(table(Before = leaders$civilwarbefore, After = leaders$civilwarafter)) ## After ## Before 1 ## 0 0.708 0.076 ## 1 0.108 0.108
prop.table(table(Before = leaders$civilwarbefore, After = leaders$civilwarafter), margin = 1) ## After ## Before 1 ## 0 0.9031 0.0969 ## 1 0.5000 0.5000
4 / 18
prop.table(table(Before = leaders$civilwarbefore, After = leaders$civilwarafter)) ## After ## Before 1 ## 0 0.708 0.076 ## 1 0.108 0.108
prop.table(table(Before = leaders$civilwarbefore, After = leaders$civilwarafter), margin = 1) ## After ## Before 1 ## 0 0.9031 0.0969 ## 1 0.5000 0.5000
4 / 18
prop.table(table(Before = leaders$civilwarbefore, After = leaders$civilwarafter)) ## After ## Before 1 ## 0 0.708 0.076 ## 1 0.108 0.108
prop.table(table(Before = leaders$civilwarbefore, After = leaders$civilwarafter), margin = 1) ## After ## Before 1 ## 0 0.9031 0.0969 ## 1 0.5000 0.5000
4 / 18
prop.table(table(Before = leaders$civilwarbefore, After = leaders$civilwarafter)) ## After ## Before 1 ## 0 0.708 0.076 ## 1 0.108 0.108
prop.table(table(Before = leaders$civilwarbefore, After = leaders$civilwarafter), margin = 1) ## After ## Before 1 ## 0 0.9031 0.0969 ## 1 0.5000 0.5000
4 / 18
5 / 18
5 10
5 10
Democracy Before and After Assassination Attempts
Democracy Level (Before) Democracy Level (After) 5 / 18
plot(x = leaders$politybefore, y = leaders$polityafter, xlab = ”Democracy Level (Before)”, ylab = ”Democracy Level (After)”, main = ”Democracy Before and After Assassination Attempts”)
6 / 18
plot(x = leaders$politybefore, y = leaders$polityafter, xlab = ”Democracy Level (Before)”, ylab = ”Democracy Level (After)”, main = ”Democracy Before and After Assassination Attempts”)
6 / 18
plot(x = leaders$politybefore, y = leaders$polityafter, xlab = ”Democracy Level (Before)”, ylab = ”Democracy Level (After)”, main = ”Democracy Before and After Assassination Attempts”)
6 / 18
leaders[1, c(”politybefore”, ”polityafter”)] ## politybefore polityafter ## 1
7 / 18
leaders[1, c(”politybefore”, ”polityafter”)] ## politybefore polityafter ## 1
7 / 18
leaders[1, c(”politybefore”, ”polityafter”)] ## politybefore polityafter ## 1
5 10
5 10
Democracy Before and After Assassination Attempts
Democracy Level (Before) Democracy Level (After) 7 / 18
leaders[1, c(”politybefore”, ”polityafter”)] ## politybefore polityafter ## 1
5 10
5 10
Democracy Before and After Assassination Attempts
Democracy Level (Before) Democracy Level (After) 8 / 18
leaders[2, c(”politybefore”, ”polityafter”)] ## politybefore polityafter ## 2
5 10
5 10
Democracy Before and After Assassination Attempts
Democracy Level (Before) Democracy Level (After) 9 / 18
leaders[3, c(”politybefore”, ”polityafter”)] ## politybefore polityafter ## 3
5 10
5 10
Democracy Before and After Assassination Attempts
Democracy Level (Before) Democracy Level (After) 10 / 18
leaders[3, c(”politybefore”, ”polityafter”)] ## politybefore polityafter ## 3
5 10
5 10
Democracy Before and After Assassination Attempts
Democracy Level (Before) Democracy Level (After) 11 / 18
z-score of 𝘺𝘫 =
𝘺𝘫 − mean of 𝘺
standard deviation of 𝘺
z-score of (𝘣𝘺𝘫 + 𝘤) = z-score of 𝘺𝘫
12 / 18
z-score of 𝘺𝘫 =
𝘺𝘫 − mean of 𝘺
standard deviation of 𝘺
z-score of (𝘣𝘺𝘫 + 𝘤) = z-score of 𝘺𝘫
12 / 18
z-score of 𝘺𝘫 =
𝘺𝘫 − mean of 𝘺
standard deviation of 𝘺
z-score of (𝘣𝘺𝘫 + 𝘤) = z-score of 𝘺𝘫
12 / 18
z-score of 𝘺𝘫 =
𝘺𝘫 − mean of 𝘺
standard deviation of 𝘺
z-score of (𝘣𝘺𝘫 + 𝘤) = z-score of 𝘺𝘫
12 / 18
z-score of 𝘺𝘫 =
𝘺𝘫 − mean of 𝘺
standard deviation of 𝘺
z-score of (𝘣𝘺𝘫 + 𝘤) = z-score of 𝘺𝘫
12 / 18
𝟤 𝘰 − 𝟤
𝘰
∑
𝘫=𝟤
[(z-score for 𝘺𝘫) × (z-score for 𝘻𝘫)]
13 / 18
𝟤 𝘰 − 𝟤
𝘰
∑
𝘫=𝟤
[(z-score for 𝘺𝘫) × (z-score for 𝘻𝘫)]
13 / 18
𝟤 𝘰 − 𝟤
𝘰
∑
𝘫=𝟤
[(z-score for 𝘺𝘫) × (z-score for 𝘻𝘫)]
13 / 18
𝟤 𝘰 − 𝟤
𝘰
∑
𝘫=𝟤
[(z-score for 𝘺𝘫) × (z-score for 𝘻𝘫)]
13 / 18
𝟤 𝘰 − 𝟤
𝘰
∑
𝘫=𝟤
[(z-score for 𝘺𝘫) × (z-score for 𝘻𝘫)]
13 / 18
𝟤 𝘰 − 𝟤
𝘰
∑
𝘫=𝟤
[(z-score for 𝘺𝘫) × (z-score for 𝘻𝘫)]
13 / 18
2 4
2 4 x y
mean(X) mean(Y)
14 / 18
2 4
2 4 x y
mean(X) mean(Y) Y > mean(Y) X > mean(X) Y > mean(Y) X < mean(X) Y < mean(Y) X < mean(X) Y < mean(Y) X > mean(X)
positive correlation.
15 / 18
2 4
2 4 x y
mean(X) mean(Y) Y > mean(Y) X > mean(X) Y > mean(Y) X < mean(X) Y < mean(Y) X < mean(X) Y < mean(Y) X > mean(X)
positive correlation.
15 / 18
2 4
2 4 x y
mean(X) mean(Y) Y > mean(Y) X > mean(X) Y > mean(Y) X < mean(X) Y < mean(Y) X < mean(X) Y < mean(Y) X > mean(X)
positive correlation.
15 / 18
2 4
2 4 x y
mean(X) mean(Y) Y > mean(Y) X > mean(X) Y > mean(Y) X < mean(X) Y < mean(Y) X < mean(X) Y < mean(Y) X > mean(X)
positive correlation.
15 / 18
2 4
2 4 x y
mean(X) mean(Y) Y > mean(Y) X > mean(X) Y > mean(Y) X < mean(X) Y < mean(Y) X < mean(X) Y < mean(Y) X > mean(X)
15 / 18
2 4
2 4 x y
mean(X) mean(Y) Y > mean(Y) X > mean(X) Y > mean(Y) X < mean(X) Y < mean(Y) X < mean(X) Y < mean(Y) X > mean(X)
negative correlation.
16 / 18
2 4
2 4 x y
mean(X) mean(Y) Y > mean(Y) X > mean(X) Y > mean(Y) X < mean(X) Y < mean(Y) X < mean(X) Y < mean(Y) X > mean(X)
negative correlation.
16 / 18
2 4
2 4 x y
mean(X) mean(Y) Y > mean(Y) X > mean(X) Y > mean(Y) X < mean(X) Y < mean(Y) X < mean(X) Y < mean(Y) X > mean(X)
negative correlation.
16 / 18
2 4
2 4 x y
mean(X) mean(Y) Y > mean(Y) X > mean(X) Y > mean(Y) X < mean(X) Y < mean(Y) X < mean(X) Y < mean(Y) X > mean(X)
negative correlation.
16 / 18
2 4
2 4 x y
mean(X) mean(Y) Y > mean(Y) X > mean(X) Y > mean(Y) X < mean(X) Y < mean(Y) X < mean(X) Y < mean(Y) X > mean(X)
16 / 18
positive associations.
negative associations.
17 / 18
positive associations.
negative associations.
17 / 18
positive associations.
negative associations.
17 / 18
positive associations.
negative associations.
17 / 18
negative associations.
17 / 18
17 / 18
17 / 18
17 / 18
17 / 18
17 / 18
17 / 18
available case analysis cor(leaders$politybefore, leaders$polityafter, use = ”pairwise”) ## [1] 0.828
18 / 18
cor(leaders$politybefore, leaders$polityafter, use = ”pairwise”) ## [1] 0.828
18 / 18
cor(leaders$politybefore, leaders$polityafter, use = ”pairwise”) ## [1] 0.828
18 / 18
cor(leaders$politybefore, leaders$polityafter, use = ”pairwise”) ## [1] 0.828
18 / 18