Summarise columns into a list and keep the rest of the columns in R dplyr

October 27, 2022

I have a data that looks like this

library(tidyverse)

df = tibble(gene=c("geneA","geneB","geneC"),
            dat1=c(100,100,50),
            dat2=c(50,100,20),
            dat3=c(10,20,30))

df
#> # A tibble: 3 × 4
#>   gene   dat1  dat2  dat3
#>   <chr> <dbl> <dbl> <dbl>
#> 1 geneA   100    50    10
#> 2 geneB   100   100    20
#> 3 geneC    50    20    30

^{Created on 2022-10-27 with reprex v2.0.2}

I want to summarise the values of all columns except the first one as a list in a new column while I am keeping the rest of the columns. I want my data to look like this

#> # A tibble: 3 × 4
#>   gene   dat1  dat2  dat3  data
#>   <chr> <dbl> <dbl> <dbl>  <list>
#> 1 geneA   100    50    10  100,50,10
#> 2 geneB   100   100    20  100,100,20
#> 3 geneC    50    20    30  50,20,30

>Solution :

With rowwise and c_across:

df %>% 
  rowwise() %>% 
  mutate(data = list(c_across(-gene)))

   gene dat1 dat2 dat3         data
1 geneA  100   50   10  100, 50, 10
2 geneB  100  100   20 100, 100, 20
3 geneC   50   20   30   50, 20, 30