将rep向量添加到总行数不均匀的数据帧

Question

我试图找到一种自动化大型数据集以添加两个因素的方法，但是数据可能包含不均匀的行。

我尝试使用'rep'函数来执行此操作，但这仅在数据帧具有偶数的情况下有效。

x<-c(1,3,5,7,9)
y<-c(2,4,6,8,10)
df<-data.frame(x,y)
df$state<-factor(rep(1:2))   

Error in `$<-.data.frame`(`*tmp*`, state, value = 1:2) : 
replacement has 2 rows, data has 5

如何获取data.frame将1回收到第5行而不是错误？

Answer 1

rep()的{​​{1}}参数是一个选择：

length.out