Я хотел бы создать легенду для диаграммы Веннеулера Венна. Это должно быть прямо, потому что функция venneuler возвращает цвета, используемые для консоли. Цвета имеют значения от 0 до 1. Я хочу знать, как превратить эти числовые значения, хранящиеся в $ colors, во что-то, что я могу использовать для заполнения аргумента заполнения в легенде.

Я попытался сделать это ниже, используя $ colors, извлеченный из venneuler и индексирование из colors (). Я знаю, что это не правильно, потому что colors () индексируется со значениями интервалов, но вставьте его, чтобы показать, что я хотел бы.

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