I would like to take a table with columns for the product name and total profit and segment it into three categories. Each category would have ~1/3 of the total profit (for all products). The first category (A) would have ~1/3 of the total profit, and the smallest amount of unique products. The second category (B) would have more products (but less than the third category).

Any thoughts?

Thanks!

Here is an example data set:

```
 data = {{"product name","profit"},{"item 1",5},{"item 2", 6},{"item 3",4}, {"item 4",2}}

(* and so on *)

(*or in code:*)

data = Prepend[Table[{"item " ~StringJoin~ ToString[i], 
   RandomInteger[100]}, {i, 1, 100}], {"product name", "profit"}]

```

reference:
<https://en.wikipedia.org/wiki/ABC_analysis>