get possessive datas from wordbank and plot

possessives.R

library(wordbankr)
library(tidyverse)

possess_data <- get_instrument_data(language = "English (American)", 
                                    form = "WS", 
                                    items = "item_687") # note that 687 is the s-possess item
admin_data <- get_administration_data(language = "English (American)", 
                                      form = "WS")

left_join(possess_data, admin_data) %>% 
  filter(!is.na(value)) %>% 
  group_by(age, value) %>% 
  count %>% 
  group_by(age) %>% 
  summarise(prop = sum(n[value %in% c("sometimes", "often")])/sum(n)) %>% 
  ggplot(aes(x = age, y = prop)) + 
  geom_line()