DPLYR Week 3 Script

Set up

swow <- read_tsv("data_swow.csv.zip")

## Multiple files in zip: reading 'swow.csv'
## Rows: 483636 Columns: 5
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: "\t"
## chr (2): cue, response
## dbl (3): R1, N, R1.Strength
## 
## ℹ 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.

swow <- swow %>% mutate(id = 1:n())
swow <- clean_names(swow)
swow <- swow %>%
  rename(
    n_response = r1,
    n_total = n,
    strength = r1_strength
  )

Woman forward associations

woman_fwd <- swow %>%
  filter(cue == "woman", n_response > 1) %>%
  select(cue, response, strength) %>%
  mutate(
    rank = rank(-strength),
    type = "forward",
    word = "woman",
    associate = response
  )

Woman backward associations

woman_bck <- swow %>%
  filter(response == "woman", n_response > 1) %>%
  select(cue, response, strength) %>%
  mutate(
    rank = rank(-strength),
    type = "backward",
    word = "woman",
    associate = cue
  )
ggplot(woman_bck) +
  geom_point(aes(
    x = rank,
    y = strength
  ))