如何在表格或图形标题上方获取条形图（水平粗线）以进行AMA格式化？

Question

我正在尝试根据AMA规则，使表中kable和R标记为LaTeX的表看起来正确。我的标题上方需要一个粗条或一条线。有没有人对此有一个简单的解决方案？我需要同样的数字，我正在使用ggpubr。

library(dplyr)
library(knitr)
library(kableExtra)

df <- data.frame( X = sample(letters, 10), y = runif(10), z = sample(10:20, 10))

kable(df,
  booktabs = TRUE,
  caption = "My caption needs a bar above, because of AMA formatting.",
  escape = FALSE,
  format = 'latex') %>%
 kable_styling(latex_options = c("striped", "hold_position"))