Я использую nVennr, который оказался весьма полезным, хотя я изучил всю сопроводительную документацию и до сих пор не могу выяснить, как сделать 2 вещи, которые, я думаю, возможны. Они показывают, как изменить отображаемые цифры в нестандартном формате и как удалить легенду.
Ниже приведены некоторые данные, иллюстрирующие, как nVennr автоматически преобразует цифры в стандартную форму.
library(nVennr)
library(dplyr)
library(rsvg)
library(grImport2)
SetA = round(runif(10000000),0)
SetB = round(runif(10000000),0)
SetC = round(runif(10000000),0)
allSets = cbind(SetA, SetB, SetC) %>%
as.data.frame() %>%
rownames_to_column()
SetA = subset(allSets, SetA == 1)$rowname
SetB = subset(allSets, SetB == 1)$rowname
SetC = subset(allSets, SetC == 1)$rowname
myV = plotVenn(list(SetA = SetA,
SetB = SetB,
SetC = SetC),
nCycles = 10000)
Любая помощь будет принята с благодарностью, особенно в связи со стандартным выпуском формы, и это делает сюжеты довольно безобразными.
Спасибо!