No merge

library(huxtable)
library(dplyr)


data = rbind(mtcars |> tibble::rownames_to_column('Car'), 
             mtcars |> tibble::rownames_to_column('Car')) |>
  mutate(Car = factor(Car)) |>
  arrange(Car) |>
  head(10) |>
  mutate(Car = as.character(Car)) |> 
  select(Car, cyl)

Merged

ht <- as_hux(data, add_colnames = T)|>
  slice(1:3) |> 
  merge_cells(1:2, 1) |> 
  set_bottom_border(2, everywhere, 0.4) |> 
  huxtable::set_caption('Title') |>
  set_caption_pos(value =  'topleft')

ht


hughjonesd/huxtable documentation built on Feb. 17, 2024, 12:20 a.m.