legend venn diagrama em venneuler

Gostaria de criar uma legenda para um diagrama de venneuler venn. Isso deve ser direto porque a função venneuler retorna as cores usadas no console. As cores têm um valor entre 0 e 1. Quero saber como transformar esses valores numéricos armazenados em $ colors em algo que eu possa usar para preencher o argumento de preenchimento na legenda.

Tentei isso abaixo usando as $ colors extraídas do venneuler e a indexação das cores (). Eu sei que isso não está correto porque colors () é indexado com valores de intervalo, mas coloque-o para mostrar o que eu gostari

set.seed(20)
x <- matrix(sample(0:1, 100, replace = TRUE), 10, 10)
colnames(x) <- LETTERS[1:10]
rownames(x) <- letters[1:10]

require(venneuler)
y <- venneuler(x)
plot(y)

y$colors

legend(.05, .9, legend = colnames(x), fill = colors()[y$colors])

questionAnswers(2)

yourAnswerToTheQuestion