R - 将列值嵌套到向量的单个列（类型列表）中

Question

我尝试在我的数据框中创建所有列的序列，如下所示：

df <- data.frame(label = c("ger", "at", "uk", "us"),
           a = c(1,2,3,4),
           b = c(2,3,5,1),
           c = c(5,6,2,1))

这很接近，但没有提供预期的结果：

df %>% 嵌套（数据 = c（a，b，c））

  label data            
  <chr> <list>          
1 ger   <tibble [1 x 3]>
2 at    <tibble [1 x 3]>
3 uk    <tibble [1 x 3]>
4 us    <tibble [1 x 3]>

我想要一个矢量而不是小标题。它应该是这样的：

  label data            
  <chr> <list>          
1 ger   <dbl [3]>
2 at    <dbl [3]>
3 uk    <dbl [3]>
4 us    <dbl [3]>

有谁知道要存档这个吗？

Answer 1

我们可以将c_across 与来自dplyr 的rowwise 一起使用

library(dplyr)
df %>%
    rowwise %>%
    transmute(label, data = list(c_across(a:c))) %>%
    ungroup

-输出

# A tibble: 4 x 2
#  label data     
#  <chr> <list>   
#1 ger   <dbl [3]>
#2 at    <dbl [3]>
#3 uk    <dbl [3]>
#4 us    <dbl [3]>

Answer 2

dplyr 和 purrr 选项可以是：

df %>%
 transmute(label,
           data = pmap(across(-label), ~ c(...)))

  label    data
1   ger 1, 2, 5
2    at 2, 3, 6
3    uk 3, 5, 2
4    us 4, 1, 1

如果需要一个未命名的向量：

df %>%
 transmute(label,
           data = pmap(across(-label), ~ unname(c(...))))