如何在r中选择列之间匹配值的前百分比？

library(dplyr)
library(tidyverse)

data <- data.frame(col1 = c(1, 2, 3, 4, 5),
                   col2 = c(2, 4, 6, 8, 10),
                   col3 = c(3, 6, 9, 12, 15))

data <- data %>%
  mutate(percentage = col1 / col2 * 100)

data <- data %>%
  arrange(desc(percentage))

selected_data <- data %>%
  select(col1, col2, percentage)