Выбор шрифта для диаграммы перехода в GMisc

#r #r-grid #gmisc

#r #r-сетка #gmisc

Вопрос:

Как можно изменить шрифт текста в диаграмме перехода, созданной с помощью пакета GMisc в R?

Я могу получить 2% пути следующим образом:

 library(grid)
library(Gmisc)

grid.newpage()
txt <-
  "Just a plain box"

windowsFonts(
  A=windowsFont("TT Courier New"),
  B=windowsFont("TT Helvetica"),
  C=windowsFont("TT Montserrat")
)
boxGrob(txt, txt_gp = getOption("boxGrobTxt", default = gpar(fontfamily = "A")))
boxGrob(txt, txt_gp = getOption("boxGrobTxt", default = gpar(fontfamily = "B")))
boxGrob(txt, txt_gp = getOption("boxGrobTxt", default = gpar(fontfamily = "C")))
  

который последовательно генерирует одно поле в трех разных шрифтах.

Я ищу способ добиться того же самого в глобальном масштабе при рендеринге графика перехода, созданного как в виньетке, т.Е.,

 library(Gmisc)
transitions <- table(data$Charnley_class, data$Charnley_class_1yr) %>%
  getRefClass("Transition")$new(label=c("Before surgery", "1 year after"))
transitions$render()