Quería saber como poder hacer un diagrama de Venn que esté relleno con el nombre de las especies vegetales de mi análisis y no con el número de las mismas.
Hasta ahora solo he conseguido hacer dicha función con un script que me permite hacer el diagrama solo con 3 agrupamientos y no con cuatro como quiero.
El script que he seguido ha sido este:
library(VennDiagram)
BM1 <- c('Cistaceae', 'Oleaceae','Fagaceae','Rhamnaceae','Asteraceae','Asteraceae')
BM2 <- c('Boraginaceae','Poaceae','Poaceae')
BM3 <- c('Poaceae','Asteraceae','Chenopodiaceae','Asteraceae','Poaceae','Solanaceae','Solanaceae','Asteraceae','Rubiaceae')
BM4<- c('Amaranthaceae','Chenopodiaceae','Convolvulaceae','Convolvulaceae','Cucurbitaceae','Cucurbitaceae','Cucurbitaceae','Cucurbitaceae','Boraginaceae','Boraginaceae','Solanaceae')
v2 <- venn.diagram(list(Oak=BM1, Wasteland=BM2,Edge=BM3, Crop=BM4),
fill = c("red", "blue","green","purple"),
alpha = c(0.5, 0.5, 0.5,0.5), cat.cex = 1.5, cex=1.5,
filename=NULL)
grid.newpage()
grid.draw(v2)
v2[[7]]$label <- paste(setdiff(BM1,union(BM2,BM3)),collapse = "")
inters <- intersect(BM1,intersect(BM2,BM3))
v2[[8]]$label <- paste(setdiff(intersect(BM1,BM2), inters),collapse = "")
v2[[9]]$label <- paste(setdiff(BM2,union(BM1,BM3)),collapse = "")
v2[[10]]$label <- paste(setdiff(intersect(BM1,BM3), inters),collapse = "")
v2[[11]]$label <- paste(ww[[1,5]], collapse = "")
v2[[12]]$label <- paste(setdiff(intersect(BM3,BM2), inters),collapse = "")
v2[[13]]$label <- paste(setdiff(BM3,union(BM1,BM2)),collapse = "")
grid.newpage()
grid.draw(v2)
¿Qué debería de cambiar? Gracias de antemano.