Как изменить шрифт Venn Diagram

Question

Я пытаюсь изменить шрифт моей диаграммы Венна на arial.

Основываясь на предыдущем вопросе о переполнении стека, здесь VennDiagram без имен групп и со шрифтом Arial Я попытался добавить fontfamily = "arial" в код, но это не сработало.

venn.plot <- draw.quad.venn(
area1 = 72,
area2 = 86,
area3 = 50,
area4 = 52,
n12 = 44,
n13 = 27,
n14 = 32,
n23 = 38,
n24 = 32,
n34 = 20,
n123 = 18,
n124 = 17,
n134 = 11,
n234 = 13,
n1234 = 6,
category = c("Workshops", "STEM Tours", "Summer Apprenticeships", 
"Convocation"),
fill = c("antiquewhite4", "cornflowerblue", "gold1", "lightpink2"),
lty = 0, #this gets rid of border
fontfamily ="arial",
cex = 1, 
cat.cex = 2,
cat.col = c("antiquewhite4", "cornflowerblue", "gold1", "lightpink2")
);

Answer 1

В моей системе (Win64) после установки extrafont вам нужно будет запустить font_import() (занимает некоторое время), а затем loadfonts(device = "win"). Тогда вы можете сделать что-то вроде wf <- windowsFonts() и исследовать wf. В моем случае я могу получить доступ к Arial с wf$Arial, но с YMMV. Также имейте в виду, что имена групп указаны в аргументе cat.fontfamily. Если вы хотите все в Arial,

venn.plot <- draw.quad.venn(
    area1 = 72,
    area2 = 86,
    area3 = 50,
    area4 = 52,
    n12 = 44,
    n13 = 27,
    n14 = 32,
    n23 = 38,
    n24 = 32,
    n34 = 20,
    n123 = 18,
    n124 = 17,
    n134 = 11,
    n234 = 13,
    n1234 = 6,
    category = c("Workshops", "STEM Tours", "Summer Apprenticeships", 
                "Convocation"),
    fill = c("antiquewhite4", "cornflowerblue", "gold1", "lightpink2"),
    lty = 0, #this gets rid of border
    fontfamily = wf$Arial,
    cex = 1, 
    cat.cex = 2,
    cat.fontfamily = wf$Arial,
    cat.col = c("antiquewhite4", "cornflowerblue", "gold1", "lightpink2")
);