In R there are many options to build venn diagram. You can get some of them
library(sos)
findFn('Venn diagramm')
For example using VennDiagram
(the first in the list) you can get this graph. I used random values to generate it since it is not very clear how do you consider shared and intersection regions in your question.
library(VennDiagram)
# You should replace the random values here by your set of values
##
set.seed(1)
A <- sample(1:100, 25, replace = FALSE)
B <- sample(1:100, 25, replace = FALSE)
C <- sample(1:100, 25, replace = FALSE)
D <- sample(1:100, 25, replace = FALSE)
venn.plot <- venn.diagram(
x = list(
Sept = A,
Oct = D,
Nov = B,
Dec = C
),
filename = NULL,
col = "transparent",
fill = c("cornflowerblue", "green", "yellow", "darkorchid1"),
alpha = 0.50,
label.col = c("orange", "white", "darkorchid4", "white",
"white", "white", "white", "white", "darkblue", "white",
"white", "white", "white", "darkgreen", "white"),
cex = 1.5,
fontfamily = "serif",
fontface = "bold",
cat.col = c("darkblue", "darkgreen", "orange", "darkorchid4"),
cat.cex = 1.5,
cat.pos = 0,
cat.dist = 0.07,
cat.fontfamily = "serif",
rotation.degree = 270,
margin = 0.2
)
grid.draw(venn.plot)