在R中对齐htmlTable中的脚注

# 安装和加载htmlTable包
install.packages("htmlTable")
library(htmlTable)

# 创建一个示例数据框
data <- data.frame(
  Name = c("John", "Jane", "Mike"),
  Age = c(25, 30, 35),
  Salary = c(50000, 60000, 70000)
)

# 创建一个HTML表格
table <- htmlTable(data, align = "center")

# 添加脚注
footnote <- c("脚注1", "脚注2", "脚注3")
table <- addHtmlFoot(table, footnote, align = "center")

# 打印HTML表格
print(table)