R 创建动态标题+；使用ggplot2的字幕

我正在使用以下代码创建带有标题和子标题的ggplot图：

这是生成数据帧的代码

t <- c(1.4,2.1,3.4)
time <- c(10,11,12)
df_match <- data.frame(t, time)

---

t使用
bquote
评估需要评估的位。将要计算的对象放入
（）


g+ggtitle（bquote（顶部（（标题），顶部（斜体（“位置”），“”）
使用
bquote
评估需要评估的位。将要计算的对象放入
（）


g+ggtitle（bquote（顶部（（标题），顶部（斜体（“位置”），“”）
使用问题中的
g
和
标题
，尝试
替换
：

g + theme(axis.text.x = element_text(angle = 90)) + 
    ggtitle(substitute(atop(title, atop(italic("Location"), "")), list(title = title)))

给予：

使用问题中的
g
和
标题
，尝试
替换
：

g + theme(axis.text.x = element_text(angle = 90)) + 
    ggtitle(substitute(atop(title, atop(italic("Location"), "")), list(title = title)))

给予：

这对我很有用：
谢谢，但我还需要一个字幕。。。有什么想法吗？>如果您从github安装开发版本（或者等待它的正式发布），有新的对子标题的官方（简单）支持：
g+主题（axis.text.x=element\u text（angle=90））+ggtitle（title，subtitle=“location”）
适合我。编辑：我确实有即将发布的开发版本。这对我很有用：
标题谢谢，但我还需要一个副标题。。。有什么想法吗？>如果您从github安装开发版本（或者等待它的正式发布），有新的对子标题的官方（简单）支持：
g+主题（axis.text.x=element\u text（angle=90））+ggtitle（title，subtitle=“location”）
适合我。编辑：我有即将发布的开发版本。
g <- ggplot(df_match, aes(time, t)) + geom_point()
g + theme(axis.text.x = element_text(angle = 90)) + ggtitle(expression(atop(title, atop(italic("Location"), "")))) 

g + theme(axis.text.x = element_text(angle = 90)) + 
    ggtitle(substitute(atop(title, atop(italic("Location"), "")), list(title = title)))