Week 9

library(haven)
library(tidyverse)

Data Wrangling

wvs_us <- read_sav("data/wvs-us.sav")

# make an id row for plotting
wvs_us$id <- seq_len(nrow(wvs_us))

Group 2

Using the self-positioning scale of political orientation (v95), create a dichotomous “left” vs. “right” variable from the self-positioning scale. Consider operationalizing these as “1-4” vs. “7-10.”

wvs_us <- wvs_us %>%
  mutate(
    political_orientation = ifelse(V95 < 5, "Left", "Right")
  )

What variables are significantly associated with being “Right/ Right Leaning?” (hint: right-leaning and left-leaning become the dependent variable) Make sure you don’t do the flip side of this- i.e., don’t just describe significant differences in the sample between “those on the right” and “those on the left”- that’s Group 1’s assignment, above. (e.g.- you’ll report things like, “X% of ‘men’ are Right/ right leaning, while only Y% of ‘women’ are Right/ right leaning;” “X% of those who AGREE that men make better political leaders are right-ish, while only Y% of those who disagree with that statement are right-ish”).

Happiness

paste("Contigency Table - Happiness")

## [1] "Contigency Table - Happiness"

table(wvs_us$political_orientation, wvs_us$V10)

##        
##           1   2   3   4
##   Left   56  94  18   3
##   Right 300 419  61   5

Life Satisfaction

paste("Contigency Table - Life Satisfaction")

## [1] "Contigency Table - Life Satisfaction"

table(wvs_us$political_orientation, wvs_us$V23)

##        
##           1   2   3   4   5   6   7   8   9  10
##   Left    4   3   5   5  14  14  30  51  35  10
##   Right   5   7  22  32  58  54 131 235 163  78

Scarce Jobs Given to Citizens

paste("Contigency Table - Scarce Jobs Given to Citizens")

## [1] "Contigency Table - Scarce Jobs Given to Citizens"

table(wvs_us$political_orientation, wvs_us$V46)

##        
##           1   2   3
##   Left   66  45  59
##   Right 447 183 156

Indicate where p < .05.

Happiness

summary(table(wvs_us$political_orientation, wvs_us$V10))

## Number of cases in table: 956 
## Number of factors: 2 
## Test for independence of all factors:
##  Chisq = 4.579, df = 3, p-value = 0.2053
##  Chi-squared approximation may be incorrect

Life Satisfaction

summary(table(wvs_us$political_orientation, wvs_us$V23))

## Number of cases in table: 956 
## Number of factors: 2 
## Test for independence of all factors:
##  Chisq = 8.884, df = 9, p-value = 0.4481
##  Chi-squared approximation may be incorrect

Scarce Jobs Given to Citizens

P-value is < .05.

summary(table(wvs_us$political_orientation, wvs_us$V46))

## Number of cases in table: 956 
## Number of factors: 2 
## Test for independence of all factors:
##  Chisq = 22.8, df = 2, p-value = 1.12e-05

As an anthropologist hired to make recommendations for a further, more in-depth study, what would you suggest doing? How would you go about following up?

When you turn in your assignment, I also need the raw SPSS output for all of the data you report on your slides.