From D.Strbenac at garvan.org.au  Wed Mar  9 07:00:20 2011
From: D.Strbenac at garvan.org.au (Dario Strbenac)
Date: Wed,  9 Mar 2011 17:00:20 +1100 (EST)
Subject: [Rd] VennDiagram Bugs
Message-ID: <20110309170020.BLF11744@gimr.garvan.unsw.edu.au>

Hello,

Even though the documentation says that it is possible to have a scaled Euler diagram for three categories, this fails to happen. All of the circles are the same size.

My commands are :

library(VennDiagram)
A <- 1:10
B <- 9:18
C <- 15:500
venn.diagram(list(NameOne=A, NameTwo=B, NameThree=C), "example.tiff", euler.d = TRUE, scaled = TRUE, fill = c("red", "blue", "green"), cat.pos = 0)

I also notice that adjusting just one text label with cat.just = list(c(-1, 0), c(0, 0), c(0, 0)) actually moves all of them around. Why is that ?

Also, I have some real data I'm working on, where X, Y, Z are vectors of numbers. It has an error with an unhelpful error message. Can it be fixed ?

> summary(X)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
      1    3706    8340    8488   13070   17560 
> summary(Y)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    219    4740    9815    9394   13550   17560 
> summary(Z)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   2184    4076    6266    5749    7940    8280 
> venn.diagram(list(A = X, B = Y, C = Z),"crash.tiff")
Error in if (max.x - min.x >= max.y - min.y) { : 
  missing value where TRUE/FALSE needed

> traceback()
5: adjust.venn(grob.list, ...)
4: draw.sp.case(area.list = c(a1, a2, a3, 0, 0, 0, a7), enabled.areas = c(1, 
       2, 3, 7), area.x = c(a1.x.pos, a2.x.pos, a3.x.pos, 0, 0, 
       0, a7.x.pos), area.y = c(a1.y.pos, a2.y.pos, a3.y.pos, 0, 
       0, 0, a7.y.pos), attach.label.to = c(1, 3, 7), x.centres = c(x.centre.1, 
       x.centre.2, x.centre.3), y.centres = c(y.centre.1, y.centre.2, 
       y.centre.3), a.list = c(r1, r2, r3), b.list = c(r1, r2, r3), 
       straight.reverse = TRUE, reverse = reflection, category = category, 
       cat.default.pos = cat.default.pos, lwd = lwd, lty = lty, 
       col = col, label.col = label.col, cex = cex, fontface = fontface, 
       fontfamily = fontfamily, cat.pos = cat.pos, cat.dist = cat.dist, 
       cat.col = cat.col, cat.cex = cat.cex, cat.fontface = cat.fontface, 
       cat.fontfamily = cat.fontfamily, cat.just = cat.just, fill = fill, 
       alpha = alpha, ...)
3: draw.120(a1, a2, a3, a4, a5, a6, a7, category = category, reverse = reverse, 
       cat.default.pos = cat.default.pos, lwd = lwd, lty = lty, 
       col = col, label.col = label.col, cex = cex, fontface = fontface, 
       fontfamily = fontfamily, cat.pos = cat.pos, cat.dist = cat.dist, 
       cat.col = cat.col, cat.cex = cat.cex, cat.fontface = cat.fontface, 
       cat.fontfamily = cat.fontfamily, cat.just = cat.just, cat.prompts = cat.prompts, 
       fill = fill, alpha = alpha, ...)
2: draw.triple.venn(length(a), length(b), length(c), length(nab), 
       length(nbc), length(nac), length(nabc), list.names, ind = FALSE, 
       list.order = 1:3, ...)
1: venn.diagram(list(A = X, B = Y, C = Z), "crash.tiff")

My setup is :

> sessionInfo()
R version 2.12.2 (2011-02-25)
Platform: x86_64-pc-mingw32/x64 (64-bit)

locale:
[1] LC_COLLATE=English_Australia.1252  LC_CTYPE=English_Australia.1252    LC_MONETARY=English_Australia.1252 LC_NUMERIC=C                       LC_TIME=English_Australia.1252    

attached base packages:
[1] grid      stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] VennDiagram_1.0.0

--------------------------------------
Dario Strbenac
Research Assistant
Cancer Epigenetics
Garvan Institute of Medical Research
Darlinghurst NSW 2010
Australia



[Rd] VennDiagram Bugs
Dario Strbenac