如何在剧情中标题一个大胆的罗马字母

Question

我在用粗体字体罗马字母填写我的情节时遇到了困难。我做了几次尝试，但上面显示的是较少愚蠢的尝试：

# error
plot(1)
title(main=bquote(paste("Title ",.(bold(as.roman(i))))) ,family = "Computer Modern", adj = 0)

# not pretty
title(main=expression(paste("Title ",bold(as.roman(i)))) ,family = "Computer Modern", adj = 0)

我试图将bquote替换为expression和substitute，其他人提出类似问题的建议，但没有成功。

Answer 1

如果您只想要罗马数字为粗体：

plot(1)
text <- as.character(as.roman(4))
title(main = bquote(Title~bold(.(text))))