根据其他列名称粘贴多列 - R

Question

我正在寻找一种基于某些列名称将多个列组合在一起的方法paste。我已经在堆栈上查看了将列粘贴和连接在一起但没有找到我要查找的内容。

样本数据：

data <- data.frame(col1= c(10,20),
                   col2= c(4,8),
                   col1_pct= c(0.20, 0.30),
                   col2_pct= c(0.40, 0.87))

Output :

  col1 col2 col1_pct col2_pct
1   10    4      0.2     0.40
2   20    8      0.3     0.87

我想要的输出：

 col1_new col2_new
1   10 (0.2)   4 (0.40)
2   20 (0.3)   8 (0.87)

真实数据包含很多列，所以我不能简单地手动paste()。所以我想知道是否有办法将name 匹配name_pct 的所有列粘贴在一起，就像在输出中一样。

我已经用lapply() 和一些loop 尝试了一些东西，但没有成功。我知道我必须以某种方式使用字符串_pct 可能还有names 函数，但我不知道如何继续。有人可以帮帮我吗？

谢谢。

编辑：列名未知，因为它们是函数的一部分。

Answer 1

一个选项是使用sprintf 通过交替列循环

data.frame(setNames(lapply(list(c(1,3), c(2, 4)), function(i) 
     do.call(sprintf, c(fmt = "%d (%0.2f)",
        data[i]))), paste0(names(data)[1:2], "_new")))
#   col1_new col2_new
#1 10 (0.20) 4 (0.40)
#2 20 (0.30) 8 (0.87)

---

也可以转换成tidyverse

library(tidyverse0
map2_df(data %>% 
           select(1:2), 
        data %>% 
           select(matches("pct")), ~  sprintf("%d (%0.2f)", .x, .y)) %>%
   rename_all(~ str_c(., "_new"))
# A tibble: 2 x 2
# col1_new  col2_new
#  <chr>     <chr>   
#1 10 (0.20) 4 (0.40)
#2 20 (0.30) 8 (0.87)