an Reproduzierbarkeit müssen wir noch arbeiten. Bei mir sieht das so aus:
Code: Alles auswählen
library("nVennR")
d1 <- createVennObj(nSets = 2, sNames = c('A', 'B'))
d1 <- setVennRegion(d1, c("A"), 5)
d1 <- setVennRegion(d1, c("B"), 3)
d1 <- setVennRegion(d1, c("A", "B"), 1)
myV <- plotVenn(nVennObj = d1)
showSVG(nVennObj = myV)
Warnmeldung:
In showSVG(myVenn, ...) :
The figure cannot be rendered in the plot window. Please, use the arguments outFile and/or systemShow.
Ich habe mir dann folgendes erarbeitet:
Code: Alles auswählen
library("nVennR")
d1 <- createVennObj(nSets = 2, sNames = c('A', 'B'))
d1 <- setVennRegion(d1, c("A"), 5)
d1 <- setVennRegion(d1, c("B"), 3)
d1 <- setVennRegion(d1, c("A", "B"), 1)
myV <- plotVenn(nVennObj = d1)
showSVG(nVennObj = myV, systemShow = TRUE)
z.B.
Code: Alles auswählen
daten <- read.csv(header=TRUE, text=
"N, Region1, Region2, Region3
A, 5, 8, 10
B, 3, 5, 6
AB, 1,3,5")
Gruß, Jörg