63

ベクトルの (かなり長い) リストがあります。ベクトルは、strsplit()文に対して関数を使用して取得したロシア語の単語で構成されています。

head()返されるものは次のとおりです。

[[1]]
[1] "модно"     "создавать" "резюме"    "в"         "виде"     

[[2]]
[1] "ты"        "начианешь" "работать"  "с"         "этими"    

[[3]]
[1] "модно"            "называть"         "блогер-рилейшенз" "―"                "начинается"       "задолго"         

[[4]]
[1] "видел" "по"    "сыну," "что"   "он"   

[[5]]
[1] "четырнадцать," "я"             "поселился"     "на"            "улице"        

[[6]]
[1] "широко"     "продолжали" "род."

ベクトルの長さが異なることに注意してください。

私が欲しいのは、各文の最初の単語、2 番目の単語、3 番目の単語などを読めるようにすることです。

望ましい結果は次のようになります。

    P1              P2           P3                 P4    P5           P6
[1] "модно"         "создавать"  "резюме"           "в"   "виде"       NA
[2] "ты"            "начианешь"  "работать"         "с"   "этими"      NA
[3] "модно"         "называть"   "блогер-рилейшенз" "―"   "начинается" "задолго"         
[4] "видел"         "по"         "сыну,"            "что" "он"         NA
[5] "четырнадцать," "я"          "поселился"        "на"  "улице"      NA
[6] "широко"        "продолжали" "род."             NA    NA           NA

使用しようとしましたdata.frame()が、行の長さが異なるため機能しませんでした。rbind.fill()パッケージからも試しましたplyrが、その機能は行列しか処理できません。

ここで他の質問をいくつか見つけました（ここplyrから助けを得ました）が、それらはすべて、たとえばサイズの異なる2つのデータフレームを結合することに関するものでした。

ご協力いただきありがとうございます。

4

6 に答える 6

53

これを試して：

word.list <- list(letters[1:4], letters[1:5], letters[1:2], letters[1:6])
n.obs <- sapply(word.list, length)
seq.max <- seq_len(max(n.obs))
mat <- t(sapply(word.list, "[", i = seq.max))

秘訣は、それ、

c(1:2)[1:4]

ベクトル+2つのNAを返します

于 2013-03-04T12:32:46.790 に答える
20

別のオプションstri_list2matrixはlibrary(stringi)

library(stringi)
stri_list2matrix(l, byrow=TRUE)
#    [,1] [,2] [,3] [,4]
#[1,] "a"  "b"  "c"  NA  
#[2,] "a2" "b2" NA   NA  
#[3,] "a3" "b3" "c3" "d3"

注: @juba の投稿からのデータ。

または、コメントで@Valentinが言及したように

sapply(l, "length<-", max(lengths(l)))
于 2016-03-17T19:51:39.343 に答える
16

次のようなことができます：

## Example data
l <- list(c("a","b","c"), c("a2","b2"), c("a3","b3","c3","d3"))
## Compute maximum length
max.length <- max(sapply(l, length))
## Add NA values to list elements
l <- lapply(l, function(v) { c(v, rep(NA, max.length-length(v)))})
## Rbind
do.call(rbind, l)

与える：

     [,1] [,2] [,3] [,4]
[1,] "a"  "b"  "c"  NA  
[2,] "a2" "b2" NA   NA  
[3,] "a3" "b3" "c3" "d3"
于 2013-03-04T12:21:10.757 に答える