我有一个看起来像这样的数据集：
before = data.frame(diag1 = c(1,NA, 1, NA, NA, 1), diag2 = c(NA, NA, NA, 2, NA, NA), diag3 = c(3, NA, NA, NA, 3, 3), diag4 = c(4, 4, NA, NA, 4, NA))
diag1 diag2 diag3 diag4
1 1 NA 3 4
2 NA NA NA 4
3 1 NA NA NA
4 NA 2 NA NA
5 NA NA 3 4
6 1 NA 3 NA
我一直在尝试寻找一种解决方案，其中最终结果是一个新列，名为“ diagnoses”，看起来像这样
diagnoses
1 1,3,4
2 4
3 1
4 2
5 …