2

我有以下小标题：

    data_frame(type = list( c('1','2', 'text'), c(1L ,2L), c(1.5, 2.1), c(TRUE, FALSE))) %>% 
      mutate(typeof=unlist(map(type, typeof)), 
mode= unlist(map(type, mode)), 
class= unlist(map(type, class)))
# A tibble: 4 x 4
       type    typeof      mode     class
     <list>     <chr>     <chr>     <chr>
1 <chr [3]> character character character
2 <int [2]>   integer   numeric   integer
3 <dbl [2]>    double   numeric   numeric
4 <lgl [2]>   logical   logical   logical

我想添加一个包含列类型内容的列，例如：

# A tibble: 4 x 4
       type    typeof      mode     class  vector
     <list>     <chr>     <chr>     <chr>   <chr>
1 <chr [3]> character character character   c('1','2', 'text')
2 <int [2]>   integer   numeric   integer   c(1L ,2L)
3 <dbl [2]>    double   numeric   numeric   c(1.5, 2.1)
4 <lgl [2]>   logical   logical   logical   c(TRUE, FALSE)

我试过unlist(map(type, quote))了，但它给出了：

# A tibble: 4 x 5
       type    typeof      mode     class   vector
     <list>     <chr>     <chr>     <chr>   <list>
1 <chr [3]> character character character <symbol>
2 <int [2]>   integer   numeric   integer <symbol>
3 <dbl [2]>    double   numeric   numeric <symbol>
4 <lgl [2]>   logical   logical   logical <symbol>

甚至不确定是什么<symbol>...

4

1 回答 1

2

首先，如果您使用的是purrr包，unlist则在创建示例数据框时可能不需要。我们可以使用map_chr来获得相同的输出。

library(tidyverse)
dt <- data_frame(type = list(c('1','2', 'text'), c(1L ,2L), c(1.5, 2.1), c(TRUE, FALSE))) %>% 
  mutate(typeof = map_chr(type, typeof), 
         mode = map_chr(type, mode), 
         class = map_chr(type, class))

至于您想要的输出，我认为我们可以使用map_chrwithtoString创建一个包含列表中所有内容的字符串。尽管它与您想要的输出仍然有些不同，但我认为它可以用于演示目的。

dt2 <- dt %>% mutate(vector = map_chr(type, toString))

dt2
# A tibble: 4 x 5
       type    typeof      mode     class      vector
     <list>     <chr>     <chr>     <chr>       <chr>
1 <chr [3]> character character character  1, 2, text
2 <int [2]>   integer   numeric   integer        1, 2
3 <dbl [2]>    double   numeric   numeric    1.5, 2.1
4 <lgl [2]>   logical   logical   logical TRUE, FALSE
于 2017-08-28T03:49:13.810 回答