如何在sjp.grpfrq函数的标题中添加表达式

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

因为我得到了以下错误：

标题==“”中出错：不允许对表达式进行比较

---

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

您可以尝试在之后添加标题。函数调用返回一个带有

$plot

对象的列表，您可以在其中添加带有

ggtitle

的标题：

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

---

您可以尝试在之后添加标题。函数调用返回一个带有

$plot

对象的列表，您可以在其中添加带有

ggtitle

的标题：

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

---

嗨，丹尼尔。谢谢我会试试你的建议。好的，如果我的答案令人满意，如果你能接受，我将不胜感激。：-）嗨，丹尼尔。谢谢我会试试你的建议。好的，如果我的答案令人满意，如果你能接受，我将不胜感激。：-）