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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.