如何在一个情节中加入一个大胆的罗马字母

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＆amp; substitute，来自其他类似问题的建议在 SO 中发布，但没有成功。

Answer 1

如果您只想将罗马数字加粗：

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