如何在R中創建加法表？

Question

這應該很容易，但是我想不出一種更優雅的方式來創建加法表，例如：

x <- 1:3
cbind(x + x[1], x + x[2], x + x[3])

     [,1] [,2] [,3]
[1,]    2    3    4
[2,]    3    4    5
[3,]    4    5    6

我嘗試了各種版本的lapply()都無濟於事。

Answer 1

您可以使用outer或sapply或expand.grid （在組合rowSums ）

x = 1:3
outer(x, x, "+")
#     [,1] [,2] [,3]
#[1,]    2    3    4
#[2,]    3    4    5
#[3,]    4    5    6

sapply(seq_along(x), function(i) sapply(seq_along(x), function(j) x[i]+x[j]))
#     [,1] [,2] [,3]
#[1,]    2    3    4
#[2,]    3    4    5
#[3,]    4    5    6

matrix(rowSums(expand.grid(x, x)), ncol = length(x))
#     [,1] [,2] [,3]
#[1,]    2    3    4
#[2,]    3    4    5
#[3,]    4    5    6

Answer 2

您可以這樣做：

m <- diag(length(x))
m[] <- x[col(m)] + x[row(m)]

#     [,1] [,2] [,3]
#[1,]    2    3    4
#[2,]    3    4    5
#[3,]    4    5    6

要么

matrix(x,length(x),length(x),byrow = TRUE) + x