VennDiagram - внутренние метки

введите описание изображения здесьЯ построил свои списки генов с помощью пакета VennDiagram R, и диаграмма выглядит нормально.

Я хотел добавить внутренние метки к диаграмме Венна, например, если данные используются для первой и второй группы, но не для третьей и четвертой группы, тогда метка должна быть 1100. Я нашел одну вещь в пакете Venn {gplots}, который использует showSetLogicLabel=TRUE для этого.

Я ищу точно такую ​​же функциональность, но использую пакет VennDiagram.

Точно так же, как на картинке ниже, которая дает двоичные коды каждому счету на диаграмме. Я хотел сгенерировать эти двоичные коды в пакете VennDiagram.

http://rgm2.lab.nig.ac.jp/RGM_results/gplots:venn/venn_016_big.png


r venn-diagram
person user1732190    schedule 09.10.2012    source источник
comment
Добро пожаловать в Stack Overflow! Я внес некоторые правки в ваш вопрос, чтобы, надеюсь, прояснить его.   -  person Brian Diggs    schedule 09.10.2012
comment
@ user1732190 Не могли бы вы добавить пример кода? Это очень помогло бы   -  person Ali    schedule 09.10.2012
comment
venn.diagram (список (A = a1, B = a2, C = a3, D = a4), filename = all_interactions.tiff, category = c (x5x9, x6x10, x5x6, x9x10), lwd = c (0,5: 4) , fill = c (синий, красный, зеленый, розовый), cex = 2, cat.cex = 2, cat.dist = 0,09, ext.pos = 30, ext.dist = -0,05, ext.length = 0,85, ext .line.lwd = 2, ext.line.lty = пунктир, main = X [i] ›10 и qvalue‹ = 0,01, main.cex = 1, main.col = серый)   -  person user1732190    schedule 09.10.2012
comment
Когда вы наберете более 10 повторений (stackoverflow.com/privileges/new-user), вы можете добавлять изображения. В поле редактирования есть значки, упрощающие доступ к более обширной справке.   -  person Brian Diggs    schedule 09.10.2012
comment
Я добавил пример кода из комментария в сам вопрос. Однако он не самодостаточен (поскольку a1, a2, a3 и a4 не определены).   -  person Brian Diggs    schedule 09.10.2012
comment
@ user1732190, вопрос лучше, но почему бы вам не зарегистрировать лучший идентификатор пользователя?   -  person Ali    schedule 09.10.2012

Ответы (1)


arrow_upward
8
arrow_downward

Попробуй это:

library(VennDiagram)
draw.triple.venn(65, 75, 85, 35, 15, 25, 5, c("First", "Second", "Third"))

Диаграмма Венна для трех групп

Или это для лучшего обзора и 4 группы:

A <- sample(1:1000, 400, replace = FALSE); 
B <- sample(1:1000, 600, replace = FALSE);
C <- sample(1:1000, 350, replace = FALSE);
D <- sample(1:1000, 550, replace = FALSE);
E <- sample(1:1000, 375, replace = FALSE);
venn.diagram(x = list(A = A,D = D,B = B,C = C), filename = "Venn.tiff",
col = "transparent", fill = c("cornflowerblue","green","yellow","darkorchid1"),
alpha = 0.50, label.col = c("orange", "white", "darkorchid4", "white", "white", 
"white",    "white", "white", "darkblue", "white", "white", "white", "white", 
"darkgreen", "white"), cex = 1.5, fontfamily = "serif", fontface = "bold",
cat.col = c("darkblue", "darkgreen", "orange", "darkorchid4"), cat.cex = 1.5,
cat.pos = 0, cat.dist = 0.07, cat.fontfamily = "serif", rotation.degree = 270,
margin = 0.2)

Диаграмма Венна для 4 групп

В документе VennDiagram есть множество других примеров (Здесь < / а>)

person Ali    schedule 09.10.2012
comment
это не отвечает на вопрос OP - они хотели метки, основанные на двоичных кодах занятости, а не на количестве жителей - person Ben Bolker; 09.10.2012
comment
rgm2.lab.nig.ac.jp/RGM_results/gplots: venn / venn_016_big.png Как на картинке, мне нужны такие двоичные коды на моей диаграмме Венна - person user1732190; 09.10.2012
comment
@ user1732190: Хорошо, давай посмотрим, смогу ли я что-то сделать или нет - person Ali; 09.10.2012
comment
@ user1732190 Я попытался использовать возвращаемое значение функции для извлечения размеров текстов x, y. Это было успешно. Однако использование функции text () для размещения новых меток на диаграмме вручную не удается. Также нетривиально узнать группы по текстовым меткам или позициям. - person Ali; 09.10.2012
comment
@ user1732190 Наконец, я думаю, что лучший вариант - использовать Venn (gplots) - person Ali; 10.10.2012
comment
Я искал cat.cex, я думал, что это будет правда, но то, что он здесь, помогло мне. Спасибо. - person Sam; 04.03.2015