Skip to content

VennDiagram Bugs

1 message · Dario Strbenac

Original
Dario Strbenac
# 
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 ?
Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
      1    3706    8340    8488   13070   17560
Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    219    4740    9815    9394   13550   17560
Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   2184    4076    6266    5749    7940    8280
Error in if (max.x - min.x >= max.y - min.y) { : 
  missing value where TRUE/FALSE needed
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 :
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