如何用R的特定差值进行子集划分?

I'm trying to subset some values with the specific difference in a vector. In the followed the vector, I wanna separate a vector into several ones with specific difference of 1. For example, A problemI'm trying to subset some values with the speci