legend diagrama de venn en venneuler

Me gustaría crear una leyenda para un diagrama de Venneuler Venn. Esto debería ser sencillo porque la función venneuler devuelve los colores utilizados en la consola. Los colores tienen un valor entre 0 y 1. Quiero saber cómo convertir esos valores numéricos almacenados en $ colores en algo que pueda usar para completar el argumento de relleno en la leyenda.

He intentado esto a continuación utilizando los $ colores extraídos de venneuler e indexando los colores (). Sé que esto no es correcto porque los colores () están indexados con valores de intervalo, pero póngalo para mostrar lo que me gustaría.

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])

Respuestas a la pregunta(2)

Su respuesta a la pregunta