向向量添加元素，初始元素为最大值

Question

我在R中有这个向量：

x<-c(2, 4, 6,5) 

我想创建一个更大的向量，其中包含从1开始直到x中每个元素的编号数字列表。这就是我需要的：

xyz<-c(1,2,1,2,3,4,1,2,3,4,5,6,1,2,3,4,5) 

我不知道该怎么做。我可以通过

打印出来

for (i in 1:4) print (1:x[i])

但当我尝试通过

将它们变成矢量时

for (i in 1:4) xyz<-c((1:x[i]))

似乎不起作用。有人可以帮忙吗？