如果单元格满足基于另一个矩阵的条件，则在kable中添加星号

install.packages("kableExtra")
library(kableExtra)

# 原始数据
data <- data.frame(
  A = c(1, 2, 3),
  B = c(4, 5, 6)
)

# 条件矩阵（假设我们想为A列值大于2的单元格添加星号）
conditions <- data$A > 2

add_asterisk <- function(x, condition) {
  ifelse(condition, paste0(x, "*"), x)
}

# 应用条件到数据框的每一列
data_modified <- data.frame(
  lapply(data, add_asterisk, condition = conditions)
)

# 使用kable生成表格
kable(data_modified, format = "html") %>%
  kable_styling()