Performs basic analysis on Finna metadata, summarizing the distribution of formats, years, and authors.
Examples
library(finna)
sibelius_data <- search_finna("sibelius")
refined_data <- refine_metadata(sibelius_data)
analyze_metadata(refined_data)
#> $format_distribution
#> # A tibble: 11 × 2
#> Formats n
#> <chr> <int>
#> 1 Kirja, Kirja 55
#> 2 Lehti/Artikkeli, Artikkeli 19
#> 3 Äänite, CD 11
#> 4 Video, DVD 4
#> 5 Äänite, Äänilevy 4
#> 6 Video, Elokuva, lyhyt 2
#> 7 Arkisto/Kokoelma, Arkistosarja 1
#> 8 Taideteos, Taideteos 1
#> 9 Taideteos, Veistos 1
#> 10 Video, Elokuva, pitkä 1
#> 11 Äänite, Musiikkitallenne 1
#>
#> $year_distribution
#> # A tibble: 38 × 2
#> Year n
#> <chr> <int>
#> 1 1997 9
#> 2 1948 8
#> 3 1999 8
#> 4 2003 7
#> 5 1945 6
#> 6 1998 6
#> 7 1968 5
#> 8 Unknown Year 4
#> 9 1949 3
#> 10 1984 3
#> # ℹ 28 more rows
#>
#> $author_distribution
#> # A tibble: 51 × 2
#> Author n
#> <chr> <int>
#> 1 Häyrynen, Antti 12
#> 2 Sibelius, Jean 10
#> 3 Layton, Robert 5
#> 4 Downes, Olin, Sjöblom, Paul, Jalas, Jussi 4
#> 5 Ringbom, Nils-Eric 4
#> 6 Pickenhayn, Jorge Oscar 3
#> 7 Schouwman, Hans 3
#> 8 Tawaststjerna, Erik 3
#> 9 Tawaststjerna, Erik, Tawaststjerna, Erik T. 3
#> 10 Valsta, Heikki 3
#> # ℹ 41 more rows
#>