如何在 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)

因为我收到以下错误：

标题错误==“”：表达式不允许比较

那么，如何才能生成包含下标表达式的标题？

Answer 1

您可以尝试添加标题。函数调用 returns 带有 $plot object 的列表，您可以在其中添加带有 ggtitle 的标题：

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

How to add an expression to the title of sjp.grpfrq function