That problem looks similar to this one. As Johan Larsson states, this kind of problem is hard for the eulerr algorithm. If you want to give nVennR a try, you can:

> library(nVennR)
> myV <- createVennObj(nSets = 5, sNames = c("gen","RC","PP","Mixed","None"))
> myV <- setVennRegion(myV, c("gen"), 7)
> myV <- setVennRegion(myV, c("RC"), 1)
> myV <- setVennRegion(myV, c("PP"), 2)
> myV <- setVennRegion(myV, c("Mixed"), 5)
> myV <- setVennRegion(myV, c("None"), 12)
> myV <- setVennRegion(myV, c("gen", "PP"), 30)
> myV <- setVennRegion(myV, c("gen", "PP", "RC"), 6)
> myV <- setVennRegion(myV, c("PP", "RC"), 2)
> myV <- setVennRegion(myV, c("gen", "RC"), 6)
> myV <- plotVenn(nVennObj = myV)
> myV <- plotVenn(nVennObj = myV)
> myV <- plotVenn(nVennObj = myV) 

The last command is repeated on purpose to compact the result:

You can check the vignette for more info.

As explained in the comments, you will not be able to express an arbitrary set of relationships for more than 3 sets with circles. The package eulerr uses ellipses to get more combinations and also make the result somewhat proportional to the number of elements in each region. I made a different package called nVennR that uses circles for the regions instead of the sets. The sets are then drawn around those circles:

> library(nVennR)
> myT <- read.table('clipboard', header = T)
> lol <- as.list(myT)
> myV <- plotVenn(lol)
> myV <- plotVenn(nVennObj = myV)
> myV <- plotVenn(nVennObj = myV)
> myV <- plotVenn(nVennObj = myV)
> myV <- plotVenn(nVennObj = myV)
> myV <- plotVenn(nVennObj = myV)
> myV <- showSVG(nVennObj = myV, opacity = 0.2)

Repeating the command myV <- plotVenn(nVennObj = myV) is necessary to get a compact shape. If you try it, you will see that it takes a couple of minutes, as it needs to perform several simulations. The package can take any number of sets, but things get really slow above 9 sets. The result:

You can save, edit and improve the picture to better show the information, but it is not trivial. You can find more information in the vignette.

You say proportional Euler diagram with four sets, but that's an impossibility in the general case (try sketching it proportionally). You can make a simple 4-way Venn pretty easily with a few different packages, here's an example using venn from the gplots package: · library(gplots) · test1 <- c"dog", "cat""monkey""fish""cow""frog" · test2 "aardvark""lizard""bison""goat" · test3 "whale""worm" · test4 "bird""plant""fly""horse" · vennlistA=test1,Btest2,Ctest3,Dtest4))

You're looking for the gridExtra package. grid.arrange() is probably all you need:

library(eulerr)
library(data.table)
library(gridExtra) # for arranging the plots

x <- data.table("A" = rep(c(TRUE,FALSE), times = 20),
                "B" = rep(c(TRUE,FALSE), each = 10),
                "C" = rep(c(TRUE,TRUE,FALSE,TRUE), times = 5))

fit.ellipses <- eulerr::euler(combinations = x, shape = "ellipse")

# here is the basic plot, this part works
plot(fit.ellipses)


# Using grid.arrange() from gridExtra:
grid.arrange(
  plot(fit.ellipses),
  plot(fit.ellipses)
)

# you can also use ncol/nrow to define the plot layout
grid.arrange(
  plot(fit.ellipses),
  plot(fit.ellipses),
  plot(fit.ellipses),
  nrow=1
)

output of the second plot: