在R中创建DataTable并为数据列着色时遇报错求助

错误根源分析 #

触发argument 'length.out' must be of length 1错误的直接原因是nrow(data$High)：data$High是单列向量，nrow()对向量返回NULL，NULL +1得到空向量，导致seq.default()无法识别有效长度参数。此外代码还有几处逻辑问题：

• 分别排序High和Transmission会破坏原数据的行对应关系，计算的比率与原数据行不匹配
• colorRamp要求输入值在0-1区间，直接用比率可能超出范围
• styleInterval的间隔点数量与颜色数量不匹配

修正后的代码 #

library(DT)
library(tibble)
library(scales)

rag_df <- data.frame(Vulnerabilities = c("AV", "BV", "EW",
                                         "FD", "FS", "RE",
                                         "Ps", "SA", "FA"),
                     `High` = c(21.1, 32.2, 2.12, 4.6, 5.43, 6.56, 7.9, 8.11, 9.13), 
                     `Transmission` = c(1.11, 2.22, 33.3, 4.44, 5.55, 6.66, 7.77, 8.890, 9.19))

crt_rag_tbl <- function(data, col_name) {
  # 按行计算比率，保留原数据对应关系
  ratios <- data[[col_name]] / data$Transmission
  # 归一化比率到0-1区间，适配colorRamp要求
  normalized_ratios <- rescale(ratios, to = c(0, 1))
  
  # 生成对应行数的颜色
  clrs_rmp <- colorRamp(c("#FD015B", "#FF7300", "#FFF200", "#A5D700"))(normalized_ratios)
  # 转换为RGB格式字符串（四舍五入到整数）
  clrs_df <- tibble(r = clrs_rmp[, 1], 
                    g = clrs_rmp[, 2], 
                    b = clrs_rmp[, 3]) %>%
    mutate(mycolor = paste0("rgb(", round(r), ",", round(g), ",", round(b), ")"))
  clrs <- pull(clrs_df, mycolor)
  
  # 生成间隔点：styleInterval要求间隔点数量比颜色少1，取排序后的目标列值作为分界
  sorted_vals <- sort(unique(data[[col_name]]))
  interval_points <- sorted_vals[-length(sorted_vals)]
  
  # 创建DataTable并应用样式
  create_db <- datatable(data, rownames = TRUE) %>%
    formatStyle("Vulnerabilities", 
                fontWeight = "bold", 
                color = 'white', 
                backgroundColor = "#3CD7D9") %>% # 所有行统一颜色，无需styleEqual
    formatStyle(col_name, 
                backgroundColor = styleInterval(interval_points, clrs))
  return(create_db)
}

# 调用函数
RA_table <- crt_rag_tbl(rag_df, "High")
RA_table

关键修正点说明 #

• 移除冗余的nrow(data$High)逻辑，直接基于原数据行计算比率，避免向量与数据框的行数判断混淆
• 保留原数据行对应关系，确保比率计算与原数据行匹配
• 使用rescale()将比率归一化到0-1区间，符合colorRamp的输入要求
• 简化Vulnerabilities列的背景色设置，所有行统一颜色，无需styleEqual
• 调整styleInterval的间隔点数量，确保间隔点比颜色数量少1，避免样式匹配错误

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