R/split-data-frame-to-list.R

In ShouyeLiu/metaboliteUtility:

#'  splite a data frame to a list
#'
#'
#' @param data  a data frame
#' @param column a default parameter, please see details in example.
#'
#' @examples
#'
#' pathwayData <- data.frame(Var= paste0(rep("M",50),1:50),
#' Pathway = rep(paste0("p",1:10),each=5))
#' pathwayNum <- length(unique(pathwayData$Pathway));
#' groupPathwayColor <- structure(circlize::rand_color(pathwayNum),names=levels(factor(pathwayData$Pathway)));
#' groups <- split_df_to_list_group(pathwayData, 'Pathway');
#' groups
#'
#'
#' @name split_df_to_list_group
#' @rdname split_df_to_list_group
#' @export
#'

split_df_to_list_group <- function(data, column = 'col') {
    tmpdata <-  split(data, data[,column])
    list_group <- lapply(tmpdata, function(x) x[,setdiff(names(x),column)])
    return(list_group)
}