tidyverse 将几列除以其他列 n 个位置（避免循环）

Question

library(tidyverse)
dat <- tribble(
  ~Scenario,     ~V1,    ~V2,    ~V3,    ~V4,
  1,    0.97,   0.46,   0.79,   0.25,
  1,    0.21,   0.45,   0.23,   0.63,
  1,    0.95,   0.97,   0.07,   0.61,
  1,    0.93,   0.79,   0.23,   0.86,
  2,    0.22,   0.01,   0.42,   0.47,
  2,    0.71,   0.17,   0.16,   0.88,
  3,    0.73,   0.38,   0.10,   0.77,
  3,    0.49,   0.37,   0.90,   0.52,
  3,    0.99,   0.71,   0.66,   0.05,
  3,    0.72,   0.75,   0.69,   0.01,
  3,    0.15,   0.87,   0.12,   0.02,
  4,    0.94,   0.30,   0.91,   0.99)

我将向该数据添加四个新列，其中每个新列代表按场景分组的每个 V1:V4 列的总和：

dat_new <- dat %>%
  group_by(Scenario) %>%
  mutate_at(vars(-group_cols()), .funs = list(sum = sum))

我正在寻找一种简单的方法来将 V1 除以 V1_sum、V2 除以 V2_sum 等等，假设 a) 我有与 sum 列一样多的原始 v 列，并且 b) 数据已正确排序并遵循我的模式我首先有我所有的 v 列，然后是 sum 列。

我刚刚在 SO 上问了另一个问题，重点是将数据转换为长格式，然后将其转换回宽格式，但我想知道 tidyverse 中是否有更简单的解决方案。

注意：我可能只是遍历每一列，然后将其除以第 4 列的位置，但我正在寻找更优雅的解决方案。

Answer 1

我们可以在list内部展开函数，而不是创建临时sum列然后进行除法

library(dplyr)
dat %>% 
   group_by(Scenario) %>% 
   mutate_at(vars(-group_cols()), .funs = list(percentage =  ~ ./sum(.)))

---

如果它来自dat_new ，一个选项是map

library(purrr)
map2_dfc(dat %>% 
             select(V1:V4), 
        dat_new %>% 
             ungroup %>%
             select(ends_with('sum')), `/`)

---

或使用base R

dat[2:5]/dat_new[6:9]