Estoy trabajando con una base de datos transaccional que contiene las compras realizadas por los clientes en dos tiendas distintas.
La base tiene el siguiente formato:
Lo que necesito realizar es para cada cliente (Email) determinar la fecha minima (Primera Compra), cual fue el producto mas caro que se compro en esa fecha (Una misma transacción puede tener mas de una fila con distinto producto), de igual forma determinar la fecha máxima de compra (Última Compra) y el producto que se adquirió para cada una de las dos tiendas (Última Columna).
Para eso estoy ocupando el siguiente código:
CLIENTE_TIPO <- FISICO3%>%
group_by(EMAIL, `Sub Categoría`)%>%
summarise(Fechamin = min(CreatedAt),
LINEA_1 = LINEAFIN[which.max(ITEM_PRECIO)],
Fechamax = max(CreatedAt),
LINEA_LAST = LINEAFIN[which.max(ITEM_PRECIO)],
Nombre = NOMBRES[which.max(ITEM_PRECIO)],
Diff = Fechamax - Fechamin)%>%
mutate(Dosmas = ifelse(Fechamin == Fechamax, "1 Compra", "2 + Compras"),
EMAIL = str_to_lower(EMAIL))%>%
filter(nchar(EMAIL) > 5)
El problema que tengo es que al seleccionar el producto (LINEAFIN) mas caro de la primera y ultima compra, me esta seleccionando el producto mas caro de todas las fecha y no de la fecha mínimo ni máxima, por lo cual es ambos casos me queda el mismo producto, de la siguiente forma:
Agradecería si me pudieran ayudar a resolver este problema, ya intente agrando la fecha al group_by, pero hace lo mismo.
Gracias de antemano !