# install.packages("devtools")
library(devtools)
# install the package from github
install_github("vennchart", "weitingwlin")
library(vennchart)
rm(list =ls())
co_A <- 8 # including pure and overlapping parts
co_B <- 12
co_C <- 3
co_AB <- 1.9 # overlaping parts
co_BC <- 0.5
co_AC <-1
Q <- vennChart(A_all = co_A, B_all = co_B, AandB = co_AB)
Q <- vennChart(A_all = co_A, B_all = co_B, C_all = co_C,
AandB = co_AB, AandC = co_AC, BandC = co_BC,
# rename element A,B,C
# rewrite format
names = c("a", "b", "c"), connect = "\n(", unit = "%)",
# adjust text positions
textadj = c(1.3, 0.3),
# make the text relatively bigger
cex = 1.3,
# make the frame relatively smaller
frameadj = 1.2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.