如何在R中用dplyr或基础函数实现单列矩阵的行两两乘除？

假设你的数据是带行标识的单列结构（如示例中的A|5、B|1、C|2、D|4），以下分别用基础R函数和dplyr工具链实现所有行两两的除法（行X/行Y）、乘法（行X*行Y）运算，最终输出包含运算标识和结果的单列矩阵。

基础R实现 #

步骤示例 #

1. 构造示例数据（替换为你的实际矩阵数据）：

# 用data.frame存储行标识和对应数值（如果是纯矩阵，可先转换为带行名的结构）
df <- data.frame(
  label = c("A", "B", "C", "D"),
  value = c(5, 1, 2, 4),
  stringsAsFactors = FALSE
)

2. 生成所有两两行组合并计算：

# 生成所有行对组合（x为被除数/被乘数，y为除数/乘数）
combos <- expand.grid(x = df$label, y = df$label, stringsAsFactors = FALSE)
# 可选：排除自身运算（如A/A，若需要保留则删除此行）
combos <- combos[combos$x != combos$y, ]

# 匹配对应行的数值
combos$x_val <- df$value[match(combos$x, df$label)]
combos$y_val <- df$value[match(combos$y, df$label)]

# 计算除法和乘法结果
combos$div <- combos$x_val / combos$y_val
combos$mul <- combos$x_val * combos$y_val

# 整理成单列矩阵结构
div_output <- data.frame(op = paste0(combos$x, "/", combos$y), res = combos$div)
mul_output <- data.frame(op = paste0(combos$x, "*", combos$y), res = combos$mul)

# 合并并转换为矩阵
final_matrix <- as.matrix(rbind(div_output, mul_output))

运行后，final_matrix即为包含所有两两运算结果的矩阵（第一列为运算标识，第二列为结果；若仅需纯结果单列，可提取final_matrix[,2]）。

dplyr工具链实现 #

步骤示例 #

需加载dplyr和tidyr包：

library(dplyr)
library(tidyr)

1. 构造示例数据：

df <- tibble(
  label = c("A", "B", "C", "D"),
  value = c(5, 1, 2, 4)
)

2. 生成组合并计算：

final_df <- df %>%
  # 生成所有行对组合
  expand(x_label = label, y_label = label) %>%
  # 可选：排除自身运算
  filter(x_label != y_label) %>%
  # 匹配x和y对应的数值
  left_join(df, by = c("x_label" = "label")) %>%
  rename(x_val = value) %>%
  left_join(df, by = c("y_label" = "label")) %>%
  rename(y_val = value) %>%
  # 计算乘除并生成运算标识
  mutate(
    div_op = paste0(x_label, "/", y_label),
    div_res = x_val / y_val,
    mul_op = paste0(x_label, "*", y_label),
    mul_res = x_val * y_val
  ) %>%
  # 把乘除结果整理为单列结构
  pivot_longer(
    cols = c(div_op, mul_op, div_res, mul_res),
    names_to = c(".value", "type"),
    names_pattern = "(.*)_(.*)"
  ) %>%
  select(operation = op, result = res)

# 转换为矩阵
final_matrix <- as.matrix(final_df)

注意事项 #

对于500行的矩阵，若排除自身运算，将生成500*499*2 = 499000条结果，需确保内存足够容纳该规模的数据。

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