如何将kable中折叠的行移到左上角，并从中心悬停中移除？

library(kableExtra)

# 创建一个表格对象
tbl <- kable(mtcars, "html") %>%
  kable_styling()

# 添加一个额外的表头行并合并为一个单元格
tbl <- tbl %>%
  add_header_above(c(" " = 1))

# 使用HTML代码将折叠的行移到左上角
tbl <- tbl %>%
  add_header_above(c(" " = 1)) %>%
  add_header_above(c(" " = 1)) %>%
  add_header_above(c(" " = 1)) %>%
  add_header_above(c(" " = 1)) %>%
  add_header_above(c(" " = 1)) %>%
  add_header_above(c(" " = 1))

# 打印表格
print(tbl)

library(htmltools)

# 创建自定义的CSS样式
css <- "
table th:hover {
  background-color: none;
}
"

# 将CSS样式嵌入到HTML中
html <- HTML("<style>" , css, "</style>")

# 打印HTML
print(html)