使用 R 中的应用公式构建矩阵

Question

我在从数据表的矩阵中实现公式时遇到问题。 例如我有这个数据表

Lines <- "vars val1  val2
m     2    1
n     3    1
o     4    2"
DF <- read.table(text = Lines, header = TRUE)

vars val1  val2
 m     2    1
 n     3    1
 o     4    2

我想在矩阵中实现公式，例如 (m1-m2)+(m1-m2),(m1-m2)+(n1-n2),(m1-m2)+(o1-o2) ， 等等。 所以，矩阵应该是这样的

       m           n           o 
m (2-1)+(2-1) (2-1)+(3-1) (2-1)+(4-2)
n (3-1)+(2-1) (3-1)+(3-1) (3-1)+(4-2)
o (4-2)+(2-1) (4-2)+(3-1) (4-2)+(4-2)

最终的结果是

    m  n  o
 m  2  3  3
 n  3  4  4
 o  3  4  4

可以使用 dcast 功能来完成吗？ 如果不是这样，任何解决方案都将被接受。 提前致谢。

Answer 1

目前尚不清楚您拥有什么或您想要什么形式，因为问题不同地涉及 data.table 和矩阵，并且输入和输出没有重复显示（这是发布问题的要求 - 请参阅信息在r 标签页的顶部）；但是，假设输入是数据框 DF 在最后的注释中可重现地显示，取两个 val* 列的差异并添加给出命名向量 dif 的名称，然后取所示的外部总和：

dif <- with(DF, setNames(val1 - val2, vars))
outer(dif, dif, "+")

给出这个矩阵（如果你不想要一个矩阵，可以转换成你想要的任何形式）：

  m n o
m 2 3 3
n 3 4 4
o 3 4 4

注意

Lines <- "vars val1  val2
 m     2    1
 n     3    1
 o     4    2"
DF <- read.table(text = Lines, header = TRUE)

Answer 2

类似于@G. Grothendieck's answer，我们可以使用outer + dimnames<-

with(
  df,
  `dimnames<-`(outer(val1 - val2, val1 - val2, "+"), rep(list(vars), 2))
)

给了

  m n o
m 2 3 3
n 3 4 4
o 3 4 4

数据

> dput(df)
structure(list(vars = c("m", "n", "o"), val1 = 2:4, val2 = c(1L, 
1L, 2L)), class = "data.frame", row.names = c(NA, -3L))