如何在R语言的gt表格中为交替行设置灰色背景

gt包提供了两种便捷方式实现隔行灰色背景：

方法一：使用内置的条纹行函数 #

opt_row_striping()是gt专门用于开启隔行条纹的函数，一行代码就能快速实现效果，默认条纹色可通过主题调整：

library(palmerpenguins)
library(gt)

penguins %>%
  dplyr::select(1:3) %>%
  dplyr::slice(1:10) %>% 
  gt() %>%
  opt_row_striping()

方法二：自定义灰色背景 #

如果需要指定具体的灰色色调，用tab_style()结合行选择逻辑实现，灵活性更高：

library(palmerpenguins)
library(gt)

penguins %>%
  dplyr::select(1:3) %>%
  dplyr::slice(1:10) %>% 
  gt() %>%
  tab_style(
    style = cell_fill(color = "#f0f0f0"), # 可替换为你需要的灰色色值
    locations = cells_body(rows = is_even(row_number())) # 选中所有偶数行
  )

其中is_even(row_number())用于判断偶数行，也可以用seq(2, nrow(.), by = 2)来指定行号范围，两种写法效果一致。

内容的提问来源于stack exchange，提问作者LDT