001_Agreement_in_obliqueness.qmd

---
title: Agreement in obliqueness
author: Asya Alekseeva
date: 'Last update: `r lubridate::make_datetime(year = 2024, month = 2, day = 26)`'
output:
  html_document:
    number_sections: false
    anchor_sections: true
    pandoc_args: --shift-heading-level-by=-1
---

```{r, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning=FALSE, fig.width = 9.5)
library(tidyverse)
library(lingtypology)
read_csv('data/database.csv', show_col_types = FALSE) |> 
  filter(feature_id == 1) ->
  db
read_csv('data/villages.csv') |> 
  filter(!(village %in% c('Kazankulak', 'Novyy Borch', 'Vrush', 'Aran', 'Khnyukh'))) ->
  villages
  
villages |> 
  filter(!(village %in% c('Tsudik', 'Borch'))) ->
  villages4map
  
```

The map shows whether the form of the attributive (possessor) noun depends on the case of the head noun (agreement in obliqueness). We elicited three contexts: ‘(my) brother's knife’ (the head noun ‘knife’ is in the nominative and belongs to Gender 4), ‘I slaughtered a sheep with (my) brother's knife’ (the head noun ‘knife’ is in an oblique case and belongs to Gender 4), ‘(my) brother's dog’ (the head noun ‘dog’ is in the nominative and belongs to Gender 3). In Ikhrek and Khnov, the first contexts shows the attributive suffix *-d* (*šuˤ-d kantʼ* brother-ATTR knife;), and -dɨ in the two other contexts *-dɨ* (*šuˤ-dɨ kantʼi-fan* brother-ATTR knife.OBL-COMIT; *šuˤ-dɨ χij* brother-ATTR dog). In other dialects the suffix *-dɨ* is used in all contexts. In [tairova2010] it is claimed that the same two variants of the attributive suffix are distributed depending on the gender and number of the head in Myukhrek; no details are given as to the case of the head. We cannot directly confirm this based on our data, because, for Myukhrek, the three contexts come from different consultants, so Myukhrek is not shown on the map. However, if we merge the data coming from all consultants, Myukhrek does group not with Khnov and Ikhrek but with the other dialects; and does not confirm Tairova's (2010) account.


##

::: {.panel-tabset}

### Map

```{r}
db |> 
  filter(!is.na(value),
         value != 'NO DATA') |>
  mutate(value = str_split(value, ' ; ')) |> 
  unnest_longer(value) |> 
  distinct(settlement, value) |> 
  mutate(n = 1) |> 
  pivot_wider(names_from = value, values_from = n, values_fill = 0) |> 
  left_join(villages[,c('village', 'lat', 'lon')], c('settlement' = 'village')) |> 
  mutate(language = 'Rutul') ->
  for_map
  
if(length(for_map) == 5){
map.feature(languages = 'Rutul',
            latitude = villages4map$lat,
            longitude = villages4map$lon,
            label = villages4map$village,
            label.position = 'top',
            label.hide = FALSE,
            width = 10,
            color = 'gray',
            tile = 'OpenStreetMap.HOT',
            opacity = 0.4) |> 
  map.feature(languages = for_map$language,
              latitude = for_map$lat,
              longitude = for_map$lon,
              label = for_map$settlement,
              label.position = 'top',
              label.hide = FALSE,
              width = 10,
              tile = 'OpenStreetMap.HOT',
              features = colnames(for_map)[2],
              pipe.data = _)  
} else {
map.feature(languages = 'Rutul',
            latitude = villages4map$lat,
            longitude = villages4map$lon,
            label = villages4map$village,
            label.position = 'top',
            label.hide = FALSE,
            width = 10,
            color = 'gray',
            tile = 'OpenStreetMap.HOT',
            opacity = 0.4) |> 
  map.feature(languages = for_map$language,
            latitude = for_map$lat,
            longitude = for_map$lon,
            minichart.data = for_map |> select(-settlement, -lat, -lon, -language),
            minichart = 'pie', 
            width = 3,
            tile = 'OpenStreetMap.HOT',
            pipe.data = _)
}
```

### Data

```{r}
db |> 
  select(settlement, value, stimuli, answer, collected) |> 
  DT::datatable(class = 'cell-border stripe', 
    rownames = FALSE, 
    filter = 'top', 
    extensions = 'Buttons',
    options = list(pageLength = 42, 
                   autoWidth = TRUE, 
                   info = FALSE,
                   dom = 'fBltp',
                   buttons = list(list(extend = 'collection',
                                       buttons = c('csv', 'excel', 'pdf'),
                                       text = '<i class="fas fa-download"></i>')),
                   paginate = TRUE))
```
:::