index.qmd

---
editor_options: 
  chunk_output_type: console
---

## Resources of the Linguistic Convergence Laboratory

One of the aims of the [Linguistic Convergence Laboratory](https://ilcl.hse.ru/en/) is creating language resources. In cooperation with other researchers we collect data for [dictionaries](resources.html#dictionaries), develop [spoken corpora](resources.html#spoken-corpora) of bilingual, dialect, and regional varieties of Russian, as well as minority languages of Russia. In addition, we also develop [resources](resources.html#other) for quantitative research on language contact and the distribution of various grammatical features in Daghestan, Russia's most multilingual region.

```{r}
#| column: screen-right
#| fig-cap: "Archo, Akhvakhsky District, Daghestan by Timofey Mukhin"

knitr::include_graphics("images/mukhin_archo.jpg")
```


## Geography of data sources for corpora and dictionaries

::: {.panel-tabset}

### All

```{r}
#| column: screen-right

library(tidyverse)
library(lingtypology)

read_tsv("data.tsv") |> 
  filter(is.na(ignore)) |> 
  mutate(subtype = case_when(subtype == 'bilingual' ~ 'bilingual Russian corpus',
                             subtype == 'dialectal' ~ 'Russian dialect corpus',
                             subtype == 'minority' ~ 'corpus of minority languages',
                             TRUE ~ subtype)) |> 
  filter(!is.na(lat)) |> 
  mutate(subtype = factor(subtype, levels = c("Russian dialect corpus",
                                              "bilingual Russian corpus",
                                              "corpus of minority languages",
                                              "dictionary"))) ->
  fe

map.feature(fe$lang,
            latitude = fe$lat,
            longitude = fe$lon,
            feature = fe$subtype,
            color = c('#2c3e50', '#7b8a8b', '#5f9ea0', '#ffbcbc'),
            legend = TRUE,
            zoom.control = TRUE,
            popup = paste("<b>Place name:</b>", fe$place, "<br>",
                          "<b>Project:</b>", '<a target="_blank" href="', fe$link, '">', fe$name),
            tile = "Esri.WorldGrayCanvas",
            width = 6)
```

### Daghestan

```{r}
#| column: screen-right

fe |> 
  filter(lat<=44,
         !is.na(subtype)) |> 
  mutate(subtype = factor(subtype, levels = c("bilingual Russian corpus",
                                              "corpus of minority languages",
                                              "dictionary"))) ->
  fe

map.feature(fe$lang,
            latitude = fe$lat,
            longitude = fe$lon,
            feature = fe$subtype,
            color = c('#7b8a8b', '#5f9ea0', '#ffbcbc'),
            legend = TRUE,
            zoom.control = TRUE,
            popup = paste("<b>Place name:</b>", fe$place, "<br>",
                          "<b>Project:</b>", '<a target="_blank" href="', fe$link, '">', fe$name),
            tile = "Esri.WorldGrayCanvas",
            width = 6)
```

:::

```{r}
#| column: screen-right
#| fig-cap: "Pushkino-Mikhalevskaja, Velsky District, Arkhangelskaja oblastj by Michael Daniel"

knitr::include_graphics("images/daniel_pushkino_1.jpg")
```