Skip to content

Instantly share code, notes, and snippets.

@njtierney
Created May 28, 2024 04:07
Show Gist options
  • Save njtierney/79153db97230227b2eb4d6400490f942 to your computer and use it in GitHub Desktop.
Save njtierney/79153db97230227b2eb4d6400490f942 to your computer and use it in GitHub Desktop.
library(tidyverse)

group <- tribble(
  ~group,           ~golding, ~senior, ~hao,  ~windecker, ~tierney,  ~stretton, ~chikolwa, ~duncan, ~ryan, ~avenell, ~shearer, ~ohiolel, ~saraswati,
   "KRIA",           TRUE,     TRUE,   TRUE,  TRUE,       TRUE,      TRUE,      TRUE,      TRUE,    TRUE,  TRUE,     TRUE,     TRUE,    TRUE,
   "CHA",            TRUE,     TRUE,   TRUE,  TRUE,       TRUE,      TRUE,      TRUE,      TRUE,    TRUE,  FALSE,     TRUE,     TRUE,    TRUE,
   "IDEM",           TRUE,     TRUE,   TRUE,  TRUE,       TRUE,      TRUE,      TRUE,      TRUE,    TRUE,  FALSE,     TRUE,     TRUE,    TRUE,
   "IDDU",           TRUE,     TRUE,   TRUE,  TRUE,       TRUE,      TRUE,      TRUE,      TRUE,    TRUE,  FALSE,     TRUE,     TRUE,    TRUE,
   "IIDM",           TRUE,    FALSE,  FALSE, FALSE,      FALSE,     FALSE,     FALSE,     FALSE,   FALSE,  FALSE,    FALSE,    FALSE,   FALSE,
   "MAP",            TRUE,     FALSE,   TRUE,  TRUE,       TRUE,      TRUE,      TRUE,      TRUE,    TRUE, FALSE,     TRUE,     TRUE,    TRUE,
   "Vector Atlas",   TRUE,     TRUE,   TRUE,  TRUE,       TRUE,      TRUE,      TRUE,      TRUE,    TRUE,  FALSE,     TRUE,     TRUE,    TRUE,
   "BMGF-Gething",   FALSE,    FALSE,  FALSE, FALSE,      FALSE,     TRUE,     FALSE,     FALSE,   FALSE,  FALSE,    FALSE,    FALSE,   FALSE,
   "BMGF-Rumisha",   FALSE,    FALSE,  FALSE, FALSE,      FALSE,     FALSE,     FALSE,     FALSE,   FALSE, FALSE,    FALSE,    FALSE,   FALSE,
   "ACEFA",          TRUE,     TRUE,   TRUE,  TRUE,       TRUE,      TRUE,      TRUE,      TRUE,    TRUE,  FALSE,     TRUE,     TRUE,    TRUE,
   "BDSS",           TRUE,     TRUE,   TRUE,  TRUE,       TRUE,      TRUE,      TRUE,      TRUE,    TRUE,  FALSE,     TRUE,     TRUE,    TRUE,
   "inferparams",    TRUE,     TRUE,   TRUE,  TRUE,       TRUE,      TRUE,      TRUE,      TRUE,    TRUE,  FALSE,     TRUE,     TRUE,    TRUE,
   "spectrum",       TRUE,     TRUE,   TRUE,  TRUE,       TRUE,      TRUE,      TRUE,      TRUE,    TRUE,  FALSE,     TRUE,     TRUE,    TRUE,
   "MODD Africa",    TRUE,     TRUE,   TRUE,  TRUE,       TRUE,      TRUE,      TRUE,      TRUE,    TRUE,  FALSE,     TRUE,     TRUE,    TRUE,
   "Zoomal",         TRUE,     TRUE,   TRUE,  TRUE,       TRUE,      TRUE,      TRUE,      TRUE,    TRUE,  FALSE,     TRUE,     TRUE,    TRUE
)

