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: 10 × 2
#> Formats n
#> <chr> <int>
#> 1 Kirja, Kirja 66
#> 2 Lehti/Artikkeli, Artikkeli 15
#> 3 Äänite, CD 7
#> 4 Video, DVD 4
#> 5 Video, Elokuva, lyhyt 2
#> 6 Äänite, Äänilevy 2
#> 7 Arkisto/Kokoelma, Arkistosarja 1
#> 8 Taideteos, Taideteos 1
#> 9 Taideteos, Veistos 1
#> 10 Äänite, Musiikkitallenne 1
#>
#> $year_distribution
#> # A tibble: 38 × 2
#> Year n
#> <chr> <int>
#> 1 1948 10
#> 2 1945 9
#> 3 1997 8
#> 4 1968 6
#> 5 1999 6
#> 6 2003 6
#> 7 1984 4
#> 8 1998 4
#> 9 2015 4
#> 10 1931 3
#> # ℹ 28 more rows
#>
#> $author_distribution
#> # A tibble: 56 × 2
#> Author n
#> <chr> <int>
#> 1 Häyrynen, Antti 10
#> 2 Layton, Robert 7
#> 3 Sibelius, Jean 6
#> 4 Ringbom, Nils-Eric 5
#> 5 Downes, Olin, Sjöblom, Paul, Jalas, Jussi 4
#> 6 Gray, Cecil 4
#> 7 Lampila, Hannu-Ilari 4
#> 8 Tawaststjerna, Erik 4
#> 9 Tawaststjerna, Erik, Tawaststjerna, Erik T. 4
#> 10 Haapaniemi, Jaakko 2
#> # ℹ 46 more rows
#>