Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/78.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 将不同长度向量的列表转换为“tible”`_R_List_Purrr_Tibble - Fatal编程技术网

R 将不同长度向量的列表转换为“tible”`

R 将不同长度向量的列表转换为“tible”`,r,list,purrr,tibble,R,List,Purrr,Tibble,我目前有一个不同长度的字符向量列表。像这样: list( c('this','is','first'), c('this','is','second','it','longer'), c('this is a list','that is length 2') ) data_frame(column_1 = c('this is first', 'this is second it longer',

我目前有一个不同长度的字符向量列表。像这样:

list(
  c('this','is','first'),
  c('this','is','second','it','longer'),
  c('this is a list','that is length 2')
)
data_frame(column_1 =
             c('this is first',
               'this is second it longer',
               'this is a list that is length 2'))
我想将列表中每个向量的所有元素合并到
tibble
中的一行中。像这样:

list(
  c('this','is','first'),
  c('this','is','second','it','longer'),
  c('this is a list','that is length 2')
)
data_frame(column_1 =
             c('this is first',
               'this is second it longer',
               'this is a list that is length 2'))

如果可能的话,我想使用base R或来自
tidyverse
的包

您可以使用
purrr
stringr

x <- list(
  c('this','is','first'),
  c('this','is','second','it','longer'),
  c('this is a list','that is length 2')
)

tibble(column1= map_chr(x, str_flatten, " "))

您可以使用
purr
stringr

x <- list(
  c('this','is','first'),
  c('this','is','second','it','longer'),
  c('this is a list','that is length 2')
)

tibble(column1= map_chr(x, str_flatten, " "))