Skip to contents

venndir conversion from overlap list to setlist

Usage

overlaplist2setlist(x, sep = "&", ...)

Value

list where the list names are the names of each set, and values of each list element is a vector of items.

Details

This function takes input in the form of named list of vectors. The list names represent set overlaps. The vectors each contain items contained in that overlap. This content is similar to the input to counts2setlist() except in that case the input only contains the number of items per overlap, and not the items. In this case each overlap contains the vector of items also.

Since version 0.0.44.900, this function also accepts nested list format, as returned by overlaplist() for a Venndir object, when the overlap_type is something other than "overlap".

Note that when converting data with overlap_type "concordance" and "agreement" it will be slightly lossy.

  • overlap_type="concordance" encodes mismatches as "mixed", instead of the original sign for each set.

  • overlap_type="agreement" encodes as "agreement" and "mixed" instead of the original sign for each set.

Ideally, use setlist() to obtain to actual input setlist from the Venndir object.

See also

Examples

# example from eulerr::euler()
av_overlap_list <- list(
   AV="BATMAN<br>VILLAIN",
   ML="MOUNTAIN<br>LION",
   T="TODDLER",
   `AV&ML`="Wants to<br>kill you",
   `AV&T`="Goes off on<br>a lot of rambling<br>monologues",
   `ML&T`="Resists<br>taking a bath",
   `AV&ML&T`="Impossible<br>to reason with"
)
setlist <- overlaplist2setlist(av_overlap_list);

# Venn diagram
venndir(setlist,
   show_items="item",
   label_preset="items",
   item_degrees=0,
   item_cex=rep(c(2, 1.6, 1.35, 1.5), c(3, 1, 2, 1)),
   item_buffer=-0.95)


# Proportional Venn (Euler) diagram
venndir(setlist,
   show_items="item",
   label_preset="items",
   item_degrees=0,
   item_buffer=-0.95,
   proportional=TRUE)


# test interconversion: setlist to venndir to overlaplist to setlist
setlist2 <- make_venn_test(100, 3, do_signed=TRUE);
vo <- venndir(setlist2, do_plot=FALSE, overlap_type="each")
ollist <- overlaplist(vo)
setlist2b <- overlaplist2setlist(ollist)
# all should be TRUE:
sapply(names(setlist2b), function(i){
   all(setlist2[[i]] == setlist2b[[i]][names(setlist2[[i]])])
})
#> set_A set_B set_C 
#>  TRUE  TRUE  TRUE