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]]
