Journals in more than one agreement

[njahn82]

library(hoaddata)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
hoaddata::oam_hybrid_jns |>
    distinct(agreement, lead, cr_journal_id) |>
    group_by(cr_journal_id) |>
    filter(n() > 1)
#> # A tibble: 4 × 3
#> # Groups:   cr_journal_id [2]
#>   agreement  lead          cr_journal_id
#>   <chr>      <chr>                 <dbl>
#> 1 De Gruyter SUB Göttingen         53583
#> 2 De Gruyter ZBW                   57292
#> 3 De Gruyter ZBW                   53583
#> 4 CUP        BSB                   57292

^{Created on 2022-07-07 by the reprex package (v2.0.1)}