r - 「substitute」で入力された変数のタイトルの太字

Question

それは本当に簡単なはずです...i次のプロットのタイトルで太字の (=1) を取得するにはどうすればよいですか (引数を調整するだけでmain)?

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))))