group
#> # A tibble: 15 × 14
#>    group   golding senior hao   windecker tierney stretton chikolwa duncan ryan 
#>    <chr>   <lgl>   <lgl>  <lgl> <lgl>     <lgl>   <lgl>    <lgl>    <lgl>  <lgl>
#>  1 KRIA    TRUE    TRUE   TRUE  TRUE      TRUE    TRUE     TRUE     TRUE   TRUE 
#>  2 CHA     TRUE    TRUE   TRUE  TRUE      TRUE    TRUE     TRUE     TRUE   TRUE 
#>  3 IDEM    TRUE    TRUE   TRUE  TRUE      TRUE    TRUE     TRUE     TRUE   TRUE 
#>  4 IDDU    TRUE    TRUE   TRUE  TRUE      TRUE    TRUE     TRUE     TRUE   TRUE 
#>  5 IIDM    TRUE    FALSE  FALSE FALSE     FALSE   FALSE    FALSE    FALSE  FALSE
#>  6 MAP     TRUE    FALSE  TRUE  TRUE      TRUE    TRUE     TRUE     TRUE   TRUE 
#>  7 Vector… TRUE    TRUE   TRUE  TRUE      TRUE    TRUE     TRUE     TRUE   TRUE 
#>  8 BMGF-G… FALSE   FALSE  FALSE FALSE     FALSE   TRUE     FALSE    FALSE  FALSE
#>  9 BMGF-R… FALSE   FALSE  FALSE FALSE     FALSE   FALSE    FALSE    FALSE  FALSE
#> 10 ACEFA   TRUE    TRUE   TRUE  TRUE      TRUE    TRUE     TRUE     TRUE   TRUE 
#> 11 BDSS    TRUE    TRUE   TRUE  TRUE      TRUE    TRUE     TRUE     TRUE   TRUE 
#> 12 inferp… TRUE    TRUE   TRUE  TRUE      TRUE    TRUE     TRUE     TRUE   TRUE 
#> 13 spectr… TRUE    TRUE   TRUE  TRUE      TRUE    TRUE     TRUE     TRUE   TRUE 
#> 14 MODD A… TRUE    TRUE   TRUE  TRUE      TRUE    TRUE     TRUE     TRUE   TRUE 
#> 15 Zoomal  TRUE    TRUE   TRUE  TRUE      TRUE    TRUE     TRUE     TRUE   TRUE 
#> # ℹ 4 more variables: avenell <lgl>, shearer <lgl>, ohiolel <lgl>,
#> #   saraswati <lgl>
library(UpSetR)

movies <- read.csv( system.file("extdata", "movies.csv", package = "UpSetR"), header=TRUE, sep=";" )
as_tibble(movies)
#> # A tibble: 3,883 × 21
#>    Name     ReleaseDate Action Adventure Children Comedy Crime Documentary Drama
#>    <chr>          <int>  <int>     <int>    <int>  <int> <int>       <int> <int>
#>  1 Toy Sto…        1995      0         0        1      1     0           0     0
#>  2 Jumanji…        1995      0         1        1      0     0           0     0
#>  3 Grumpie…        1995      0         0        0      1     0           0     0
#>  4 Waiting…        1995      0         0        0      1     0           0     1
#>  5 Father …        1995      0         0        0      1     0           0     0
#>  6 Heat (1…        1995      1         0        0      0     1           0     0
#>  7 Sabrina…        1995      0         0        0      1     0           0     0
#>  8 Tom and…        1995      0         1        1      0     0           0     0
#>  9 Sudden …        1995      1         0        0      0     0           0     0
#> 10 GoldenE…        1995      1         1        0      0     0           0     0
#> # ℹ 3,873 more rows
#> # ℹ 12 more variables: Fantasy <int>, Noir <int>, Horror <int>, Musical <int>,
#> #   Mystery <int>, Romance <int>, SciFi <int>, Thriller <int>, War <int>,
#> #   Western <int>, AvgRating <dbl>, Watches <int>

Created on 2024-05-28 with reprex v2.1.0

