Advertisement
Guest User

Untitled

a guest
Mar 24th, 2017
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.59 KB | None | 0 0
  1. library(venneuler)
  2.  
  3. library(rJava)
  4.  
  5. tiff("Figure1_sWHI.tif", res=300, compression = "lzw", height=5, width=5, units="in")
  6.  
  7. v = venneuler(c(A=16, B=16, C=16, 'A&B'=4, 'A&C'=5, 'B&C'=2, 'A&B&C'=1))
  8. v$labels <- c("Comorbidity**", "Disability*", "Frailty***")
  9. plot(v)
  10.  
  11. text(.50,.52,"6.8%", cex=.8)
  12. text(.50,.49,"n=13", cex=.7)
  13.  
  14. text(.47,.6,"n=2", cex=.8)
  15. text(.47,.63,"1%", cex=.8)
  16.  
  17. text(.63,.48,"59%", cex=.8)
  18. text(.63,.45,"n=112", cex=.8)
  19.  
  20. text(.63,.7,"33%", cex=.8)
  21. text(.63,.67,"n=63", cex=.8)
  22.  
  23. text(.50,.25,"n=1147", cex=.8)
  24.  
  25. text(.4,.45,"n=30", cex=.8)
  26.  
  27. text(.3,.63,"n=19", cex=.8)
  28.  
  29. dev.off()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement