为了达到你想要的结果，你可以使用case_when来替换表中的值，条件是总值。
注意：对于您的示例数据，表中的总值为32。因此，我使用硬编码的5来说明您的规则。

library(expss)
library(dplyr, warn=FALSE)

df <- mtcars
df$vs <- 1
banner1 <- list(df$vs)

Average <- function(x) mean_col(x, na.rm = TRUE)
Min <- function(x) min_col(x, na.rm = TRUE)
Max <- function(x) max_col(x, na.rm = TRUE)
t1 <- cross_fun(df, df$hp,
  col_vars = banner1,
  fun = combine_functions(Max = Max, Min = Min, Ave = Average, Total = valid_n)
)

# Fix total for illustartion as the total in the table = 32
total <- 5#t1[["1"][4]
            
t1[["1"]] <- case_when(
  total <= 3 & grepl("Min$", t1[["row_labels"]]) ~ "*",
  total <= 4 & grepl("Max$", t1[["row_labels"]]) ~ "*",
  total == 5 & grepl("Ave$", t1[["row_labels"]]) ~ "*",
  .default = as.character(t1[["1"]])
)

print(t1)
#>                         
#>  |       |       |   1 |
#>  | ----- | ----- | --- |
#>  | df$hp |   Max | 335 |
#>  |       |   Min |  52 |
#>  |       |   Ave |   * |
#>  |       | Total |  32 |

字符串