R summarise with condition
Here is an example on the iris dataset

t(sapply(by(iris$Sepal.Length,iris$Species,function(x){x[1:2]}),as.numeric))


Where species is your customer, and Sepal.Length is your fruit.