如何构建一个双向表，汇总R中的第三个变量(kable包)

install.packages("kableExtra")
install.packages("dplyr")
install.packages("tidyverse")

library(kableExtra)
library(dplyr)
library(tidyverse)

data <- data.frame(Var1 = c("A", "B", "C"),
                   Var2 = c(1, 2, 3),
                   Var3 = c(10, 20, 30))

selected_data <- select(data, Var3)

table <- kable(selected_data)

table <- kable(selected_data, caption = "Summary of Var3", format = "html") %>%
  kable_styling(bootstrap_options = c("striped", "hover"))

cat(table)