r - 具有公共(public)前缀的变量的所有向量的总和

Question

是否可以对具有公共(public)前缀的所有向量变量求和？

示例:

x1 <- c(1,2,3)
x2 <- c(4,5,6)
  .
  .
  .
xn <- c(n,n,n)

y = x1 + x2 + ... xn

变量xn(即带有前缀x)的数量仅在运行时已知。

Answer 1

假设您的 y 与 x 具有相同的维度，您可以尝试将所有变量捕获到列表中并应用求和运算。

> x2 <- c(4,5,6)
> x1 <- c(1,2,3)
> ls(pattern = "^x\\d+$") # this is regex for finding "x" and "digits", 
                          # ^ is start of string, $ is end of string
[1] "x1" "x2"
> sapply(ls(pattern = "^x\\d+$"), get, simplify = FALSE)
$x1
[1] 1 2 3

$x2
[1] 4 5 6

> out <- sapply(ls(pattern = "^x\\d+$"), get, simplify = FALSE)
> Reduce("+", out)
[1] 5 7 9

您还可以按照 @LyzandeR 的建议使用 mget，特别是如果需要花俏的话。

Reduce("+", mget(ls(pattern = "^x\\d+$")))