如何将表达式添加到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)

因为我收到以下错误：

标题错误==＆＃34;＆＃34; ：表达式不允许比较

那么，我怎样才能生成一个包含下标表达式的标题？

Answer 1

之后您可以尝试添加标题。函数调用返回一个带有$plot对象的列表，您可以在其中添加ggtitle标题：

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