如何在R中使用管道编写相同的代码？

data %>% function1 %>% function2 %>% ...

library(dplyr)
library(ggplot2)

df %>%
  group_by(group_column) %>%
  summarise(mean_value = mean(value_column)) %>%
  ggplot(aes(x = group_column, y = mean_value)) +
  geom_bar(stat = "identity")

library(magrittr)

df %>% function1(data = .) %>% function2(data = .)

# 加载必要的包
library(dplyr)
library(ggplot2)

# 创建示例数据
set.seed(123)
df <- data.frame(
  group_column = rep(c("A", "B", "C"), each = 10),
  value_column = rnorm(30)
)

# 使用管道进行数据处理和可视化
df %>%
  group_by(group_column) %>%
  summarise(mean_value = mean(value_column)) %>%
  ggplot(aes(x = group_column, y = mean_value)) +
  geom_bar(stat = "identity") +
  labs(title = "Mean Value by Group", x = "Group", y = "Mean Value")