Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(venneuler)
- library(rJava)
- tiff("Figure1_sWHI.tif", res=300, compression = "lzw", height=5, width=5, units="in")
- v = venneuler(c(A=16, B=16, C=16, 'A&B'=4, 'A&C'=5, 'B&C'=2, 'A&B&C'=1))
- v$labels <- c("Comorbidity**", "Disability*", "Frailty***")
- plot(v)
- text(.50,.52,"6.8%", cex=.8)
- text(.50,.49,"n=13", cex=.7)
- text(.47,.6,"n=2", cex=.8)
- text(.47,.63,"1%", cex=.8)
- text(.63,.48,"59%", cex=.8)
- text(.63,.45,"n=112", cex=.8)
- text(.63,.7,"33%", cex=.8)
- text(.63,.67,"n=63", cex=.8)
- text(.50,.25,"n=1147", cex=.8)
- text(.4,.45,"n=30", cex=.8)
- text(.3,.63,"n=19", cex=.8)
- dev.off()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement