比较相邻元素并替换

Question

我有一个制表符分隔的输入文件，

mar1 A B A A
mar2 A B A A
mar3 B U A A
mar4 A B A A
mar5 A B A A

我想像这样转换相邻标记中的所有单例

mar1 A B A A
mar2 A B A A
mar3 A B A A
mar4 A B A A
mar5 A B A A

如何在R中执行此操作？ python也可以。