dat<-c("First" = 25, 
  "Second" = 5, 
  "Third" = 5,
  "First&Second" = 5, 
  "First&Third" = 5, 
  "Second&Third" = 3,
  "First&Second&Third" = 3)
plot(euler(dat),
     fills = list(fill=c("red","blue",
                         "green","darkgreen",
                         "white","black",
                         "purple"),
                  alpha=0.5),
     quantities = list(c(25,5,5,
                    1,1,1,1),
                    col="black",
                    cex=4),
     labels = list(col="white",font=3,cex=2),
     edges = list(col="darkgreen",lwd=5,
                  lty=1:3))