легенда диаграммы венна в venneuler

Я хотел бы создать легенду для диаграммы venneuler venn. Это должно быть прямолинейно, потому что функция 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])

r venn-diagram
person Tyler Rinker    schedule 03.02.2012    source источник

Ответы (1)


arrow_upward
8
arrow_downward

Просматривая plot.VennDiagram и его значения по умолчанию, вы можете увидеть, как он преобразует числа в y$colors в цветные строки rgb. (Попробуйте getAnywhere("plot.VennDiagram") посмотреть сами.)

Здесь я собрал два фрагмента кода, обрабатывающего цвета (в вашем случае), в одну функцию, которая сделает преобразование за вас. Позиционирование легенды, вероятно, можно было бы улучшить, но это уже другая проблема...

col.fn <- function(col, alpha=0.3) {
    col<- hcl(col * 360, 130, 60)
    col <- col2rgb(col)/255
    col <- rgb(col[1, ], col[2, ], col[3, ], alpha)
    col
}

COL <- col.fn(y$colors)
# The original order of columns in x is jumbled in the object returned
# by venneuler. This code is needed to put the colors and labels back
# in the original order (here alphabetical).
LABS <- y$labels
id <-  match(colnames(x), LABS)

plot(y)
legend(.05, .9, legend = LABS[id], fill = COL[id], x="topleft")

введите здесь описание изображения

person Josh O'Brien    schedule 03.02.2012
comment
Вместо этого я использовал id <- match(names(y$colors, LAB)) - person Scott Robert Schreckengaust; 14.01.2014