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

因为我收到以下错误：

标题 == "" 中的错误：不允许对表达式进行比较

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

score 0 · Accepted Answer

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

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

1 回答 1