Вы можете сделать это с графиком. Это позволит вам легко увидеть не только, какой покупатель оказывает влияние, но и степень эффекта.
Воссоздать код
Примечание: я немного расширил пример вашей игрушки, чтобы лучше проиллюстрировать идею
library(tidyverse)
df <- data.frame(
Volume = c(100, 100, 200, 200, 200, 250, 250),
Buyer = LETTERS[1:7],
stringsAsFactors = F
)
код
ggplot(df, aes(Buyer, c(0, diff(df$Volume)))) +
geom_count() +
ylab("Buyer effect") +
theme_light() +
theme(legend.position = "none")
Graph