R:选择每行的前N项

I have a data frame in R that records the ranked preferences of customers for a number of different brands. A sample of the data frame looks something like the table below. The actual table is much larger in both dimensions (80,000 x 30 approximately). I have a data frame in R that records the ranke