如何使用tidyverse应用函数列表，并为应用的每个函数返回一列

install.packages("tidyverse")
library(tidyverse)

data <- data.frame(...)

data <- data.frame(x = c(1, 2, 3), y = c(4, 5, 6))

# 使用mutate()创建新变量
data <- mutate(data, z = x + y)

# 使用select()选择特定变量
data <- select(data, x, y)

# 使用filter()筛选观测值
data <- filter(data, x > 1)

# 使用arrange()排序观测值
data <- arrange(data, y)

# 使用group_by()进行分组
data <- group_by(data, x)

# 使用summarize()进行汇总统计
summary_data <- summarize(data, mean_y = mean(y), max_y = max(y))

# 使用merge()合并数据框
merged_data <- merge(data1, data2, by = "x")

# 使用ggplot()创建图形
ggplot(data, aes(x = x, y = y)) + geom_point()

result <- data.frame(
  mutate_result = mutate(data, z = x + y)$z,
  select_result = select(data, x, y),
  filter_result = filter(data, x > 1),
  arrange_result = arrange(data, y)$y,
  group_by_result = summarize(group_by(data, x), mean_y = mean(y)),
  merge_result = merge(data1, data2, by = "x"),
  ggplot_result = ggplot(data, aes(x = x, y = y)) + geom_point()
)