用'替代'放入变量的标题中的粗体

Question

那一个应该非常容易......如何在下图中的标题中以粗体显示i（= 1）（仅调整参数main）？< / p>

i <- 1
plot(0~0, main=substitute(bold("foo"~i.~"bar"), list(i.=i)))

Answer 1

这个怎么样？

i <- 1
plot(0~0, main=substitute(bold("foo"~i.~"bar"), list(i.=as.character(i))))