来自LSD.test的嵌套群组（agricolae）

Question

原谅我是否曾被问过。我正在使用以下代码创建由LSD.test（agricolae）生成并按ID嵌套的组列表。

lsd_groups <- dataset %>%
  group_by(id) %>%
  do(lsd_statistics = LSD.test(lm(value  ~ book_name + treatment_name, data=.), 
                                "treatment_name", alpha=0.1)$groups) %>%
  unnest()

我的问题是，当我嵌套结果时，我会使用与分组中的方法关联的标识符（治疗名称）。

我知道是否将LSD.test输出保留为列表，可以通过运行以下命令查看治疗名称：

lsd_groups$lsd_statistics[[1]]

我还可以将存储为row.names的治疗名称转换为列。

但是，我希望使用unnest（）提供一个更优雅的解决方案。有什么方法可以指示unnest（）保留这些行名吗？或者，是否可以告诉LSD.test在列中列出治疗名称，而不是将它们分配为行名称？谢谢。