R 如何以固定间隔为选定行添加带有mutate的变量

我有一个很大的数据集，其中包含一个包含许多相关值的文本。文本每行分配一个单词。每个单词都有一个标识，标识其在文本中的位置。我想添加一个名为“Line”的变量，在这里我每10个字加一个值，这样前10个（1:10）将有Line=1，11-20将有Line=2，依此类推。 这是一个很长的文本，所以我不想每十个单词就手工编写一个mutate函数。 有什么建议吗？ 谢谢

下面是感兴趣的变量的样子

structure(list(IA_LABEL = c("it", "is", "a", "triumph", "said", 
"mr", "bankes", "laying", "his", "knife", "down", "for", "a", 
"moment", "he", "had", "eaten", "attentively", "it", "is", "rich", 
"it", "is", "tender", "it", "is", "perfectly", "cooked", "he", 
"thought"), Item_ID = 1:30), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -30L))

---

一个选项是在创建分组指标时使用

gl

library(dplyr)
df1 %>% 
   mutate(Line = as.integer(gl(n(), 10, n())))

---

或者使用

%/%

df1 %>%
    mutate(Line = (row_number() - 1) %/% 10 + 1)