[Rd] VennDiagram Bugs

From: Dario Strbenac <D.Strbenac_at_garvan.org.au>
Date: Wed, 09 Mar 2011 17:00:20 +1100 (EST)


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

R-devel_at_r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel Received on Wed 09 Mar 2011 - 06:06:05 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Wed 09 Mar 2011 - 13:30:28 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-devel. Please read the posting guide before posting to the list.

list of date sections of archive