时间戳

首页 > 解决方案 > 将多个条目转换为具有 R 中向量列的单行

r - 将多个条目转换为具有 R 中向量列的单行

问题描述

我有一个包含多行描述一个用户的数据集。我正在尝试将我的数据集更改为一行代表一个用户。

可重现的例子：

old_way <- data.frame("Day" = 1:10, "Purchase" = 20:29, "Name" = c("John", "John", "John", "Dora", "Dora", "Dora", "Dora", "Gerald", "Gerald", "Gerald"), stringsAsFactors = FALSE)

   Day Purchase   Name
1    1       20   John
2    2       21   John
3    3       22   John
4    4       23   Dora
5    5       24   Dora
6    6       25   Dora
7    7       26   Dora
8    8       27 Gerald
9    9       28 Gerald
10  10       29 Gerald

最大的不同是每一行现在都是一个人。所以当我在做唱片的时候，我可以很容易地看到他们在这里的日子以及他们做了什么购买。

desired_way <- data.frame("Name" = c("John","Dora","Gerald"), "Day" = c("1, 2, 3", "4, 5, 6, 7", "8, 9 ,10"), "Purchase" = c("20, 21, 22", "23, 24, 25, 26", "27, 28, 29"), "Last_Day" = c("3", "7", "10"), "Avg_Purchase" = c("21","25","28"))

    Name           Day          Purchase    Last_Day Avg_Purchase
1   John       1, 2, 3        20, 21, 22           3           21
2   Dora    4, 5, 6, 7    23, 24, 25, 26           7           25
3 Gerald      8, 9 ,10        27, 28, 29          10           28

如何创建封装其他行信息的单元格？R 是否支持在该单元格上完成的操作，还是在创建该单元格时需要计算最新的和平均值？

谢谢大家！

标签： rdata-cleaning

解决方案

在按“名称”进行分组后，最好将其保存在 alist而不是单个字符串中

library(dplyr)
old_way %>% 
  group_by(Name) %>%
  summarise(Last_Day = last(Day), 
            Avg_Purchase = mean(Purchase), 
            Day = list(Day), Purchase = list(Purchase), .groups = 'drop')

-输出

# A tibble: 3 x 5
#  Name   Last_Day Avg_Purchase Day       Purchase 
#  <chr>     <int>        <dbl> <list>    <list>   
#1 Dora          7         24.5 <int [4]> <int [4]>
#2 Gerald       10         28   <int [3]> <int [3]>
#3 John          3         21   <int [3]> <int [3]>

推荐阅读