データフレームに間隔のある値を持つ配列を配置する方法は？

Question

一連の数字を数字に分割しようとしています。私はstrsplitを使って数字を分割しました。各番号は、アレイ内のすべての値の別の列になるように今、私はデータフレームにこれを入れたい

strings <- c("001", "002", "003", "004") 
dataset <- strsplit(strings, split="") 
dataset 

[[1]] 
[1] "0" "0" "1" 

[[2]] 
[1] "0" "0" "2" 

[[3]] 
[1] "0" "0" "3" 

[[4]] 
[1] "0" "0" "4" 

- 私は分割後持っているデータセットは次のようです。 このように -

## V1 V2 V3 
## 0 0 1 
## 0 0 2 
## . 
## . 

どのようにすればよいですか？すべての文字列が同じ長さのものであれば

Answer 1

あなたは... ... plyrパッケージトリックを行う必要があります

library(plyr) 

ldply(strsplit(as.character(dataset),split="")) 

## V1 V2 V3 
## 1 0 0 1 
## 2 0 0 2 
## 3 0 0 3 
## 4 0 0 4 
## 5 0 0 5 
## 6 0 0 6 
## 7 0 0 7 
## 8 0 0 8 
## 9 0 0 9 
## 10 0 1 0 
## 11 0 1 1 
## 12 0 1 2 
## 13 0 1 3 

Answer 2

から

as.data.frame(do.call(rbind, dataset)) 

をldplyを使用することができます。

ない場合は、物事はもう少しトリッキー得るが、これは実行する必要があります。

ケースplyrで

do.call(
    plyr::rbind.fill, 
    lapply(
    dataset, 
    function(x){as.data.frame(t(cbind(x)))} 
) 
) 

または

library(plyr 
do.call(
    rbind.fill, 
    lapply(
    dataset, 
    function(x){as.data.frame(t(cbind(x)))} 
) 
) 

は1つがrbind-の一つの独自のバージョンを作ることができるオプションではありません...

#' function for binding data.frames even if names do not match 
#' @param df1 first data.frame to rbind 
#' @param df2 second data.frame to rbind 
#' @keywords internal 

rbind_fill <- function(df1=data.frame(), df2=data.frame()){ 
    names_df <- c(names(df1), names(df2)) 
    if(dim(df1)[1] > 0){ 
     df1[, names_df[!(names_df %in% names(df1))]] <- rep(NA, dim(df1)[1]) 
    }else{ 
     df1 <- data.frame() 
    } 
    if(dim(df2)[1] > 0){ 
     df2[, names_df[!(names_df %in% names(df2))]] <- rep(NA, dim(df2)[1]) 
    }else{ 
     df2 <- data.frame() 
    } 
    rbind(df1, df2) 
} 

do.call(
    rbind_fill, 
    lapply(
    dataset, 
    function(x){as.data.frame(t(cbind(x)))} 
) 
)