在 R 中的 mutate(across()) 内将列与 case_when 内的后续列合并的一般方法

Question

我在 R 中有一个 df，这是一个简化版本：

ID <- c("AA1", "AA2","AA3","AA4","AA5")
Pop <- c("AA","AA","AA","AA","AA")
abc08 <- c(2,1,2,0,2)
...4 <- c(3,4,4,0,3)
abc11 <- c(2,2,2,2,1)
...5 <- c(3,4,4,4,3)
df <- data.frame(ID, Pop, abc08, ...4, abc11, ...5)
df

我想将以“abc”开头的列与其后续列合并，使 df 看起来像这样：

ID <- c("AA1", "AA2","AA3","AA4","AA5")
Pop <- c("AA","AA","AA","AA","AA")
abc08 <- c("2-3","1-4","2-4",NA,"2-3")
abc11 <- c("2-3","2-4","2-4","2-4","1-3")
df <- data.frame(ID, Pop, abc08, abc11)
df

我原来的 df 有更多的列，所以我正在寻找一种通用的方法。到目前为止我的代码如下所示：

  df %>% mutate(across(starts_with("abc"),
                ~ case_when(. > 0 ~ paste(., "content of subsequent column", sep = "-"),
                            . == 0 ~ NA_character_
                )))%>%
  select(!starts_with("..."))

其中“后续列的内容”显然需要是标识“.”之后的列的内容。我不可能是第一个遇到这个问题的人，但我现在已经搜索了几个小时却一无所获...

Answer 1

尝试以下操作：

library(tidyverse)

df %>%
  mutate(across(starts_with("abc"), 
                ~ paste0(., "-", get(colnames(df)[which(colnames(df) == cur_column()) + 1]) ))) %>%
  select(!starts_with("..."))

输出：

   ID Pop abc08 abc11
1 AA1  AA   2-3   2-3
2 AA2  AA   1-4   2-4
3 AA3  AA   2-4   2-4
4 AA4  AA   0-0   2-4
5 AA5  AA   2-3   1-3

这在没有 case_when 的情况下有效，因为 paste0 是矢量化的。以 get 开头的长短语动态检索目标“abc”列之后的任何列的值。

在 R 中的 mutate(across()) 内将列与 case_when 内的后续列合并的一般方法

General way of uniting column with subsequent column inside case_when inside mutate(across()) in R

r

case-when

dplyr

across