如何在R Markdown中创建动态表格标题

---
title: "动态表格标题示例"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

# 创建一个示例数据框
data <- data.frame(
  Name = c("Alice", "Bob", "Charlie"),
  Age = c(24, 27, 22),
  Salary = c(50000, 60000, 55000)
)

# 动态生成表格标题
table_title <- paste("员工信息表 -", paste(colnames(data), collapse = " & "))

# 输出带有动态标题的表格
knitr::kable(data, caption = table_title)