r - 将列值附加到另一列

Question

我有一个 txt 文件选项卡，分隔如下：

1 aaa apple
1 bbb banana
3 ccc grape
5 ddd orange

我想创建另一个 txt 文件，但这次将原始 txt 文件的第一列值附加在最后一列（在本例中为第三列）并带有下划线，如下所示：

1 aaa 1_apple
1 bbb 1_banana
3 ccc 3_grape
5 ddd 5_orange

我没有任何编程语言偏好，但如果可能的话，R 和 Unix 会更好......

谢谢

标签： runixappend

Answer 1

df$NewColumn<-paste0(df[,1],"_",df[,ncol(df)])
df
V1  V2     V3 NewColumn
1  1 aaa  apple   1_apple
2  1 bbb banana  1_banana
3  3 ccc  grape   3_grape
4  5 ddd orange  5_orange

写入 .txt

write.table(tidyr::unite(df,New_col,"V1","V3"),"test.txt")

与tidyr：

tidyr::unite(df,New_col,"V1","V3")

资料：

df<-read.table(text="1 aaa apple
1 bbb banana
3 ccc grape
5 ddd orange")