Извлечение определенных имен переменных в одну переменную

Что-то вроде этого?

library(dplyr)
library(tidyr)

df %>%
  mutate(across(a1:a4, ~case_when(. == '##' ~ cur_column()), .names = 'new_{col}')) %>%
  unite(New_Col, starts_with('new'), na.rm = TRUE, sep = ' ')

 a1    a2       a3 a4    fname New_Col
  <chr> <chr> <dbl> <chr> <chr> <chr>  
1 ##    10       11 ##    Megan "a1 a4"
2 3     38       34 35    John  ""     
3 NA    ##       NA 67    Terry "a2"   
4 4     4         4 4     Kim   ""     
5 5     5         5 ##    Anne  "a4"   

Базовое решение R:

df$New_Col <- apply(df == '##', 1, \(x) ifelse(any(x), toString(names(which(x))), NA))

# A tibble: 5 x 6
  a1    a2       a3 a4    fname New_Col
  <chr> <chr> <dbl> <chr> <chr> <chr>  
1 ##    10       11 ##    Megan a1, a4 
2 3     38       34 35    John  NA     
3 NA    ##       NA 67    Terry a2     
4 4     4         4 4     Kim   NA     
5 5     5         5 ##    Anne  a4    

Используя функцию Compose из пакета functional, мы можем сделать это:

df %>% mutate(vars_extract = lapply(apply(df, 1, function(x) which(x= = "##")), Compose(names, unlist, function(x)paste(x, collapse = ", "))))

Другое возможное решение, основанное на purrr::pmap_chr:

library(tidyverse)
      
pmap_chr(df, ~  names(c(...))[c(...) == "##"] %>% na.omit %>% 
         str_c(collapse = ", ")) %>% bind_cols(df, New_Col = .)

#> # A tibble: 5 × 6
#>   a1    a2       a3 a4    fname New_Col 
#>   <chr> <chr> <dbl> <chr> <chr> <chr>   
#> 1 ##    10       11 ##    Megan "a1, a4"
#> 2 3     38       34 35    John  ""      
#> 3 <NA>  ##       NA 67    Terry "a2"    
#> 4 4     4         4 4     Kim   ""      
#> 5 5     5         5 ##    Anne  "a4"