有没有一种方法可以使用purr或dplyr在R中基于两个组添加行？

library(dplyr)

# 假设df1和df2是你的两个数据框，它们有相同的列结构
df1 <- data.frame(group = "A", value = 1:3)
df2 <- data.frame(group = "B", value = 4:6)

# 添加新行到每个组
new_rows_df1 <- data.frame(group = "A", value = c(7, 8))
new_rows_df2 <- data.frame(group = "B", value = c(9, 10))

# 使用bind_rows添加新行
df1_with_new_rows <- bind_rows(df1, new_rows_df1)
df2_with_new_rows <- bind_rows(df2, new_rows_df2)

# 合并两个数据框
result <- bind_rows(df1_with_new_rows, df2_with_new_rows)

library(purrr)

# 假设grouped_data是一个列表，其中每个元素是一个分组的数据框
grouped_data <- list(
  A = data.frame(group = "A", value = 1:3),
  B = data.frame(group = "B", value = 4:6)
)

# 定义一个函数来添加新行到每个组的数据框
add_new_rows <- function(df) {
  new_rows <- data.frame(group = df$group[1], value = c(7, 8))
  bind_rows(df, new_rows)
}

# 使用map_dfr应用函数并合并结果
result <- map_dfr(grouped_data, add_new_rows)