可以把所有NA改成0，然后三列加起来就好了

比如设你原来的data frame 是x

搞个复杂版的
data%>%
  dplyr::mutate(var4=ifelse(is.na(var1)&is.na(var2),var3,0),
                var4=ifelse(is.na(var1)&is.na(var3),var2,0),
                var4=ifelse(is.na(var2)&is.na(var3),var1,0)) ->data
#or  
data %>% mutate(id=1:length(var1))->data
data %>% filter(!is.na(var1)) %>% mutate(var4=var1) %>% select(id,var4)->var41
data %>% filter(!is.na(var2)) %>% mutate(var4=var2) %>% select(id,var4)->var42
data %>% filter(!is.na(var3)) %>% mutate(var4=var3) %>% select(id,var4)->var43
var41 %>% left_join(var42) %>% left_join(var43)->data_F

我的天，优秀，聪明！

大佬大佬！感谢感谢！问题完美的解决了