Свести фрейм данных, объединить значения столбца в списки для заполнения отдельных ячеек

У меня есть следующий фрейм данных в r:

Color      Value
Red            1
Red            3
Red            4
Red            7
Blue           2
Blue           5
Green          1
Green          2
Green          3

Что я хотел бы сделать, так это объединить значения в список, который я могу поместить в отдельную ячейку с поворотом по цвету. То есть мне нужна таблица, которая выглядит так:

  Color        Value
  Red      [1,3,4,7]
  Blue         [2,5]
  Green      [1,2,3]

У меня есть некоторый успех в решении этой проблемы с помощью цикла for, но я обнаружил, что выполнение этого требует значительного времени. Есть ли в tidyverse более оперативная функция обработки данных, которая может выполнить это преобразование? Я думал, что пакет purrr может содержать ответ, но у меня проблемы с навигацией.

Спасибо!


r dataframe data-wrangling purrr
person larsonsm    schedule 03.04.2020    source источник

Ответы (2)


arrow_upward
0
arrow_downward

Мы можем использовать aggregate

aggregate(Value ~ Color, df1, FUN = toString)

Если нам понадобится list

aggregate(Value ~ Color, df1, FUN = list)

Или с dplyr

library(dplyr)
df1 %>%
   group_by(Color) %>%
   summarise(Value = toString(Value))

Or as a list

df1 %>%
   group_by(Color) %>%
   summarise(Value = list(Value))
person akrun    schedule 03.04.2020

arrow_upward
1
arrow_downward 

library('data.table')
setDT(df)[, .(Value = paste0("[", paste0( Value, collapse = ","), "]")), by = .(Color)]
#    Color     Value
# 1:   Red [1,3,4,7]
# 2:  Blue     [2,5]
# 3: Green   [1,2,3]

Данные:

df <- read.table(text='Color      Value
Red            1
                 Red            3
                 Red            4
                 Red            7
                 Blue           2
                 Blue           5
                 Green          1
                 Green          2
                 Green          3', header = TRUE, stringsAsFactors = FALSE)
person Sathish    schedule 04.04.2020