Kar*_*tik 5 python r pandas dplyr
我对用于数据分析的 R dplyr 相当熟悉,我正在尝试将我在 dplyr 中编写的一些代码转换为 pandas。我的数据中包含通过 ID 列和该人使用特定产品的日期来识别的人员。我试图找出将以下 R dplyr 代码转换为 python pandas 代码的最佳方法。基本上,我按 ID 列进行分组,筛选某种类型的产品,然后添加一列(对于组中的每一行)添加该人的最小(首次使用)日期和最大(最后使用)日期和产品。最后,我还添加了一列,用于计算上次使用日期和首次使用日期之间的天数。这是数据:
ID PRODUCT DATE
A ITEM1 1/30/15
B ITEM1 2/23/14
A ITEM2 3/22/15
C ITEM1 1/23/12
B ITEM1 4/12/15
A ITEM3 2/2/14
C ITEM1 1/1/17
A ITEM1 2/20/15
A ITEM1 5/18/15
Run Code Online (Sandbox Code Playgroud)
使用 dplyr 我可以做
library(dplyr)
library(lubridate)
df <- df %>%
mutate(DATE = mdy(DATE)) %>%
group_by(ID) %>%
filter(PRODUCT == "Item1") %>%
mutate(FIRST = min(DATE), LAST = max(DATE), DAYS = LAST - FIRST)
Run Code Online (Sandbox Code Playgroud)
这给了我
ID PRODUCT DATE FIRST LAST DAYS
(fctr) (fctr) (time) (time) (time) (dfft)
1 A ITEM1 2015-01-30 2015-01-30 2015-05-18 108 days
2 B ITEM1 2014-02-23 2014-02-23 2015-04-12 413 days
3 C ITEM1 2012-01-23 2012-01-23 2017-01-01 1805 days
4 B ITEM1 2015-04-12 2014-02-23 2015-04-12 413 days
5 C ITEM1 2017-01-01 2012-01-23 2017-01-01 1805 days
6 A ITEM1 2015-02-20 2015-01-30 2015-05-18 108 days
7 A ITEM1 2015-05-18 2015-01-30 2015-05-18 108 days
Run Code Online (Sandbox Code Playgroud)
数据:
df <- structure(list(ID = structure(c(1L, 2L, 1L, 3L, 2L, 1L, 3L, 1L, 1L), .Label = c("A", "B", "C"), class = "factor"),
PRODUCT = structure(c(1L, 1L, 2L, 1L, 1L, 3L, 1L, 1L, 1L), .Label = c("ITEM1", "ITEM2", "ITEM3"), class = "factor"),
DATE = structure(c(3L, 6L, 7L, 2L, 8L, 4L, 1L, 5L, 9L),
.Label = c("1/1/17", "1/23/12", "1/30/15", "2/2/14", "2/20/15", "2/23/14", "3/22/15", "4/12/15", "5/18/15"),
class = "factor")),
.Names = c("ID", "PRODUCT", "DATE"), class = "data.frame", row.names = c(NA, -9L))
Run Code Online (Sandbox Code Playgroud)
我怎样才能在熊猫中做同样的事情?
使用agg+groupby
funcs = dict(FIRST='min', LAST='max', DAYS=np.ptp)
d1 = df.join(df.groupby(['ID', 'PRODUCT']).DATE.agg(funcs), on=['ID', 'PRODUCT'])
Run Code Online (Sandbox Code Playgroud)