用相似的列名/相似的列串组合列- Reprex

Question

目标：根据列名的相似性合并多个列。

问题:我正在处理一个复制列名的大型数据集，如下所示: wk1.1、wk1.2、wk1.3。对于每一行，相似的列名中只有一个值，其余的将是NA。合并是非常有用的，但是当我不得不列出每个列名时，就会变得乏味(混乱的自动化)。有没有一种基于字符串合并的方法？例如，下面我更愿意将%合并到%“wk1”中。

library(dplyr)
wk1.1 <- c(15, 4, 1)
wk1.2 <- c(3, 20, 4)
wk1.3 <- c(1, 2, 17)

df <- data.frame(wk1.1, wk1.2, wk1.3)
df[df < 14] <- NA
df1 <- df %>%
  mutate(wk1 = coalesce(df$wk1.1, df$wk1.2, df$wk1.3))

Answer 1

我们可以把它和!!!连接起来

library(dplyr)
df %>%
      mutate(wk1 = coalesce(!!! .))
#  wk1.1 wk1.2 wk1.3 wk1
#1    15    NA    NA  15
#2    NA    20    NA  20
#3    NA    NA    17  17

或者另一种选择是reduce并应用coalesce

library(purrr)
df %>%
   mutate(wk1 = reduce(., coalesce))