r - 通过 data.table 按名称分组的上次销售日期和下次销售日期-6ren

r - 通过 data.table 按名称分组的上次销售日期和下次销售日期

转载作者：行者123 更新时间：2023-12-02 09:30:22

26

4

这是我的数据框的样子:

df <- read.table(text='

Name      ActivityType      ActivityDate      LastSaleDate    NextSaleDate     
John       Email            1/1/2014             NA              2/1/2014
John       Sale             2/1/2014             NA              3/1/2014
John       Sale             3/1/2014             2/1/2014        NA        
John       Seminar          4/1/2014             3/1/2014        NA  
John       Webinar          5/1/2014             3/1/2014        NA  
Tom        Email            1/1/2014             NA              2/1/2015
Tom        Sale             2/1/2015             NA              3/1/2015
Tom        Sale             3/1/2015             2/1/2015        NA  
Tom        Seminar          4/1/2015             3/1/2015        NA  
Tom        Webinar          5/1/2015             3/1/2015        NA
                                                                      ', header=T)

我正在尝试通过 data.table 导出最右边的两列。我正在查看 ActivityType=Sale 的位置，并查找该销售事件类型的上一个和下一个对应事件日期。相关的 dplyr 解决方案是

library(dplyr)
require(zoo)

df %>% 
  group_by(Name) %>% 
  mutate(LastSaleDate=na.locf(lag(ifelse(ActivityType=="Sale",ActivityDate,NA)),na.rm=FALSE))

非常感谢您的帮助。

最佳答案

我将使用library(data.table) 。首先，让我们删除最右边的两列并转换 ActivityDate至Date类。

dt <- as.data.table(read.table(text='

Name      ActivityType      ActivityDate      LastSaleDate    NextSaleDate     
John       Email            1/1/2014             NA              2/1/2014
John       Sale             2/1/2014             NA              3/1/2014
John       Sale             3/1/2014             2/1/2014        NA        
John       Seminar          4/1/2014             3/1/2014        NA  
John       Webinar          5/1/2014             3/1/2014        NA  
Tom        Email            1/1/2014             NA              2/1/2015
Tom        Sale             2/1/2015             NA              3/1/2015
Tom        Sale             3/1/2015             2/1/2015        NA  
Tom        Seminar          4/1/2015             3/1/2015        NA  
Tom        Webinar          5/1/2015             3/1/2015        NA
                                                                      ', header=T))

dt[, c('ActivityDate', 'LastSaleDate', 'NextSaleDate') := list(as.Date(ActivityDate, format = '%d/%m/%Y'), NULL, NULL)]

接下来合并销售数据的数据，以获得所有可能的组合并计算任何事件和销售事件之间的天数差异:

setkeyv(dt, 'Name')
dt2 <- dt[dt[ActivityType == 'Sale'], allow.cartesian = TRUE]
dt2[, DateDiff := as.numeric(ActivityDate - i.ActivityDate)]

获取:

    Name ActivityType ActivityDate i.ActivityType i.ActivityDate DateDiff
 1: John        Email   2014-01-01           Sale     2014-01-02       -1
 2: John         Sale   2014-01-02           Sale     2014-01-02        0
 3: John         Sale   2014-01-03           Sale     2014-01-02        1
 4: John      Seminar   2014-01-04           Sale     2014-01-02        2
 5: John      Webinar   2014-01-05           Sale     2014-01-02        3
 6: John        Email   2014-01-01           Sale     2014-01-03       -2
 7: John         Sale   2014-01-02           Sale     2014-01-03       -1
 8: John         Sale   2014-01-03           Sale     2014-01-03        0
 9: John      Seminar   2014-01-04           Sale     2014-01-03        1
10: John      Webinar   2014-01-05           Sale     2014-01-03        2
11:  Tom        Email   2014-01-01           Sale     2015-01-02     -366
12:  Tom         Sale   2015-01-02           Sale     2015-01-02        0
13:  Tom         Sale   2015-01-03           Sale     2015-01-02        1
14:  Tom      Seminar   2015-01-04           Sale     2015-01-02        2
15:  Tom      Webinar   2015-01-05           Sale     2015-01-02        3
16:  Tom        Email   2014-01-01           Sale     2015-01-03     -367
17:  Tom         Sale   2015-01-02           Sale     2015-01-03       -1
18:  Tom         Sale   2015-01-03           Sale     2015-01-03        0
19:  Tom      Seminar   2015-01-04           Sale     2015-01-03        1
20:  Tom      Webinar   2015-01-05           Sale     2015-01-03        2

现在当你排序dt2 <- dt2[order(Name, ActivityDate, DateDiff)]时您可以通过以下方式获取最后一个和下一个销售日期:

dt2[, list(ActivityType = ActivityType[1],
           LastSaleDate = head(i.ActivityDate[DateDiff > 0], 1),
           NextSaleDate = tail(i.ActivityDate[DateDiff < 0], 1)),
     by = list(Name, ActivityDate)]

关于r - 通过 data.table 按名称分组的上次销售日期和下次销售日期，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/33815773/

26

4

0

文章推荐： performance - 如何在 Fortran 中执行整数 log2() ？

文章推荐： Android 应用程序重新打开后崩溃

文章推荐： image-processing - 非常简单的边缘检测

mysql - 按 parent 分组，但不按 child 分组
您好，我正在处理 BIRT 报告。我有一个查询，我必须对父级的重复数据进行分组，但子级也不能分组! 在我的查询中: item 是父项，item_ledger_entry 是子项。我有来自 item.N
google-analytics - 为什么 MCF channel 分组≠默认 channel 分组？
我正在使用 GA API。这是针对 MCF 目标报告(底部)的标准目标完成指标表(顶部) 看一下这个: 总数加起来 (12,238)，但看看按 channel 分组的分割有多么不同!我以为这些会很接
OrientDB 分组
我正在开发一个流量计数器，我想获得 IP 和重复计数，但是如何？就像是 :select ip, count(ip) from Redirect 返回 : null total ip count 重定
Java正则表达式(分组)
我尝试编写一个正则表达式来匹配条件表达式，例如: a!=2 1+2=2+a 我尝试提取运算符。我当前的正则表达式是“.+([!=<>]+).+” 但问题是匹配器总是尝试匹配组中可能的最短字符串
分组、平均的SQL子查询问题
在 MS Transact SQL 中，假设我有一个这样的表(订单): Order Date Order Total Customer # 09/30/2008 8
MySQL:分组
我想按 m.ID 分组，并对每个 m.id 求和 (pm.amount_construction* prod.anzahl) 实际上我有以下结果: Meterial_id | amount_const
PostgreSQL 分组
我想根据多列中的值对值进行分组。这是一个例子: 我想得到输出: {{-30,-50,20},{-20,30,60},{-30,NULL or other value, 20}} 我设法到达: SELE
MySql 分组
我正在尝试找出运行此查询的最佳方式。我基本上需要返回在我们的系统中只下了一个订单的客户的“登录”字段列表(登录字段基本上是客户 ID/ key )。我们系统的一些背景...... 客户在同一日期下的
MYSQL - 分组
给定以下mysql结果集: id code name importance '1234', 'ID-CS-B', 'Chocolate Sauce'
python - 分组
大家好，我的数据框中有以下列: LC_REF 1 DT 16 2C 2 DT 16 2C 3 DT 16 2C 1 DT 16 3C 6 DT 16 3C 3
MongoDB 分组
我有这样的 mongoDB 集合 { "_id" : "EkKTRrpH4FY9AuRLj", "stage" : 10, }, { "_id" : "EkKTRrpH4FY9
Python 分组
假设我有一组数据对，其中 index 0 是值，index 1 是类型: input = [ ('11013331', 'KAT'), ('9085267',
java中用stream进行去重，排序，分组
java中用stream进行去重，排序，分组一、distinct 1. 八大基本数据类型 List collect = ListUtil.of(1, 2, 3, 1, 2).stream().fil
SQL - 如何添加具有平均值的列，分组
基本上，我从 TABLE_A 中的这个开始 France - 100 France - 200 France - 300 Mexico - 50 Mexico - 50 Mexico - 56 Pol
正则表达式，分组，查找最后一个匹配项
我希望这个正则表达式 ([A-Z]+)$ 将选择此示例中的最后一次出现: AB.012.00.022ABC-1 AB.013.00.022AB-1 AB.014.00.022ABAB-1 但我没有匹配
数据透视表中的 SQL 分组
我创建了一个数据透视表，但数据没有组合在一起。任何人都可以帮助我获得所需的格式吗？我为获取数据透视表而编写的查询: DECLARE @cols AS NVARCHAR(MAX), -- f
SQL选择并按一段时间(时间戳)分组
我想按时间段(月，周，日，小时，...)选择计数和分组。例如，我想选择行数并将它们按 24 小时分组。我的表创建如下。日期是时间戳。 CREATE TABLE MSG ( MSG_ID dec
围绕间隙的 SQL 分组
在 SQL Server 2005 中，我有一个包含如下数据的表: WTN------------Date 555-111-1212 2009-01-01 555-111-1212 2009-
python - 按多列对数据框中的连续条目进行聚类/分组
题假设我有 k 个标量列，如果它们沿着每列彼此在一定距离内，我想对它们进行分组。假设简单 k 是 2 并且它们是我唯一的列。 pd.DataFrame(list(zip(sorted(choice
pandas - 分组、拆分和选取数据框中的顶行
问题在以下数据框中 df : import random import pandas as pd random.seed(999) sz = 50 qty = {'one': 1, 'two': 2

首页

博学

6Ren·AI

商城

r - 通过 data.table 按名称分组的上次销售日期和下次销售日期