使用tidyxl R包转换Excel填充色RGB值及处理tint参数

1. 基础RGB颜色转换 #

你手动去掉前两位FF的思路其实没问题——Excel的颜色RGB字段格式是AARRGGBB，前两位是透明度（Alpha通道），后面六位才是RGB值。如果不需要透明度，直接截取后六位加#就能得到标准十六进制颜色：

# 批量转换非NA的fillColor
dat$hex_color <- ifelse(is.na(dat$fillColor), 
                       NA, 
                       paste0("#", substring(dat$fillColor, 3)))

2. 处理tint参数（颜色深浅调整） #

Excel的tint参数是用来调整颜色亮度的：

• 正数：提亮颜色（趋近白色）
• 负数：加深颜色（趋近黑色）
• 取值范围：-1到1

要正确计算带tint的最终颜色，需要实现Excel的tint算法，这里写一个工具函数：

# 处理tint的函数：输入十六进制颜色（如"#FFFFFF"）和tint值，返回调整后的十六进制颜色
apply_tint <- function(hex_color, tint) {
  if (is.na(hex_color) || is.na(tint)) return(hex_color)
  
  # 把十六进制转成RGB的0-1小数
  rgb_vals <- col2rgb(hex_color)/255
  
  # 应用tint算法
  if (tint > 0) {
    new_rgb <- 1 - (1 - rgb_vals) * (1 - tint)
  } else {
    new_rgb <- rgb_vals * (1 + tint)
  }
  
  # 转成0-255整数，再转回十六进制
  new_rgb <- pmax(pmin(new_rgb * 255, 255), 0) %>% as.integer()
  rgb(new_rgb[1], new_rgb[2], new_rgb[3], maxColorValue = 255)
}

3. 结合你的数据完整处理 #

把上面的函数应用到你的数据里，就能得到正确的带tint的颜色：

# 先生成基础十六进制颜色
dat$hex_color <- ifelse(is.na(dat$fillColor), 
                       NA, 
                       paste0("#", substring(dat$fillColor, 3)))

# 应用tint调整
dat$final_color <- mapply(apply_tint, dat$hex_color, dat$fillTint)

# 查看结果
dat[c("character", "fillColor", "fillTint", "hex_color", "final_color")]

运行后，你会看到Light Gray对应的final_color会变成正确的浅灰色（比如#E6E6E6左右），和Excel里的显示一致。

补充说明 #

• 如果你需要保留Alpha通道，直接用完整的AARRGGBB格式，转成#AARRGGBB即可（部分工具支持带透明度的十六进制颜色）
• tidyxl返回的tint值有时候会有微小的精度误差（比如你的-0.1499985其实就是-0.15），不影响计算

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