I have a data frame \'test\' that look like this:
session_id seller_feedback_score 1 1 282470 2 1 275258 3 1 275258 4 1 275258 5 1 3
Found an answer in : Add a "rank" column to a data frame
data.selected <- transform(data.selected, seller_feedback_score_rank = ave(seller_feedback_score, session_id, FUN = function(x) rank(-x, ties.method = "first")))