README.md
In cstubben/aRkivet: Census records and maps from Norway

norwayr

This is an R package to plot map layers from the Norwegian Mapping Authority and search census records in the Norway Digital Archives. Users should be familiar with the Advanced Search and 1801 Census Search pages.

The norway_map function adds tile layers from L.TileLayer.Kartverket to create interactive leaflet maps in R (following the code here. Set the view or add markers to view specific places.

library(devtools)
install_github("cstubben/norwayr")

norway_map()  %>% setView(9.804308, 63.204115, zoom = 14)

Plot all 174 places in the 1801 census at Orkdal.

data(orkdal_farms)
orkdal_farms
# A tibble: 174 × 7
     rid       name residents houses      lng      lat notes
   <dbl>      <chr>     <dbl>  <dbl>    <dbl>    <dbl> <chr>
1      1        Hof       224     53 9.853373 63.30792
2      2      Rømme        61     11 9.846592 63.30297
3      3      Aunet         6      1 9.871292 63.28373
4      4      Espen        17      3 9.861306 63.28328  Espa
5      5 Clemetsmoe        13      4 9.852875 63.28321
6      6      Follo        13      2 9.841779 63.28055
7      7     Kleven        14      3 9.835829 63.27667
8      8       Øyen        33      7 9.836529 63.28271
9      9    Aunemoe        54     10 9.830253 63.27153
10    10 Fannremmen        27      4 9.816433 63.26818

norway_map() %>% addMarkers( data=orkdal_farms, label= paste(orkdal_farms$rid, orkdal_farms$name))

This is the basic workflow to create historical social networks using baptism and marriage records with Sivert Larsen Stubben in Orkdal, Sør-Trøndelag, Norway. Check the Github pages for interactive forceNetwork plots below.

# Find municipal code for searching (Orkdal = 1638)
data(municipal)
subset(municipal, grepl("Orkdal", name))

# Search for Sivert Larsen Stubben
s1 <- advanced_search(1638, first="Siv*", last="Lars*", domicile="Stub*")

s1
# A tibble: 26 × 11
             name residence  year         type       role      event birth   place
            <chr>     <chr> <dbl>        <chr>      <chr>      <chr> <chr>   <chr>
1  Sivert Larssen   Stubben  1819 confirmation konfirmant       1819
2  Sivert Larssen   Stubben  1823      baptism     fadder 1823.02.09
3  Sivert Larssen   Stubben  1826      baptism     fadder 1826.01.01
4  Sivert Larssen   Stubben  1826      baptism     fadder 1826.04.30
5  Sivert Larssen   Stubben  1827      baptism     fadder 1827.07.15
6  Sivert Larssen   Stubben  1830     marriage    brudgom 1830.06.14 1806* Stubben
7  Sivert Larssen   Stubben  1831      baptism        far 1831.07.17
8  Sivert Larssen   Stubben  1835      baptism     fadder 1835.04.19
9  Sivert Larssen   Stubben  1836      baptism        far 1836.01.31
10 Sivert Larssen   Stubben  1836      baptism     fadder 1836.11.20
# ... with 16 more rows, and 3 more variables: status <chr>, source <chr>, url <chr>


# Get 18 baptism and marriage records with 117 total names (~85 unique)
sivert <- get_records(s1)

sivert
 # A tibble: 117 × 10
                                  event    no                   name       residence
                                  <chr> <chr>                  <chr>           <chr>
 1  Johan  Andreas Nilssen 1823 baptism     1 Johan  Andreas Nilssen          Barløb
 2  Johan  Andreas Nilssen 1823 baptism     2        Nils Andreassen          Barløb
 3  Johan  Andreas Nilssen 1823 baptism     3    Henrica Henrichsdtr Grøttan i Hevne
 4  Johan  Andreas Nilssen 1823 baptism     4                 Anders          Haugen
 5  Johan  Andreas Nilssen 1823 baptism     5          Jon Anderssen         Stubben
 6  Johan  Andreas Nilssen 1823 baptism     6         Sivert Larssen         Stubben
 7  Johan  Andreas Nilssen 1823 baptism     7        Elie Sivertsdtr         Stubben
 8  Johan  Andreas Nilssen 1823 baptism     8                    Ane          Haugen
 9  Johan  Andreas Nilssen 1823 baptism     9          Elie Knudsdtr          Haugen
 10           Guru Larsdtr 1826 baptism     1           Guru Larsdtr            Lium
 # ... with 107 more rows, and 6 more variables: date <chr>, role <chr>, position <chr>,
 #   birth <chr>, place <chr>, full <chr>

# Fix many alternate spellings
sivert$full[sivert$full=="Arnt Elevsen Kjelstad"]  <- "Arnt Ellevsen Kjelstad"
sivert$full[sivert$full=="Ellef Hanssen Kjelstad"] <- "Ellev Hanssen Kjelstad"
sivert$full[sivert$full=="Ellev Kjelstad"]         <- "Ellev Hanssen Kjelstad"
...

# create network and highlight any Stubbens with orange in plot
net <- create_network(sivert, highlight="Stub")

lapply(net, head)
$Links
  source target value
1     18      0     5
2     19      0     5
3     20      0     5
4     21      0     1
5     22      0     1
6     23      0     1

$Nodes
                                               name group
1               Johan  Andreas Nilssen 1823 baptism     1
10                        Guru Larsdtr 1826 baptism     1
18                     Anne Sivertsdtr 1826 baptism     1
26                        Erik Arntsen 1827 baptism     1
32 Sivert Larssen and Randi Ellevsdtr 1830 marriage     1
38                      Lars Sivertsen 1831 baptism     1

## wrapper for forceNetwork in networkD3.  Dark blue dots are events and others are persons
## at the event (with orange highlight for Stubben).  Thick lines connect parents and children
plot_network(net)