R 识别每行的字符并在列中返回

我正在R studio中处理一个巨大的数据集，希望识别每行的字符（除了缺少“NN”），然后返回一个包含每行字符的新列

我写下此表作为示例：

TC1 | TC73| TC88| TC9| TC17| TC25
NN  |  GG |  GG |  CC|  GG |  CC
TT  |  CC |  NN |  TT|  TT |  CC
AA  |  CC |  CC |  AA|  NN |  NN

我希望获得以下输出：

alleles | TC1 | TC73| TC88| TC9| TC17| TC25
G/C   | NN  |  GG |  GG |  CC|  GG |  CC
T/C   | TT  |  CC |  NN |  TT|  TT |  CC
A/C   | AA  |  CC |  CC |  AA|  NN |  NN

---

等位基因的顺序是否重要？

适用（df，1，函数（x）粘贴（setdiff（x，“NN”），collapse=“/”）

？到目前为止您尝试了什么？查看您的代码以了解如何处理此问题可能会有所帮助，请在@r2evans上展开回答：

cbind（等位基因=apply（df，1，函数（x）粘贴（setdiff（x，“NN”），collapse=“/”），df）

@akash87谢谢你们，我编辑了我的问题。实际上，柱状等位基因的期望输出是G/C、T/C、A/C而不是GG/CC。。。