如何在 R 中的绘图标题中使用斜体、粗体和新行

Question

我在 R 中使用条形图，需要标题遵循 APA 格式。我需要用粗体写 'Figure 1'，然后包含一个空行，然后用斜体写标题，所有这些都需要左对齐。所以，标题需要这样读：

图一

比较的停止原因

到目前为止，我想到的最佳解决方案是使用 title() 和 expression() 函数。但是，当我这样做时，第二行（标题）会缩进，无论我尝试什么，我都无法在不引入新问题的情况下获得正确的格式组合。参见 example

这里是要使用的示例代码

par(mar = c(5,4,5,1))

barplot(c(1, 1, 1), beside = T, col = 'black',
        names.arg = c("Investigatory", "Safety", "Checkpoint"),
        ylab = "Proportions", xlab = "Black / White")

title(main = expression(bold("Figure 1\n\n")~italic("Reasons for Stops Compared")), line = 1, adj = 0)

abline(h = c(1))

Answer 1

使用多行文字。在问题中，图像缩进了第二行，但问题的文本没有。我在 mtext 中添加了空格以缩进，但如果您不想要，请将其删除。还添加了代码以在末尾恢复标准杆。 c(1) 等于 1 所以去掉 c.

opar <- par(mar = c(5,4,5,1))

barplot(c(1, 1, 1), beside = T, col = 'black',
        names.arg = c("Investigatory", "Safety", "Checkpoint"),
        ylab = "Proportions", xlab = "Black / White")

title(main = ~ bold("Figure 1"),  line = 3, adj = 0)
mtext(~ italic("        Reasons for Stops Compared"), adj = 0)

abline(h = 1)
par(opar)

如何在 R 中的绘图标题中使用斜体、粗体和新行

How to use italics, bold, and new lines in a plot title in R

formatting

r

bar-chart