Как добавить выражение в название функции sjp.grpfrq

Question

Как создать заголовок, подобный этому для функции sjp.grpfrq?

В качестве примера, я могу генерировать текст, как это с:

plot.new() 

a <- TeX(sprintf("%s (%s, $N_{HIGH}$=%d/$N_{TOTAL}$=%d)", "Whatever", "Blah", 10, 20)) 

text(0.5,0.5,a) 

Но я не могу использовать что-то вроде этого:

sjp.grpfrq(age.group, var.group, showValueLabels = FALSE, title = a) 

Потому что я получаю следующее сообщение об ошибке:

Ошибка в заголовке == "": сравнение не является llowed for expressions

Итак, как я могу сгенерировать заголовок, в котором есть выражения подстрочных индексов?

Answer 1

После этого вы можете попробовать добавить заголовок. Вызов функции возвращает список с $plot объекта, где вы можете добавить заголовок с ggtitle:

library(sjPlot) 
library(ggplot2) 
library(sjmisc) 
data(efc) 
sjp.grpfrq(efc$e42dep, efc$e16sex)$plot + ggtitle("New Title")