Есть несколько вариантов.Например, я создал библиотеку под названием nVennR, которую вы можете установить из CRAN.Например,
library(nVennR)
myV <- createVennObj(nSets = 5, sNames = c('A', 'B', 'C', 'D', 'E'))
myV <- setVennRegion(myV, c('E'), 2)
myV <- setVennRegion(myV, c('E', 'A'), 4)
myV <- setVennRegion(myV, c('B'), 8)
myV <- setVennRegion(myV, c('A', 'B'), 10)
myV <- setVennRegion(myV, c('A'), 9)
myV <- setVennRegion(myV, c('D', 'A'), 4)
myV <- setVennRegion(myV, c('D'), 8)
myV <- setVennRegion(myV, c('A', 'C'), 3)
myV <- setVennRegion(myV, c('C'), 5)
pV <- plotVenn(nVennObj = myV)
И результат:
Результатом является векторное изображение, которое можно сохранить иизм.Для более подробной информации, вы можете прочитать виньетка