增加 ggplot 标题中下划线的大小

我正在尝试增加 ggplot 标题中下划线的大小/宽度/厚度。我尝试过使用尺寸、宽度和长度，但没有成功。

这是我所做的一个例子。

test <- tibble(x = 1:5, 
y = 1, 
z = x ^ 2 + y)

ggplot(test, aes(x,z)) +
geom_point() +
labs(title = expression(paste(underline("Increasing"), " underline")))+
theme(plot.title = element_text(size = 20))

Any ideas would be appreciated.

好问题。我的第一个想法就正确了吗？

用另一条下划线覆盖下划线。

library(ggplot2)
library(tibble)

test <- tibble(x = 1:5, 
               y = 1, 
               z = x ^ 2 + y)

ggplot(test, aes(x, z)) +
  geom_point() +
  labs(title = expression(paste(underline(underline("Increasing")), " underline"))) +
  theme(plot.title = element_text(size = 20))