在R语言中计算不同长度数据框的差值并生成矩阵

完整实现代码 #

# 定义原始数据框
x = data.frame(name=c('a','b','c','d','e'),length=c(5,6,7,8,9))
y = data.frame(name=c('r','t','v'),length=c(10,11,12))

# 计算y的length与x的length的差值矩阵（x行y列）
diff_matrix <- t(outer(y$length, x$length, FUN = "-"))

# 将矩阵转换为数据框，并添加行名列作为第一列
result_df <- cbind(row_names = x$name, as.data.frame(diff_matrix))

# 设置列名：第一列标题为0，后续列使用y的name
colnames(result_df) <- c("0", y$name)

# 输出结果（隐藏默认行号）
print(result_df, row.names = FALSE)

代码解释 #

• 计算差值矩阵：使用outer()函数计算两个向量的外积，指定FUN="-"实现y$length - x$length的逐元素运算。outer()默认返回y行x列的矩阵，用t()转置后得到x行y列的结构，匹配需求。
• 添加行名列：通过cbind()将x$name作为第一列加入结果，确保每行对应原始数据的名称。
• 调整列名：将第一列标题设为0（匹配你期望的输出格式），后续列直接使用y$name作为标题。
• 格式化输出：设置row.names = FALSE隐藏R默认的行号，输出格式与需求完全一致。

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