gt 表中的小數對齊數字列

Question

為了演示，有時數字需要在表格中的列內進行小數對齊。

gt package 中的cols_align() function 只有一個用於對齊數字的中心、右側或左側選項。

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

是否可以用小數點對齊列？

所以它看起來類似於：

Answer 1

有了這個 package gtExtras的新擴展 - 你可以做到。

使用問題中的示例：

library(gt)
library(gtExtras)

df <- data.frame(left_aligned = c(1.22, 222),
                 right_aligned = c(4300, 0.1223)) 
gt(df) %>%
    fmt_pad_num(columns = c(left_aligned, right_aligned))

Output：