r - 定义列组并用 dplyr 对每个组的所有第 i 列求和

Question

我有两组列，每组有 36 列，我想将第 1 组的所有第 i 列与第 2 组的第 i 列相加，得到 36 列。每组中的列数在我的代码中不是固定的，尽管每组的列数相同。

例子。我有什么:

teste <- tibble(a1=c(1,2,3),a2=c(7,8,9),b1=c(4,5,6),b2=c(10,20,30))
     a1    a2    b1    b2
  <dbl> <dbl> <dbl> <dbl>
1     1     7     4    10
2     2     8     5    20
3     3     9     6    30

我想要的:

resultado <- teste %>%
  summarise(
    a_b1 = a1+b1,
    a_b2 = a2+b2
  )
   a_b1  a_b2
  <dbl> <dbl>
1     5    17
2     7    28
3     9    39

用 dplyr 执行这个操作会很好。

我会感谢任何帮助。

Answer 1

您将很难找到像基础 R 一样简单优雅的 dplyr 解决方案:

teste[1:2] + teste[3:4]
#>   a1 a2
#> 1  5 17
#> 2  7 28
#> 3  9 39

虽然我猜在 dplyr 中你会得到相同的结果:

teste %>% select(starts_with("a")) + teste %>% select(starts_with("b"))