I need to generate venn diagrams for some of my data. I am using the
venn library. Is there a function that generates the ids and attributes
that I can pass on to venn

Library(venn)

ids <- c(1,1,1,2,2,2,3,3,3,4,4,5,5,5,6,6,7,8,9,10)

attributes <-
c("A","B","C","A","B","C","A","B","C","A","B","A","B","C","A","C","A","B
","C","B")

venn(ids, attributes)

 

Here is my data 

Venn.data<- structure(list(NN = structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9,
10, 

11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22), .Label =
c("ABCC4-2009", 

"ABCC4-2010", "ABCG1-0490", "ADARB1-0558", "AHCY-2002", "ALDH1A2-0002", 

"ANKRD15-1029", "ANXA2-0915", "APBA2BP-0010", "APBA2BP-0011", 

"APBA2BP-0012", "APBB3-0183", "APBB3-0184", "ARFIP2-0129",
"ARFIP2-0130", 

"ARFIP2-0132", "AS3-1446", "ATP2C1-0791", "ATP2C1-0792", "ATP5A1-0258", 

"ATP5A1-0261", "ATP5A1-0263"), class = "factor"), TT = structure(c(1, 

2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 

20, 21, 22), .Label = c("ABCC4-2009", "ABCC4-2010", "ABCG1-0490", 

"ADARB1-0558", "AHCY-2002", "ALDH1A2-0002", "ANKRD15-1029",
"ANXA2-0915", 

"APBA2BP-0012", "APBB3-0183", "APBB3-0184", "ARFIP2-0129",
"ARFIP2-0130", 

"ARFIP2-0132", "AS3-1446", "ATP2C1-0791", "ATP2C1-0792", "ATP5A1-0258", 

"ATP5A1-0261", "ATP5A1-0263", "ATP5O-0646", "ATP6AP1-0880"), class =
"factor"), 

    TN = structure(c(17, 20, 3, 6, 8, 1, 4, 5, 9, 10, 21, 11, 

    13, 12, 22, 14, 15, 16, 18, 19, 2, 7), .Label = c("ABCC4-2013", 

    "AGR2-0519", "AMACR-2094", "ANGPT1-1031", "ANGPT1-1032", 

    "CLDN8-0345", "CLU-0196", "ENTPD5-0872", "ESR1-1003", "GDEP-0199", 

    "GRIK1-0319", "KLK3-0207", "KRT15-1333", "KRT15-1334", "MYO6-0041", 

    "NELL2-0805", "PCP4-0394", "PLA2G2A-1380", "PLA2G2A-1382", 

    "PTGS2-1271", "TGM4-2072", "TXNIP-1120"), class = "factor")), .Names
= c("NN", 

"TT", "TN"), class = "data.frame", row.names = c("1", "2", "3", 

"4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", 

"16", "17", "18", "19", "20", "21", "22"))

 

 


	[[alternative HTML version deleted]]

