如何在gt表格中同时实现列居中与按小数点对齐？

我想在gt表格里让列既按小数点对齐，又整体居中显示，能不能做到？试了几次好像没法同时实现这两个效果。

准备测试数据 #

install.packages("librarian")
librarian::shelf(tidyverse, gt)

data <- 
  tibble(group = c(1:5),
         type_1 = c(1200, 3000, 100, 3300, 5200),
         long_label_type_2 = c(2000, 120, 1200, 350, 2300))

尝试1：将所有列居中对齐 #

data %>% 
  gt() %>% 
  cols_align(
    columns = everything(), 
    align = "center") %>% 
  fmt_number(
    columns = everything(),
    decimals = 0)

尝试2：按小数点对齐数值列 #

data %>% 
  gt() %>% 
  cols_align(
    columns = c(group), 
    align = "center") %>% 
  cols_align_decimal(columns = c(type_1, long_label_type_2)) %>%
  fmt_number(
    columns = everything(),
    decimals = 0)

内容的提问来源于stack exchange，提问作者r-newbie