如何基于表中的名称创建过滤的data.frame？

Question

I'm looking to use names(table(data)) to generate a list of variables to apply a filter to subset a data.frame but don't know how to generate unique values for the data.frame names to save them.

Type <- c("A","A","A","A","A","A","A","A","A",
      "B","B","B","B","B","B","B","B",
      "C","C","C","C","C","C","C",
      "AB","AB","AB","AB","AB")
Type <- as.data.frame(Type)

This is how I'm generating the unique values I want:

type_names <- names(table(droplevels(Type$Type)))

This is my not-quite-there function:

library(dplyr)
NamedTypes <- function(data, nametype) {
  data %>% 
    filter(Type == nametype) %>% 
    a <- paste0(nametype, "_type")
}

Then how I think I'd run the function:

lapply(type_names, function(x) NamedTypes(Type, x))

Answer 1

您可以使用split创建一个列表，并使用list2env将数据帧分配给全局环境

list2env(split(Type, Type$Type), globalenv())