自定义dplyr函数和多个参数的多个ggplot

library(dplyr)
library(ggplot2)

# 自定义dplyr函数
custom_dplyr_function <- function(data) {
  # 数据处理逻辑
  processed_data <- data %>%
    filter(column1 > 0) %>%
    group_by(column2) %>%
    summarise(total = sum(column3))
  
  return(processed_data)
}

# 多个参数的多个ggplot
custom_ggplot_function <- function(data, param1, param2) {
  # 数据处理
  processed_data <- custom_dplyr_function(data)
  
  # 创建图形
  plot1 <- ggplot(processed_data, aes(x = column2, y = total)) +
    geom_bar(stat = "identity") +
    labs(title = param1)
  
  plot2 <- ggplot(processed_data, aes(x = column2, y = total)) +
    geom_line() +
    labs(title = param2)
  
  return(list(plot1, plot2))
}

# 使用示例数据
data <- data.frame(column1 = c(1, 2, 3, 4),
                   column2 = c("A", "B", "A", "B"),
                   column3 = c(10, 20, 30, 40))

# 调用自定义函数生成图形
plots <- custom_ggplot_function(data, "Plot 1", "Plot 2")

# 显示图形
print(plots[[1]])
print(plots[[2]])