screenshots in readme

README.md

@@ -145,5 +145,18 @@ For feedback, or to report bugs, please use the [Github Issues](https://github.c
 
 
 
+--- 
 
+## Screenshots
 
+<p align="center">
+  <img src="https://github.com/mqAncientHistory/Lat-Epig/blob/main/images/Figure1_viator_interactivemap_screenshot.png" width="100%" alt="Interactive map displaying the result of the search ‘viator’, N=697 within the Roman Empire." style="border:1px solid black"/>
+</p>
+
+<p align="center">
+  <img src="https://github.com/mqAncientHistory/Lat-Epig/blob/main/images/Figure2_viator_interactivemap_detail_screenshot.png" width="100%" alt="Interactive map with a detailed overview of the inscription EDCS-28500185 dated between 271 and 330 CE from Pliska in Moesia Inferior (modern-day  Bulgaria). The text of the inscriptions invokes the passer-by to stop and read (“reste viator et lege”) about the life of Varius Sudicintis, a soldier, who died at age 40, and his dear mother Susa who commissioned the inscription. Other online sources, however, provide a variant reading: instead of Varius Sudicintis, the deceased was named Varsudicintis, see https://edh.ub.uni-heidelberg.de/edh/inschrift/HD042071." style="border:1px solid black"/>
+</p>
+
+<p align="center">
+  <img src="https://github.com/mqAncientHistory/Lat-Epig/blob/main/images/Figure3_2024-06-14-EDCS_via_Lat_Epig-term1_viator-697-Provinces_in_AD_117_extent-Citiesall-Roadsall-DPI300-.png" width="100%" alt="Publication-ready map displaying the result of the search ‘viator’, N=697, with roads and cities, the borders of the Roman Empire in AD 117. The search parameters are automatically printed on the map, along with the data sources used for the map." style="border:1px solid black"/>
+</p>

case_study/Case_study_viator.Rmd

@@ -61,6 +61,7 @@ language_form_list<- c("carmina")
 
 
 ```{r}
+# processing the status labels
 viator <- viator %>% 
   mutate(inscr_type = str_extract_all(pattern = paste(inscription_type_list, collapse="|"), string = viator$status)) %>% 
   mutate(status_notation = str_extract_all(pattern = paste(status_notation_list, collapse="|"), string = viator$status)) %>% 
@@ -140,18 +141,42 @@ context_tokenized %>%
   count(word, sort = TRUE) %>% 
   head(20)
 ```
+## Uppercase inscriptions
+
+```{r}
+# basic filtering
+viator %>% 
+  filter(!is.na(viator_uppercase))
+```
+
+
+```{r}
+# in which provinces they are
+viator %>% 
+  filter(!is.na(viator_uppercase)) %>% 
+  count(province, sort=T)
+```
 
 ## Lowercase inscriptions
 
 ```{r}
+# basic filtering
 viator %>% 
-  filter(is.na(viator_lowercase))
+  filter(!is.na(viator_lowercase))
 ```
 
+```{r}
+# in which provinces they are
+viator %>% 
+  filter(!is.na(viator_lowercase)) %>% 
+  count(province, sort=T)
+```
 
 ## Funerary inscriptions
 
 ```{r}
+# some inscriptions appear multiple times, as they have multiple labels (status)
+
 viator_insctype %>% 
   filter(!is.na(viator_lowercase)) %>% 
   count(inscr_type, sort=T) %>% 
@@ -161,6 +186,8 @@ viator_insctype %>%
 
 
 ```{r}
+# filter only for epitaphs
+
 sepulcrales_lowercase<- viator_insctype %>% 
   filter(inscr_type == "tituli sepulcrales" & !is.na(viator_lowercase))
 ```
@@ -201,6 +228,7 @@ sepulcrales_eval %>%
 To confirm the results of the close reading, we employ methods of distant reading, such as analysis of bigrams:
 
 ```{r}
+# creating bigrams
 sepulcrales_bigram <- sepulcrales_eval %>% 
   unnest_tokens(bigram, inscription_interpretive_cleaning , token = "ngrams", n = 2)
 ```