如果列超过R Markdown中的页面容量，如何从表中拆分行？

library(knitr)
library(kableExtra)

# 创建一个包含超过页面容量的表格
df <- data.frame(
  Name = c("John", "Jane", "Mike", "Emily", "David", "Sarah"),
  Age = c(25, 30, 35, 40, 45, 50),
  City = c("New York", "Los Angeles", "Chicago", "Houston", "Philadelphia", "Phoenix"),
  Occupation = c("Engineer", "Teacher", "Doctor", "Lawyer", "Artist", "Writer"),
  Salary = c(50000, 60000, 70000, 80000, 90000, 100000)
)

# 使用kable函数创建表格，并使用add_header_above函数拆分行
kable(df, "html") %>%
  add_header_above(c("Personal Information" = 2, "Location" = 2, "Employment" = 2)) %>%
  kable_styling()