当然可以！你完全可以通过自定义ttheme来实现基于条件的行格式和颜色设置，核心思路就是先根据你的条件生成对应的格式参数（比如字体粗细、背景色），再把这些参数传入ttheme_default的core列表里。

我给你举几个实用的例子，你可以直接套用或者调整：

示例1：基于列值的条件格式化 #

比如我们想把iris数据中Sepal.Length > 5.0的行设置为加粗字体+浅蓝色背景，其他行保持默认交替灰：

library(gridExtra)
library(grid)

# 1. 先取部分数据演示
iris_sub <- iris[1:10, 1:3]
# 定义条件：标记出符合要求的行
highlight_rows <- iris_sub$Sepal.Length > 5.0

# 2. 生成对应格式参数
# 字体样式：符合条件的用bold，否则用plain
font_styles <- ifelse(highlight_rows, "bold", "plain")
# 背景颜色：符合条件的用浅蓝色，否则保持交替灰
bg_colors <- ifelse(highlight_rows, "#6BAED6", 
                   rep(c("grey95", "grey90"), length.out = nrow(iris_sub)))

# 3. 自定义主题
t_custom <- ttheme_default(
  core = list(
    fg_params = list(fontface = font_styles),
    bg_params = list(fill = bg_colors, alpha = 1)
  )
)

# 4. 生成表格
grid.table(iris_sub, theme = t_custom)

示例2：基于行索引的条件格式化 #

如果你想指定特定行（比如第3、第7行）进行格式化，逻辑也类似：

# 1. 指定要高亮的行索引
highlight_indices <- c(3,7)
# 生成标记向量
highlight_rows <- 1:nrow(iris_sub) %in% highlight_indices

# 2. 生成格式参数
font_styles <- ifelse(highlight_rows, "bold.italic", "plain")
bg_colors <- ifelse(highlight_rows, "#FFCC80", 
                   rep(c("grey95", "grey90"), length.out = nrow(iris_sub)))

# 3. 自定义主题并生成表格
t_custom2 <- ttheme_default(
  core = list(
    fg_params = list(fontface = font_styles),
    bg_params = list(fill = bg_colors, alpha = 0.8)
  )
)

grid.table(iris_sub, theme = t_custom2)

关键要点 #

• 核心是把条件转化为与行数匹配的参数向量：不管是基于列值、行索引还是其他业务逻辑，只要生成和表格行数一致的fontface、fill向量，就能精准控制每一行的样式。
• 你可以自由组合样式：比如同时设置字体颜色、背景透明度，只要在fg_params或bg_params里添加对应的参数（比如用col设置字体颜色）。
• 如果需要格式化表头，只需要把参数设置到header列表里，逻辑和core完全一致。

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