小编a83*_*a83的帖子

我有一个包含不同条目数的子列表的列表,如下所示:

x <- list(
  c("a1", "a2", "a3", "a4", "a5", "a6", "a7"),
  c("b1","b2","b3","b4"),
  c("c1","c2","c3"),
  c("d1")
)

我想将此文件转换为具有三列的数据帧(第一列是子列表的序列,即1到4:第二列是条目;第三列代表我的停止代码,因此,我为每行使用1 ,最终结果如下:

1  a1  1
1  a2  1
1  a3  1
1  a4  1
1  a5  1
1  a6  1
1  a7  1
2  b1  1
2  b2  1
2  b3  1
2  b4  1
3  c1  1
3  c2  1
3  c3  1
4  d1  1

我尝试使用cbind,但是,在我看来只适用于具有相同数量条目的子列表.有没有更聪明的方法呢？