如何编辑依赖于plyr的自定义函数以与dplyr兼容？

install.packages("plyr")
install.packages("dplyr")

library(plyr)
library(dplyr)

my_function <- function(data) {
  # 使用plyr的相关函数进行操作
  result <- ddply(data, .(group), summarise, mean_value = mean(value))
  
  return(result)
}

my_function <- function(data) {
  # 使用dplyr的相关函数进行操作
  result <- data %>%
    group_by(group) %>%
    summarize(mean_value = mean(value))
  
  return(result)
}

# 创建测试数据
data <- data.frame(group = c("A", "A", "B", "B"),
                   value = c(1, 2, 3, 4))

# 调用自定义函数
result <- my_function(data)

# 打印结果
print(result)