Ручная установка цвета для диаграмм Венна в пакете Vennerable

Question

Привет я хотел бы иметь возможность вручную назначать цвета. Например

library(Vennerable)
data(StemCell)
  w <- Venn(Sets=StemCell[1:2])
  plot(w, type="squares")

производит

однако, что я хотел бы сделать, это вручную изменить цвет, OCT4= красный, перекрытие = коричневый и Sox2= зеленый? это возможно с текущим пакетом? Я попытался установить gpar, но он, похоже, ничего особенного не делал.

Спасибо!

Answer 1

Частично это задокументировано в виньетке Vennerable (виньетка ("Venn")), раздел 2.3 "Графические параметры" и на справочной странице VennThemes (?VennThemes)

Настройка, которую вы хотели бы иметь, требует использования compute.Venn() в дополнение к Venn(), чтобы вычислить соответствующую диаграмму, которую затем можно настроить с помощью VennThemes().

Код для необходимой настройки выглядит следующим образом:

w <- compute.Venn(Venn(Sets=StemCell[1:2]), type = "squares")
gp <- VennThemes(w)
gp[["Face"]][["11"]]$fill <-  "brown"
gp[["Face"]][["01"]]$fill <-  "green"
gp[["Face"]][["10"]]$fill <-  "red"
plot(w, gp = gp)

Вы можете посмотреть на объект "gp", который содержит все настройки визуализации, такие как заливка Венны, измененная в приведенном выше коде, а также цвет линии, текста и т. Д. Получайте удовольствие, играя с этим.

Кстати, в виньетке, они используют сетку

library(grid)
grid.newpage()

вытереть шифер. В противном случае вы изображаете Венна поверх диаграммы Венна.