Session info
sessioninfo::session_info()
#> ─ Session info ───────────────────────────────────────────────────────────────
#>  setting  value
#>  version  R version 4.4.0 (2024-04-24)
#>  os       macOS Sonoma 14.5
#>  system   aarch64, darwin20
#>  ui       X11
#>  language (EN)
#>  collate  en_US.UTF-8
#>  ctype    en_US.UTF-8
#>  tz       Australia/Hobart
#>  date     2024-05-28
#>  pandoc   3.1.13 @ /opt/homebrew/bin/ (via rmarkdown)
#> 
#> ─ Packages ───────────────────────────────────────────────────────────────────
#>  package     * version date (UTC) lib source
#>  cli           3.6.2   2023-12-11 [1] CRAN (R 4.4.0)
#>  colorspace    2.1-0   2023-01-23 [1] CRAN (R 4.4.0)
#>  digest        0.6.35  2024-03-11 [1] CRAN (R 4.4.0)
#>  dplyr       * 1.1.4   2023-11-17 [1] CRAN (R 4.4.0)
#>  evaluate      0.23    2023-11-01 [1] CRAN (R 4.4.0)
#>  fansi         1.0.6   2023-12-08 [1] CRAN (R 4.4.0)
#>  fastmap       1.2.0   2024-05-15 [1] CRAN (R 4.4.0)
#>  forcats     * 1.0.0   2023-01-29 [1] CRAN (R 4.4.0)
#>  fs            1.6.4   2024-04-25 [1] CRAN (R 4.4.0)
#>  generics      0.1.3   2022-07-05 [1] CRAN (R 4.4.0)
#>  ggplot2     * 3.5.1   2024-04-23 [1] CRAN (R 4.4.0)
#>  glue          1.7.0   2024-01-09 [1] CRAN (R 4.4.0)
#>  gridExtra     2.3     2017-09-09 [1] CRAN (R 4.4.0)
#>  gtable        0.3.5   2024-04-22 [1] CRAN (R 4.4.0)
#>  hms           1.1.3   2023-03-21 [1] CRAN (R 4.4.0)
#>  htmltools     0.5.8.1 2024-04-04 [1] CRAN (R 4.4.0)
#>  knitr         1.46    2024-04-06 [1] CRAN (R 4.4.0)
#>  lifecycle     1.0.4   2023-11-07 [1] CRAN (R 4.4.0)
#>  lubridate   * 1.9.3   2023-09-27 [1] CRAN (R 4.4.0)
#>  magrittr      2.0.3   2022-03-30 [1] CRAN (R 4.4.0)
#>  munsell       0.5.1   2024-04-01 [1] CRAN (R 4.4.0)
#>  pillar        1.9.0   2023-03-22 [1] CRAN (R 4.4.0)
#>  pkgconfig     2.0.3   2019-09-22 [1] CRAN (R 4.4.0)
#>  plyr          1.8.9   2023-10-02 [1] CRAN (R 4.4.0)
#>  purrr       * 1.0.2   2023-08-10 [1] CRAN (R 4.4.0)
#>  R.cache       0.16.0  2022-07-21 [1] CRAN (R 4.4.0)
#>  R.methodsS3   1.8.2   2022-06-13 [1] CRAN (R 4.4.0)
#>  R.oo          1.26.0  2024-01-24 [1] CRAN (R 4.4.0)
#>  R.utils       2.12.3  2023-11-18 [1] CRAN (R 4.4.0)
#>  R6            2.5.1   2021-08-19 [1] CRAN (R 4.4.0)
#>  Rcpp          1.0.12  2024-01-09 [1] CRAN (R 4.4.0)
#>  readr       * 2.1.5   2024-01-10 [1] CRAN (R 4.4.0)
#>  reprex        2.1.0   2024-01-11 [1] CRAN (R 4.4.0)
#>  rlang         1.1.3   2024-01-10 [1] CRAN (R 4.4.0)
#>  rmarkdown     2.26    2024-03-05 [1] CRAN (R 4.4.0)
#>  rstudioapi    0.16.0  2024-03-24 [1] CRAN (R 4.4.0)
#>  scales        1.3.0   2023-11-28 [1] CRAN (R 4.4.0)
#>  sessioninfo   1.2.2   2021-12-06 [1] CRAN (R 4.4.0)
#>  stringi       1.8.4   2024-05-06 [1] CRAN (R 4.4.0)
#>  stringr     * 1.5.1   2023-11-14 [1] CRAN (R 4.4.0)
#>  styler        1.10.3  2024-04-07 [1] CRAN (R 4.4.0)
#>  tibble      * 3.2.1   2023-03-20 [1] CRAN (R 4.4.0)
#>  tidyr       * 1.3.1   2024-01-24 [1] CRAN (R 4.4.0)
#>  tidyselect    1.2.1   2024-03-11 [1] CRAN (R 4.4.0)
#>  tidyverse   * 2.0.0   2023-02-22 [1] CRAN (R 4.4.0)
#>  timechange    0.3.0   2024-01-18 [1] CRAN (R 4.4.0)
#>  tzdb          0.4.0   2023-05-12 [1] CRAN (R 4.4.0)
#>  UpSetR      * 1.4.0   2019-05-22 [1] CRAN (R 4.4.0)
#>  utf8          1.2.4   2023-10-22 [1] CRAN (R 4.4.0)
#>  vctrs         0.6.5   2023-12-01 [1] CRAN (R 4.4.0)
#>  withr         3.0.0   2024-01-16 [1] CRAN (R 4.4.0)
#>  xfun          0.44    2024-05-15 [1] CRAN (R 4.4.0)
#>  yaml          2.3.8   2023-12-11 [1] CRAN (R 4.4.0)
#> 
#>  [1] /Users/nick/Library/R/arm64/4.4/library
#>  [2] /Library/Frameworks/R.framework/Versions/4.4-arm64/Resources/library
#> 
#> ──────────────────────────────────────────────────────────────────────────────
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment