Skip to content

Instantly share code, notes, and snippets.

@njahn82
Created April 27, 2019 16:13
Show Gist options
  • Select an option

  • Save njahn82/c3cbae84418df824bdc4d55669d88d8f to your computer and use it in GitHub Desktop.

Select an option

Save njahn82/c3cbae84418df824bdc4d55669d88d8f to your computer and use it in GitHub Desktop.
Upsetr conversion
ev_cat n
open (via free pdf) 2064941
open (via page says license) 729059
oa repository (via OAI-PMH title and first author match) 661745
oa journal (via doaj)&open (via page says license) 522859
oa journal (via doaj) 405607
oa journal (via doaj)&oa repository (via OAI-PMH doi match)&oa repository (via pmcid lookup)&open (via page says license) 390785
open (via crossref license) 336514
oa repository (via OAI-PMH doi match) 226068
oa repository (via OAI-PMH doi match)&oa repository (via pmcid lookup) 215211
oa journal (via doaj)&oa repository (via OAI-PMH title and first author match)&open (via page says license) 212122
open (via crossref license)&open (via page says license) 168255
oa journal (via doaj)&oa repository (via OAI-PMH doi match)&oa repository (via OAI-PMH title and first author match)&oa repository (via pmcid lookup)&open (via page says license) 148755
oa repository (via OAI-PMH title and first author match)&open (via free pdf) 144219
oa repository (via OAI-PMH doi match)&oa repository (via pmcid lookup)&open (via free pdf) 128215
oa journal (via doaj)&oa repository (via OAI-PMH title and first author match) 119204
oa journal (via doaj)&open (via free pdf) 107820
oa repository (via OAI-PMH doi match)&oa repository (via pmcid lookup)&open (via page says license) 98888
oa repository (via OAI-PMH doi match)&open (via free pdf) 97874
oa repository (via OAI-PMH title and first author match)&open (via page says license) 80039
oa journal (via doaj)&oa repository (via OAI-PMH doi match)&open (via page says license) 71978
oa repository (via OAI-PMH doi match)&oa repository (via OAI-PMH title and first author match) 53430
oa journal (via doaj)&oa repository (via OAI-PMH doi match)&oa repository (via pmcid lookup) 50492
open (via crossref license, author manuscript) 45950
oa repository (via OAI-PMH title and first author match)&open (via crossref license) 44019
oa journal (via doaj)&oa repository (via OAI-PMH doi match)&oa repository (via OAI-PMH title and first author match)&oa repository (via pmcid lookup) 40659
oa repository (via OAI-PMH doi match)&oa repository (via OAI-PMH title and first author match)&oa repository (via pmcid lookup) 32360
open (via page says Open Access) 28501
oa repository (via OAI-PMH title and first author match)&open (via crossref license)&open (via page says license) 28321
oa repository (via OAI-PMH doi match)&oa repository (via pmcid lookup)&open (via crossref license) 27285
oa journal (via doaj)&oa repository (via OAI-PMH title and first author match)&oa repository (via pmcid lookup)&open (via page says license) 26235
library(tidyverse)
library(UpSetR)

load data (top 30)

tt <- readr::read_csv("results_short.csv")
## Parsed with column specification:
## cols(
##   ev_cat = col_character(),
##   n = col_integer()
## )

list with counts

tt_list <- as.list(tt$n)

categories as list names

names(tt_list) <- tt$ev_cat

to vector

my_expr <- unlist(tt_list)

convert with fromExpression and plot

upset(fromExpression(my_expr), order.by = "freq")

plot of chunk unnamed-chunk-6

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment