Venn Meme

Source: R/venndir-meme.R

Venn Meme or Concept Venn

venn_meme(
  x,
  proportional = FALSE,
  item_cex = 1,
  item_degrees = 0,
  item_buffer = -0.85,
  item_style = c("gridtext", "text"),
  keep_item_order = TRUE,
  show_items = "item",
  show_labels = "i",
  plot_warning = FALSE,
  draw_legend = FALSE,
  verbose = FALSE,
  ...
)

Arguments

x

vector or list containing overlap items, where names represent overlaps. For example the name "A&B" represents the overlap between set "A" and set "B". This input is passed to overlaplist2setlist(). Input x can be a vector of single items for each overlap, or when there are multiple items per overlap, the input x should be a list of item vectors. Note that if a setlist is passed to overlaplist2setlist() it will return the setlist unchanged.

proportional, item_degrees, item_buffer, item_style, plot_warning

arguments passed to venndir().

item_cex

numeric passed to venndir(), however when item_cex is length=1, it is extended to length=2 in order to prevent the auto-scaling adjustment typically used, which adjusts the font size based upon the relative area of each overlap polygon. In most cases this scaling is not helpful for Venn memes. To enable auto-scaling, use item_cex=NULL. See help text in venndir() for more details.

keep_item_order

logical default TRUE, to maintain labels in the order they are provided for each overlap. Use FALSE to have each label sorted using jamba::mixedSort() for true alphanumeric sort.

plot_warning

logical passed to render_venndir() to determine whether to plot any warnings caused by proportional Euler diagrams which cannot display all overlapping regions. It should not be relevant to venn_meme() and is FALSE by default.

draw_legend

logical indicating whether to draw the Venn diagram legend, by default FALSE since it is not relevant to venn_meme(). This argument is passed to render_venndir().

verbose

logical indicating whether to print verbose output.

...

additional arguments are passed to venndir().

Details

This function is a simple wrapper to venndir() with settings designed to create a Venn Meme. This output is expected to display usually one or a few item labels inside each Venn overlap region, and no other counts or set labels.

The argument item_cex is used to adjust item font size, and this vector is applied to items in each overlap set in order, by the number of overlap sets, then in sorted order of the set names in the order provided. For specific definitive ordering, run make_venn_combn_df(x) where x is the vector of set names. The rownames of the output will determine the order in which item_cex is applied. In practice, use trial and error to adjust each label to a suitable size.

The input x is intended to be a convenient method for specifying items in each overlap set. If x has no names, then it is assumed to represent a convenient Venn diagram based upon the length of x:

  • length(x) is 1, 2, or 3: two-way Venn diagram

  • length(x) is up to length 7,15,31: three-way Venn diagram

  • length(x) is up to length 15: four-way Venn diagram

  • length(x) is up to length 31: five-way Venn diagram

When more than three sets are represented, it may be helpful to use a proportional Venn diagram, known as a Euler diagram, with proportional=TRUE. Note that circular shapes cannot always represent every overlap, and you can use proportional ellipse shapes with proportional=TRUE, shape="ellipse".

When an overlap set cannot be displayed in a proportional diagram, the default plot_warning=FALSE which means no warning will be displayed. The intent of this function is to provide an easy "clean" diagram.

See also

Other venndir core: render_venndir(), signed_overlaps(), textvenn(), venndir()

Examples

bix <- list(
   s="Stats",
   cs="Computer<br>Science",
   b="Biology",
   `s&b`="Biostatistics",
   `s&cs`="Data<br>Science",
   `cs&b`="Computational<br>Biology",
   `s&cs&b`="Bioinformatics")
venn_meme(bix, proportional=TRUE)


# some customizations
venn_meme(bix,
   proportional=TRUE,
   rotate_degrees=360/6,
   item_cex=rep(c(2, 1.4, 2), c(3, 3, 1)))


# what the heck
wth <- list(
   WHAT=c("What", "What the", "What heck", "What the heck"),
   THE=c("the", "What the", "the heck", "What the heck"),
   ACTUAL=c("actual"),
   HECK=c("heck", "What heck", "the heck", "What the heck"))
