r - gt 表中的小数对齐数字列

Question

为了演示，有时数字需要在表格中的列内进行小数对齐。

包中的cols_align()函数gt只有一个居中、右或左选项用于对齐数字。

library(tidyverse)
library(gt)

df <- tibble(left_aligned = c(1.22, 222),
       right_aligned = c(4300, 0.1223))

df_gt <- df %>% 
   gt() %>% 
  cols_align(columns = 1,
             align = "left") %>% 
  cols_align(columns = 2,
             align = "right") %>% 
  fmt_number(columns = 1,   # Format the numbers so they display the correct number of decimals
             rows = 1,
             decimals = 2) %>% 
  fmt_number(columns = 1,
             rows = 2,
             decimals = 0) %>% 
  fmt_number(columns = 2,
             rows = 1,
             decimals = 0) %>% 
  fmt_number(columns = 2,
             rows = 2,
             decimals = 4)

df_gt

是否可以用小数点对齐列？

所以它看起来类似于：