update 2 qmd

.gitignore

@@ -4,16 +4,16 @@
 .RData
 .Ruserdata
 *.~lock.*
-*/asya_features.csv
+*/asya_features_dec2023.csv
 */phonetics_nikita.csv
-*/rutul_dialectology_ilya.csv
+*/other_ilya.csv
 */lexicon_moroz_full.csv
 */kostya_oblique.csv
-*/kostya_features_spatial_18_02.csv
 */nastya_verb_review-2.xlsx
 */NINA rutul_dialectology_merged_raw_data.xlsx
 */noun_features_2023-05-25.csv
 */rutul_dialectology_Maks.xlsx
-*/verb_2024-02-04.xlsx
-*/netkachev_oct23.csv
-*/rutul_dialects_200.csv
+*/nastya_verb_review-5.xlsx
+*/nastya_verb_review-6.xlsx
+
+/.quarto/

001_Agreement_in_obliqueness.qmd

@@ -0,0 +1,113 @@
+---
+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))
+```
+:::
+