Eular charts

# setwd("C:/Users/Wei-Ting/Dropbox/DataCoding/my_R/package/vennchart/rfiles")
rm(list =ls())
co_A <- 10
co_B <- 12
co_C <- 3
co_AB <- 1.9
co_BC <- 0.5
co_AC <-1

test using package from github

 library(devtools)
# install_github("vennchart", "weitingwlin")
 install("C:/Users/Wei-Ting/Dropbox/DataCoding/my_R/package/vennchart")
library(vennchart)

#source("sourceAll.R")
Q <- vennChart(A_all = co_A, B_all = co_B, C_all = co_C,
                AandB = co_AB, AandC = co_AC, BandC = co_BC)

vennChart

#source("sourceAll.R")
Q <- vennChart(A_all = co_A, B_all = co_B, C_all = co_C,
                AandB = co_AB, AandC = co_AC, BandC = co_BC)

3-step method

# source("plotvenn.R")
# source("plotvenntexts.R")
# source("sourceAll.R")

plotVenn(Q$circles)
plotVennTexts(Q$textspos, unit = "%)", connect = ":\n(")
title(main = "Big title")