R函数用于标记序列的多个条目

I want to create a function in R, which can tag the below entries by a sequence(serial # order) in which they appear. Below entries repeat by 2, so in this case:, which can tag