在R中跨数据帧迭代Group_by

install.packages("dplyr")
library(dplyr)

df1 <- data.frame(category = c("A", "B", "A", "B"),
                  value = c(1, 2, 3, 4))

df2 <- data.frame(category = c("A", "B", "A", "B"),
                  value = c(5, 6, 7, 8))

grouped_df1 <- df1 %>% group_by(category)
grouped_df2 <- df2 %>% group_by(category)

result_df1 <- grouped_df1 %>% do(avg_value = mean(.$value))
result_df2 <- grouped_df2 %>% do(avg_value = mean(.$value))

print(result_df1)
print(result_df2)