wth <- lapply(wth[c(1,2,4)], function(i){gsub(" ", "<br>", i)})
venn_meme(wth, item_cex=1.4, fontfamily="Impact")


# what the actual heck
wtahv <- c("What", "the", "actual", "HECK");
wtah <- (unlist(lapply(seq_along(wtahv), function(i){
   im <- t(combn(wtahv, i))
   jamba::nameVector(
      jamba::pasteByRow(sep="<br>", im),
      jamba::pasteByRow(sep="&", im))
})))
venn_meme(wtah, item_cex=0.7, fontfamily="Impact")


# circular 4-way shapes
venn_meme(wtah, proportional=TRUE, shape="circle",
   item_cex=0.8, fontfamily="Impact")


# for proportional diagrams it may be helpful to use shape="ellipse"
venn_meme(wtah, proportional=TRUE, shape="ellipse", item_cex=0.8)


# superhero?
avlist <- c(
AV="LEX<br>LUTHOR",
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"
)
venn_meme(avlist, fontfamily="Trebuchet MS",
   item_cex=rep(c(2, 1.6, 1.3, 1.7, 1.5),
      c(3, 1, 1, 1, 1)))


# happiness in sports
em <- list(
   a="short-lived<br>happiness",
   b="prolonged<br>suffering",
   c="sudden<br>rage",
   `a&b`="Eating<br>too much<br>spicy<br>food",
   `b&c`="Stubbing<br>your toe,<br>twice",
   `a&b&c`="Scrolling<br>through your<br>Twitter feed",
   `a&c`="Being<br>a sports<br>fan"
)
#   `a&c`="Scrolling<br>through your<br>Twitter feed",
#   `a&b&c`="Being<br>a sports<br>fan"
venn_meme(em, fontfamily="Georgia",
   set_colors=c("gold", "dodgerblue3", "firebrick3"),
   item_cex=rep(c(2.3, 1.8, 1.8), c(3, 3, 1)))


# Mister Venn
mrvenn <- c(
sty="Style",
fh="Facial<br>Hair",
str="Strong",
t="Team",
f="Fools",
fu="Funny",
r="Rich",
`sty&fh`="Mr<br>Potato<br>Head",
`fh&str`="Mr Ed",
`str&t`="Mr<br>Incredible",
`t&f`="Mr<br>Bump",
`f&fu`="Mr<br>Bean",
`fu&r`="Mr<br>Burns",
`r&sty`="Mr<br>Peanut",
`sty&fh&str`="Mr<br>Motivator",
`fh&str&t`="Mr<br>Baseball",
`str&t&f`="Mr<br>Strong",
`t&f&fu`="Mr<br>Funny",
`f&fu&r`="Mr<br>Magoo",
`fu&r&sty`="Mr<br>Benn",
`r&sty&fh`="Mr<br>Monopoly",
`sty&fh&str&t&f&fu&r`="Mr T"
)
venn_meme(mrvenn, proportional=TRUE, fontfamily="Georgia")


# example of ordered item labels
item_list <- list(
   CLE=(c("**CLE**:",
      "IFN&alpha; > IFN&beta;",
      "Anti-malarials effective\ntherapy for\nskin disease")),
   DM=(c("**DM**:",
      "IFN&beta; > IFN&alpha;",
      "Triggered by\nimmune stimulating\nherbal supplements",
      "\n\nAnti-malarials\neffective in 25%,\ncommonly causes\nmorbilliform rash",
      "\n\nCannabinoid receptor\nagonist proising\ntreatment"
      )),
   `CLE&DM`=(c(
      "Photosensitivity",
      "Triggered by viral and\nbacterial infections",
      "Increased\ntype I IFN")))
vo <- venndir::venn_meme(x=item_list,
   fontfamily="Times New Roman",
   item_cex=c(1.3, 1.2, 1.3) ,
   item_buffer=c(-0.5, -0.2, -0.75),
   set_colors=c("darkorchid3", "gold"),
   poly_alpha=0.3,
   xyratio=5, spread=TRUE,
   dither_cex=0)