Фильтрация данных уровня транзакции

Вы можете filter bill_id непосредственно поднастроить его

library(dplyr)
dat_subset1 <- dat %>% filter(bill_id %in% unique(bill_id[product == "A"]))

identical(dat_subset, dat_subset1) 
#[1] TRUE

. Это также будет работать без unique, но лучше сохранить список коротким.

подход с использованием таблицы данных:

подготовка

library(data.table)
setDT(dat)

фактический код

dat[ bill_id %in% dat[ product == "A",][[1]], ]

[119 ] вывод

#    bill_id product
# 1:      14       A
# 2:      14       I
# 3:      19       A
# 4:      19       W
# 5:      22       A
# ---                
# 130:     478       A
# 131:     478       V
# 132:     478       Z
# 133:     494       A
# 134:     494       J