Performs basic analysis on Finna metadata, summarizing the distribution of formats, years, and authors.
Examples
library(finna)
sibelius_data <- search_finna("sibelius")
#> Warning: Default limit of 100 records is being used. Specify 'limit' argument for more records.
#> Total results found: 44532
#> Data fetching completed in 1.37 seconds.
refined_data <- refine_metadata(sibelius_data)
analyze_metadata(refined_data)
#> $format_distribution
#> # A tibble: 9 × 2
#> Formats n
#> <chr> <int>
#> 1 Kirja, Kirja 52
#> 2 Lehti/Artikkeli, Artikkeli 20
#> 3 Äänite, CD 12
#> 4 Äänite, Äänilevy 6
#> 5 Video, DVD 5
#> 6 Video, Elokuva, lyhyt 2
#> 7 Arkisto/Kokoelma, Arkistosarja 1
#> 8 Video, Elokuva, pitkä 1
#> 9 Äänite, Äänikasetti 1
#>
#> $year_distribution
#> # A tibble: 37 × 2
#> Year n
#> <chr> <int>
#> 1 1997 9
#> 2 1948 8
#> 3 1999 8
#> 4 1945 6
#> 5 1968 6
#> 6 2003 6
#> 7 1998 5
#> 8 1949 4
#> 9 1996 4
#> 10 1931 3
#> # ℹ 27 more rows
#>
#> $author_distribution
#> # A tibble: 49 × 2
#> Author n
#> <chr> <int>
#> 1 Häyrynen, Antti 13
#> 2 Sibelius, Jean 10
#> 3 Layton, Robert 6
#> 4 Ringbom, Nils-Eric 5
#> 5 Gray, Cecil 4
#> 6 Lampila, Hannu-Ilari 4
#> 7 Haapaniemi, Jaakko 3
#> 8 Schouwman, Hans 3
#> 9 Tawaststjerna, Erik 3
#> 10 Valsta, Heikki 3
#> # ℹ 39 more rows
#>