我如何编写一个自定义函数来像dplyr一样使用基数r？

install.packages("dplyr")

library(dplyr)

my_dplyr_function <- function(data) {
  # 在这里编写你的函数逻辑
  # 使用dplyr的函数来处理数据
  # 返回处理后的结果
}

my_dplyr_function <- function(data) {
  # 使用dplyr的select函数选择特定的列
  selected_data <- select(data, col1, col2)
  
  # 使用dplyr的filter函数过滤数据
  filtered_data <- filter(selected_data, col1 > 10)
  
  # 使用dplyr的mutate函数创建新的列
  mutated_data <- mutate(filtered_data, new_col = col1 + col2)
  
  # 返回处理后的结果
  return(mutated_data)
}

my_dplyr_function <- function(data) {
  # 使用dplyr的arrange函数对数据进行排序
  sorted_data <- arrange(data, col1)
  
  # 使用dplyr的group_by函数对数据进行分组
  grouped_data <- group_by(sorted_data, col2)
  
  # 使用dplyr的summarize函数对数据进行汇总
  summarized_data <- summarize(grouped_data, sum_col = sum(col3))
  
  # 返回处理后的结果
  return(summarized_data)
}