如何使用 R 中的动态数据初始化bucket_list？

如何解决如何使用 R 中的动态数据初始化bucket_list？

我想用数据帧中的数据初始化 R 中的 bucket_list。假设我得到了以下数据：

buckets <- data.frame(
  text=c("A","A","B"),labels=c(1,2,3)
)

那么我想实现如下bucket_list：

library(sortable)
bucket_list(
  header="Test",add_rank_list(text = "A",labels = c(1,2)),add_rank_list(text = "B",labels = c(1) )
)

我的问题是数据帧 buckets 的内容是动态的，所以我需要一个将数据帧 buckets 作为输入的解决方案。

非常感谢您的帮助！

解决方法

您可以将 data.frame 转换为分组列表。然后，对每个组使用 lapply 并使用 add_rank_list 将每个列表元素放入 bucket_list 所需的格式。

library(sortable)

buckets <- data.frame(
  text=c("A","A","B"),labels=c(1,2,3)
)

blst <- split(buckets$labels,buckets$text)

rlst <- lapply(names(blst),function(x) {
  add_rank_list(
    text = x,label = blst[[x]]
  )
})

do.call(bucket_list,c(header = "New Test Here",rlst))