如何更改并排列出的两个表的特定列的外观(r markdown)

library(kableExtra)

# 生成两个示例表格
table1 <- data.frame(Name = c("John", "Alice", "Bob"),
                     Age = c(25, 30, 35),
                     Country = c("USA", "Canada", "UK"))

table2 <- data.frame(Name = c("Tom", "Emily", "Mike"),
                     Age = c(40, 45, 50),
                     Country = c("Australia", "Germany", "France"))

# 使用kable()函数生成表格，并使用add_header_above()和column_spec()自定义外观
kable(table1, "html") %>%
  add_header_above(c("Table 1" = 3)) %>%
  column_spec(1, bold = TRUE, italic = TRUE) %>%
  column_spec(2, background = "lightblue")

kable(table2, "html") %>%
  add_header_above(c("Table 2" = 3)) %>%
  column_spec(3, color = "red", underline = TRUE)

library(flextable)

# 生成两个示例表格
table1 <- data.frame(Name = c("John", "Alice", "Bob"),
                     Age = c(25, 30, 35),
                     Country = c("USA", "Canada", "UK"))

table2 <- data.frame(Name = c("Tom", "Emily", "Mike"),
                     Age = c(40, 45, 50),
                     Country = c("Australia", "Germany", "France"))

# 使用flextable()函数生成表格，并使用merge_v()、autofit()和align()自定义外观
flextable(merge_v(table1, table2)) %>%
  autofit() %>%
  align(j = 1:3, align = "center") %>%
  set_header_labels(Name = "姓名", Age = "年龄", Country = "国家")