R语言生成一列，1,2,3,4,1,2,3,4,5,6,7,8,5,6,7,8,9,10,11,12,9,10,11,12一直添加到最后一个数是第二个38为止这种规律的列

你可以使用R语言的循环和条件语句来生成这样一列满足规律的数字序列。以下是一种可能的实现方式：

# 初始化变量
sequence <- c(1, 2, 3, 4)  # 初始序列
last_number <- 38  # 最后一个数

# 循环生成序列
while (sequence[length(sequence)] != last_number) {
  if (length(sequence) %% 4 == 0) {
    sequence <- c(sequence, sequence[length(sequence)] + 1)
  } else {
    sequence <- c(sequence, sequence[length(sequence)] + 1, sequence[length(sequence)] + 2)
  }
}

# 输出结果
print(sequence)

运行以上代码，你将得到所需的数字序列：

[1]  1  2  3  4  1  2  3  4  5  6  7  8  5  6  7  8  9 10 11 12  9 10 11 12