在 R 中用 dplyr 划分多列答案

【问题标题】：Divide multiple columns with dplyr in R在 R 中用 dplyr 划分多列
【发布时间】：2021-02-01 22:39:27
【问题描述】：

我的数据框看起来像这样，但我有数百列

t1 <- c(11,2,3,4)
t2 <- c(10,2,3,4)
total1 <- c(8,2,3,4)
total2 <- c(4,6,3,4)
test <- data.frame(t1,t2,total1,total2)
  t1 t2 total1 total2
1 11 10      8      4
2  2  2      2      6
3  3  3      3      3
4  4  4      4      4

我想划分 t1/total2 并创建一个名为 freq1 的新列然后 t2/total2 并创建一个名为 freq2 的新列。我想这样做超过数百列数。

我希望我的数据看起来像这样

    t1 t2 total1 total2 freq1 freq2
1   11 10    8      4    1.37 2.5
2   2  2     2      6    1.    0.33
3   3  3     3      3.   1.    1
4   4  4     4      4.   1.    1

我就是这样工作的

mutate(freq1= t1/total1)

但这是有问题的。我不能对所有列都这样做。

【问题讨论】：

标签： r dplyr tidyverse tidyr

【解决方案1】：

这是一个基本的 R 选项

cbind(
  test,
  lapply(
    split.default(
      test,
      paste0("freq", gsub("\\D", "", names(test)))
    ),
    Reduce,
    f = "/"
  )
)

给了

  t1 t2 total1 total2 freq1     freq2
1 11 10      8      4 1.375 2.5000000
2  2  2      2      6 1.000 0.3333333
3  3  3      3      3 1.000 1.0000000
4  4  4      4      4 1.000 1.0000000

【讨论】：

【解决方案2】：

甚至不需要正则表达式的一个不错的 Base R 解决方案如下

df <- sapply(1:(ncol(test)/2), function(x) test[,x]/test[,x+(ncol(test)/2)])

这个想法是您有许多除以 2 的列，因此您可以只使用 sapply() 来划分列组合。

【讨论】：

【解决方案3】：

我们可以分别对“t”列和“total”的数据集进行子集化并划分它们（假设它们的顺序相同）

test[paste0('freq', 1:2)] <- test[1:2]/test[3:4]

【讨论】：

【解决方案4】：

使用dplyr，您可以将两组列聚集在一起并划分它们，为列赋予新名称并将其绑定到原始数据。

library(dplyr)

bind_cols(test, 
          (test %>% select(matches('t\\d+'))/
          test %>% select(matches('total\\d+'))) %>%
            rename_with(~paste0('freq', seq_along(.)))
          )

#  t1 t2 total1 total2 freq1     freq2
#1 11 10      8      4 1.375 2.5000000
#2  2  2      2      6 1.000 0.3333333
#3  3  3      3      3 1.000 1.0000000
#4  4  4      4      4 1.000 1.0000000

【讨论】：