如何使用dplyr和ggplot2将列名作为函数参数传递？

library(dplyr)
library(ggplot2)

# 创建一个示例数据框
data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(2, 4, 6, 8, 10),
  z = c(3, 6, 9, 12, 15)
)

# 定义一个函数，将列名作为参数传递
my_dplyr_function <- function(data, column) {
  result <- data %>%
    select({{ column }}) %>%
    filter({{ column }} > 3)
  
  return(result)
}

# 调用函数，传递列名参数
output <- my_dplyr_function(data, x)

# 打印结果
print(output)

# 使用ggplot2绘制图形，将列名作为参数传递
my_ggplot_function <- function(data, x_column, y_column) {
  plot <- ggplot(data, aes({{ x_column }}, {{ y_column }})) +
    geom_point()
  
  return(plot)
}

# 调用函数，传递列名参数
plot_output <- my_ggplot_function(data, x, y)

# 显示图形
print(plot_output)