R语言data.table自定义汇率转换函数行计算报错，求修复方案

错误原因分析 #

你遇到的EXPR must be a length 1 vector错误，核心原因是switch函数要求第一个参数必须是长度为1的标量，但在data.table中调用CurConverter时，FromCUR、ToCUR等参数都是向量类型，导致rate$Action返回多行结果（向量），不符合switch的输入要求。

方案一：修复自定义函数适配向量输入 #

将原函数修改为支持向量操作的版本，用merge匹配汇率并通过ifelse替代switch（switch不支持向量处理）：

CurConverter <- function(FromCUR, ToCUR, Amount, exchange_rate_table) {
  # 构造临时表匹配汇率
  temp_dt <- data.table(FromCUR, ToCUR, Amount)
  temp_dt <- merge(temp_dt, exchange_rate_table, 
                   by.x = c("FromCUR", "ToCUR"), 
                   by.y = c("From", "To"), 
                   all.x = TRUE)
  
  # 向量式处理转换逻辑
  temp_dt[, result := ifelse(Action == "Multiply", Amount * Rate, 
                             ifelse(Action == "Divide", Amount / Rate, Amount))]
  
  # 处理无匹配汇率的情况（返回原金额）
  temp_dt[is.na(result), result := Amount]
  
  return(temp_dt$result)
}

# 调用示例
merged_df <- merge(dfOrders, dfXRate, 
                   by.x = c("FromCUR", "ToCUR"), 
                   by.y = c("From", "To"), 
                   all.x = TRUE)
merged_df[, ConvertedPrice := CurConverter(FromCUR, ToCUR, Price, dfXRate)]

方案二：data.table原生高效实现（推荐） #

既然已经完成表合并，直接利用data.table的向量化特性和.SDCols批量处理所有需要转换的字段（Price、VAT、Fees），无需额外自定义函数：

# 合并订单表与汇率表
merged_df <- merge(dfOrders, dfXRate, 
                   by.x = c("FromCUR", "ToCUR"), 
                   by.y = c("From", "To"), 
                   all.x = TRUE)

# 定义需要转换的字段列表
target_cols <- c("Price", "VAT", "Fees")

# 批量生成转换后的字段
merged_df[, paste0("Converted", target_cols) := lapply(.SD, function(col_val) {
  ifelse(Action == "Multiply", col_val * Rate,
         ifelse(Action == "Divide", col_val / Rate, col_val))
}), .SDCols = target_cols]

# 补全无匹配汇率的记录（返回原金额）
merged_df[, (paste0("Converted", target_cols)) := lapply(.SD, function(conv_val) {
  original_col <- sub("Converted", "", names(.SD))
  ifelse(is.na(conv_val), get(original_col), conv_val)
}), .SDCols = paste0("Converted", target_cols)]

方案优势 #

• 效率更高：完全利用data.table的向量化操作，避免循环或函数调用的额外开销
• 批量处理：一行代码完成所有目标字段的转换，无需重复编写逻辑
• 可读性强：符合data.table原生语法，维护成本更低

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