Перестройка кадра данных, чтобы создать список уникальных значений в столбце

Question

У меня есть набор данных:

df <- data.frame(g = c("X", "X", "Y", "Z", "Y", "Z", "Z"), 
       r = c("A", "B", "C", "C", "A", "A", "A")) 

И я бы манипулировать данные таким образом, что я получаю результат:

г | r
X | A B
Y | A C
Z | A C

Итак, для каждого g перечислены все уникальные значения r. Для этого я могу использовать пакет reshape. Но я хотел бы быть в состоянии сделать это со стандартным R, так как скрипт будет совместно с людьми, с очень ограниченным знанием Р.

Answer 1

Как насчет aggregate()?

aggregate(df$r , by = list(df$g) , function(x) paste0(sort(unique(x)) , collapse = "")) 
# Group.1 x 
#1  X AB 
#2  Y AC 
#3  Z AC 

Answer 2

Дайте это попробовать:

dg <- data.frame(
    g = levels(df$g), 
    r = tapply(df$r, df$g, function(n) {paste(sort(unique(n)), collapse = " ")}) 
) 
> dg 
    g r 
X X A B 
Y Y A C 
Z Z A C