将同一表中的两列合并为一列答案

【问题标题】：Merge two columns into one from the same table将同一表中的两列合并为一列
【发布时间】：2013-10-25 11:14:26
【问题描述】：

所以，我想将两列合并为一列。这就是我的数据的样子：

> tbl_end

Sequence                                 modifications                  no_Ks      no_Ks_modif           V1
AAAAGAAAVANQGKK               [14] Acetyl (K)|[15] Acetyl (K)             2           2              [14] Acetyl 
AAAAGAAAVANQGKK               [14] Acetyl (K)|[15] Acetyl (K)             2           2              [14] Acetyl 
AAFTKLDQVWGSE                                [5] Acetyl (K)               1           1              [5] Acetyl 
AAIKFIKFINPKINDGE   [4] Acetyl (K)|[7] Acetyl (K)|[12] Acetyl (K)         3           3              [4] Acetyl 
AAIKFIKFINPKINDGE   [4] Acetyl (K)|[7] Acetyl (K)|[12] Acetyl (K)         3           3              [4] Acetyl

我想在不影响其他数据集的情况下合并列序列和修改。

新列的名称可能是“Seq_modif”

试图用粘贴来做，但这不是我想要的：

tbl_reo2 <- paste(tbl_end$Sequence,tbl_end$modifications)

这就是我想通过脚本实现的目标：

              Seq_modif                                                no_Ks      no_Ks_modif         V1
AAAAGAAAVANQGKK [14] Acetyl (K)|[15] Acetyl (K)                           2           2              [14] Acetyl 
AAAAGAAAVANQGKK [14] Acetyl (K)|[15] Acetyl (K)                           2           2              [14] Acetyl 
AAFTKLDQVWGSE [5] Acetyl (K)                                              1           1              [5] Acetyl 
AAIKFIKFINPKINDGE [4] Acetyl (K)|[7] Acetyl (K)|[12] Acetyl (K)           3           3              [4] Acetyl 
AAIKFIKFINPKINDGE [4] Acetyl (K)|[7] Acetyl (K)|[12] Acetyl (K)           3           3              [4] Acetyl

【问题讨论】：

我的意思是有一种方法可以用粘贴来完成它，它就像 10 行代码，我很确定这可以在一行中完成。
也许，tbl_end$Seq_modif <- paste(tbl_end$Sequence, tbl_end$modifications, sep = " _ ")?
解释为什么它不是你想要的。或者告诉我们您正在寻找什么。例如，您可以告诉我们Seq_modif 中的第一个值（第一行）应该是什么。
已经编辑了我期望得到的东西。以为我已经在文中解释过了。没必要把它调高。
你可以创建一个新的数据框：tbl_reo2 <- data.frame(Seq_modif = paste(tbl_end$Sequence, tbl_end$modifications, sep = " "), no_Ks = tbl_end$no_Ks, no_ks_modif = tbl_end$no_Ks_modif, V1 = tbl_end$V1, stringsAsFactors = F)

标签： r

【解决方案1】：

试试这个方法。我对 R 不是很好，但它应该可以工作。我认为这比对话题投反对票更好。

你在这里：

tbl_end$Seq_modif <- paste(tbl_end$Sequence, tbl_end$modifications)

tbl_end[, "Seq_modif"] <- tbl_end$Seq_modif

tbl_end <- subset(tbl_end, select = -c(Sequence,modifications) )

【讨论】：

谢谢。这对我来说可以。是时候从这个论坛中删除该帐户了。