创建一个函数来获取dataframe R中多行的百分比

install.packages("dplyr")  # 安装dplyr包
library(dplyr)  # 加载dplyr包

get_percentage <- function(df, rows) {
  selected_rows <- df[rows, ]  # 选择指定的行
  total_rows <- nrow(df)  # 获取总行数
  percentage <- nrow(selected_rows) / total_rows * 100  # 计算百分比
  return(percentage)
}

# 示例数据框
df <- data.frame(
  id = c(1, 2, 3, 4, 5),
  name = c("Alice", "Bob", "Charlie", "David", "Eve"),
  age = c(25, 30, 35, 40, 45)
)

# 获取第2行和第4行的百分比
percentage <- get_percentage(df, c(2, 4))
print(percentage)