Skip to content

Instantly share code, notes, and snippets.

# jbryer/as.data.frame.list.R

Last active Apr 8, 2019
 #' Convert a list of vectors to a data frame. #' #' This function will convert a list of vectors to a data frame. This function #' will handle three different types of lists of vectors. First, if all the elements #' in the list are named vectors, the resulting data frame will have have a number #' of columns equal to the number of unique names across all vectors. In cases #' where some vectors do not have names in other vectors, those values will be #' filled with \code{NA}. #' #' The second case is when all the vectors are of the same length. In this case, #' the resulting data frame is equivalent to applying \code{rbind} across all elements. #' #' The third case handled is when there are varying vector lengths and not all the #' vectors are named. This condition should be avoided. However, the function will #' attempt to convert this list to a data frame. The resulting data frame will have #' a number of columns equal to the length of the longest vector. For vectors with #' length less than this will fill the row with \code{NA}s. Note that this function #' will print a warning if this condition occurs. #' #' @author Jason Bryer <> #' @references \url{http://stackoverflow.com/questions/4227223/r-list-to-data-frame} #' @param x a list to convert to a data frame. #' @param row.names a vector equal to \code{length(x)} corresponding to the row names. #' If \code{NULL}, the row names will be set to \code{names(x)}. #' @param optional not used. #' @param ... other parameters passed to \code{\link{data.frame}}. #' @return a data frame. #' @S3method as.data.frame list #' @export #' @examples #' test1 <- list( c(a='a',b='b',c='c'), c(a='d',b='e',c='f')) #' as.data.frame(test1) #' #' test2 <- list( c('a','b','c'), c(a='d',b='e',c='f')) #' as.data.frame(test2) #' #' test3 <- list('Row1'=c(a='a',b='b',c='c'), 'Row2'=c(var1='d',var2='e',var3='f')) #' as.data.frame(test3) #' #' test4 <- list('Row1'=letters[1:5], 'Row2'=letters[1:7], 'Row3'=letters[8:14]) #' as.data.frame(test4) #' #' test5 <- list(letters[1:10], letters[11:20]) #' as.data.frame(test5) #' #' test6 <- list(list(letters), letters) #' as.data.frame(test6) as.data.frame.list <- function(x, row.names=NULL, optional=FALSE, ...) { if(!all(unlist(lapply(x, class)) %in% c('raw','character','complex','numeric','integer','logical'))) { warning('All elements of the list must be a vector.') NextMethod(x, row.names=row.names, optional=optional, ...) } allequal <- all(unlist(lapply(x, length)) == length(x[[1]])) havenames <- all(unlist(lapply(x, FUN=function(x) !is.null(names(x))))) if(havenames) { #All the vectors in the list have names we can use colnames <- unique(unlist(lapply(x, names))) df <- data.frame(matrix( unlist(lapply(x, FUN=function(x) { x[colnames] })), nrow=length(x), byrow=TRUE)) names(df) <- colnames } else if(allequal) { #No names, but are of the same length df <- data.frame(matrix(unlist(x), nrow=length(x), byrow=TRUE), ...) hasnames <- which(unlist(lapply(x, FUN=function(x) !is.null(names(x))))) if(length(hasnames) > 0) { #We'll use the first element that has names names(df) <- names(x[[ hasnames[1] ]]) } } else { #No names and different lengths, we'll make our best guess here! warning(paste("The length of vectors are not the same and do not ", "are not named, the results may not be correct.", sep='')) #Find the largest lsizes <- unlist(lapply(x, length)) start <- which(lsizes == max(lsizes))[1] df <- x[[start]] for(i in (1:length(x))[-start]) { y <- x[[i]] if(length(y) < length(x[[start]])) { y <- c(y, rep(NA, length(x[[start]]) - length(y))) } if(i < start) { df <- rbind(y, df) } else { df <- rbind(df, y) } } df <- as.data.frame(df, row.names=1:length(x)) names(df) <- paste('Col', 1:ncol(df), sep='') } if(missing(row.names)) { row.names(df) <- names(x) } else { row.names(df) <- row.names } return(df) } if(FALSE) { #Test the function require(devtools) source_gist(4676064) test1 <- list( c(a='a',b='b',c='c'), c(a='d',b='e',c='f')) as.data.frame(test1) test2 <- list( c('a','b','c'), c(a='d',b='e',c='f')) as.data.frame(test2) test3 <- list('Row1'=c(a='a',b='b',c='c'), 'Row2'=c(a='d',var2='e',var3='f')) as.data.frame(test3) test4 <- list('Row1'=letters[1:5], 'Row2'=letters[1:7], 'Row3'=letters[8:14]) as.data.frame(test4) test5 <- list(letters[1:10], letters[11:20]) as.data.frame(test5) test6 <- list(list(letters), letters) as.data.frame(test6) }

### dnlsyfq commented Nov 23, 2016

 Hi There ! I encounter several errors upon installing yours package . install_github("jbryer/as.data.frame.list.R") Downloading GitHub repo jbryer/as.data.frame.list.R@master from URL https://api.github.com/repos/jbryer/as.data.frame.list.R/zipball/master Error in stop(github_error(request)) : Not Found (404) install.packages("~/4676064-e793808b889dbb00c47165af21b00219169c2b5a.zip", repos = NULL, type = "win.binary") Warning in install.packages : cannot open compressed file '4676064-e793808b889dbb00c47165af21b00219169c2b5a/DESCRIPTION', probable reason 'No such file or directory' Error in install.packages : cannot open the connection Kindly assists me on how to install this package .

I tried ;

Again;

# Error in r_files[[which]] : invalid subscript type 'closure'

How can I correct the error?
I use windows7, R version 3.4.1, most rescent vesion of of RCurl and httr.

### aliyasarmanova commented May 10, 2018

 I have the same error source_gist(4676064) Error in r_files[[which]] : invalid subscript type 'closure'

### gioferreira commented May 23, 2018

 This is a source_gist error, not a problem with the gist itself. You can source this code using: `source_gist("4676064", filename = "as.data.frame.list.R")`
to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.