请尝试使用apply()执行以下操作：

#Code 1
df$Var <- apply(df[1:2],1,function(x) trimws(paste0(unique(x[!is.na(x)]),collapse = ','),
                                             whitespace = ','))

输出量：

element1 element2 Var
1        A            A
2        B        B   B
3        C        D C,D
4        A     <NA>   A

或者dplyr版本：

library(dplyr)
#Code
df %>% mutate(across(everything(),~as.character(.))) %>%
  replace(is.na(.),',') %>%
  rowwise() %>%
  mutate(Var=trimws(paste0(unique(c_across(element1:element2)),
                                              collapse = ','),whitespace = ',')) %>%
  replace(.==',',NA)

输出量：

# A tibble: 4 x 3
# Rowwise: 
  element1 element2 Var  
  <chr>    <chr>    <chr>
1 A        ""       A    
2 B        "B"      B    
3 C        "D"      C,D  
4 A         NA      A

这是否有效：

> df %>% mutate(element3 = case_when(
There were 14 warnings (use warnings() to see them)
+                                   element1 == element2 ~ element1,
+                                   is.na(element1) & !is.na(element2) ~ element2,
+                                   is.na(element2) & !is.na(element1) ~ element1,
+                                   element1 == '' & element2 != '' ~ element2,
+                                   element1 != '' & element2 == '' ~ element1,
+                                   element1 != element2 ~ paste(element1, element2, sep = ',')
+ ))
  element1 element2 element3
1        A                 A
2        B        B        B
3        C        D      C,D
4        A     <NA>        A
>

下面是另一个tidyverse选项。
如果你想去掉令人讨厌的空字符串""，把它们变成NA，你可以使用na_if。
如果字符串不同，case_when可以将它们连接起来，如果缺少其中一个字符串，则使用coalesce（NA）。
如果两者都不是这种情况，则两列相同，并且仅设置为第一个值。

library(tidyverse)

df %>%
  na_if("") %>%
  mutate(element12 = case_when(
    element1 != element2 ~ paste(element1, element2, sep = ','),
    is.na(element1) | is.na(element2) ~ coalesce(element1, element2),
    TRUE ~ element1))

输出

element1 element2 element12
1        A     <NA>         A
2        B        B         B
3        C        D       C,D
4        A     <NA>         A

在base R中，我们可以通过paste和sub来实现

df$elements12 <- gsub("(?<=.)(?=.)", ",", sub("(.)\\1+", "\\1", 
     do.call(paste, c(replace(df, is.na(df), ""), sep=""))), perl = TRUE)

• 输出

df$element12
#[1] "A"   "B"   "C,D" "A"