R语言代码优化：记录Sepal.Length组合求和的行数

"对下面R语言代码进行修改\n\nlibrary(openxlsx)\nlibrary(purrr)\nlibrary(dplyr)\n\ndata <- iris[1:13, 1:2]\ndata\n\nSepal.Length <- data$Sepal.Length\n\nres_list1 <- list()\n\nfor (sel_n in 3:13) {\n \n result <- data.frame(\n Combination = sel_n,\n Sum = combn(Sepal.Length, sel_n, FUN = sum)\n )\n res_list1[[sel_n]] <- result\n}\n\nres1 <- bind_rows(res_list1)\n\n让我能够知道抽取的哪些行求和的内容：修改后的代码如下：\n\nR\nlibrary(openxlsx)\nlibrary(purrr)\nlibrary(dplyr)\n\ndata \<- iris[1:13, 1:2]\ndata\n\nSepal.Length \<- data$Sepal.Length\n\nres_list1 \<- list()\n\nfor (sel_n in 3:13) {\n \n result \<- data.frame(\n Combination = sel_n,\n Rows = combn(1:13, sel_n),\n Sum = combn(Sepal.Length, sel_n, FUN = sum)\n )\n res_list1[[sel_n]] \<- result\n}\n\nres1 \<- bind_rows(res_list1)\n\n\n在修改后的代码中，我添加了一个名为"Rows"的列，用来记录抽取的哪些行进行求和的。该列使用combn(1:13, sel_n)函数生成的组合结果。\n