I am trying to use the vennDiagram function of the limma package to color the circle borders in different colors. This works fine for up to three circles, but for four and five circles I can not get it to work. Does anyone have a solution for this?
Below is some sample code to reproduce my issue (adapted from the example section of the vennDiagram function):
Y <- matrix(rnorm(100*6),100,6) Y[1:10,3:4] <- Y[1:10,3:4]+3 Y[1:20,5:6] <- Y[1:20,5:6]+3 design <- cbind(1,c(0,0,1,1,0,0),c(0,0,0,0,1,1),c(1,0,1,0,1,0)) fit <- eBayes(lmFit(Y,design)) results <- decideTests(fit) a <- vennCounts(results) print(a) mfrow.old <- par()$mfrow par(mfrow=c(1,2)) vennDiagram(a,circle.col=c("red","green","blue","yellow"))
For me all circles are red, instead of red, green, blue and yellow.